OpenOffice.info

Sub Main
  ThisComponent.Sheets.InsertNewByName("Bereiche",0)
  tmp = ThisComponent.NamedRanges
  blatt = ThisComponent.Sheets.getByName("Bereiche")
  blatt.getCellByPosition(0,0).String = "Name"
  blatt.getCellByPosition(1,0).String = "Inhalt"
  For i = 1 to tmp.Count
    blatt.getCellByPosition(0,i).String = tmp(i-1).Name
    blatt.getCellByPosition(1,i).String = tmp(i-1).Content
  Next i
End Sub

Habe in alten Unterlagen noch ein Makro gefunden, welches in der Arbeitsmappe eine neue Tabelle erstellt und dort die Namen & Referenz ausgibt:
[code]Sub Main
ThisComponent.Sheets.InsertNewByName("Bereiche",0)
tmp = ThisComponent.NamedRanges
blatt = ThisComponent.Sheets.getByName("Bereiche")
blatt.getCellByPosition(0,0).String = "Name"
blatt.getCellByPosition(1,0).String = "Inhalt"
For i = 1 to tmp.Count
blatt.getCellByPosition(0,i).String = tmp(i-1).Name
blatt.getCellByPosition(1,i).String = tmp(i-1).Content
Next i
End Sub[/code]

__________________
[color=#FF0066][b]Moderationshinweis[/b][/color]
Zur übersichtlichen Darstellung des Textes und vom Programmcode im Text [​​code][​/code] Tags gesetzt. — lorbass, Moderator

Hi, habe eine mappe mit sehr vielen von mir eingefügten ZellNamen.
Um die übersicht nicht zu verlieren würde ich die gerne ausdrucken bzw. in tabelle ausgeben.
Habe intensiv in oo gesucht, kann aber keine Lösung finden.
Kennt jemand eine?
Gruss Lupo