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
Auflistung aller von mir vergebenen Namen
Moderator: Moderatoren
-
- **
- Beiträge: 32
- Registriert: Mi, 05.12.2012 17:21
-
- **
- Beiträge: 32
- Registriert: Mi, 05.12.2012 17:21
Re: Auflistung aller von mir vergebenen Namen
Habe in alten Unterlagen noch ein Makro gefunden, welches in der Arbeitsmappe eine neue Tabelle erstellt und dort die Namen & Referenz ausgibt:
__________________
Moderationshinweis
Zur übersichtlichen Darstellung des Textes und vom Programmcode im Text [code][/code] Tags gesetzt. — lorbass, Moderator
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