Auflistung aller von mir vergebenen Namen

Das Tabellenkalkulationsprogramm

Moderator: Moderatoren

Lupo121205
**
Beiträge: 32
Registriert: Mi, 05.12.2012 17:21

Auflistung aller von mir vergebenen Namen

Beitrag von 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
**
Beiträge: 32
Registriert: Mi, 05.12.2012 17:21

Re: Auflistung aller von mir vergebenen Namen

Beitrag von 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
Antworten