Seite 1 von 1
Auflistung aller von mir vergebenen Namen
Verfasst: Di, 20.03.2018 09:39
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
Re: Auflistung aller von mir vergebenen Namen
Verfasst: Di, 20.03.2018 09:55
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