Auflistung aller von mir vergebenen Namen

[Lupo121205]

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

[Lupo121205]

Habe in alten Unterlagen noch ein Makro gefunden, welches in der Arbeitsmappe eine neue Tabelle erstellt und dort die Namen & Referenz ausgibt:

Code: Alles auswählen

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

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