Bereichs- & ZellNamen ausdrucken
Verfasst: So, 27.12.2015 16:19
Hi, gibt es eine Möglichkeit, erstellte Bereichsnamen & Referenzen
in Listenform auszudrucken?
Danke Wolf
in Listenform auszudrucken?
Danke Wolf
deutsches Forum rund um Apache OpenOffice und LibreOffice
http://www.oooforum.de/
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