OpenOffice.info

Hallo, ich kann mich dem nur anschließen.

Gruß Jörg

Hi Stephan,
whouw, bin beeindruckt - Code kopiert, eingegeben und…
FUNKTIONIERT

Besten Dank Wolf

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

z.B. erstelle per Makro ein Tabellenblatt das die Bereichsnamen und Inhalte auflistet:

[code]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
[/code]


Gruß
Stephan

Hi, gibt es eine Möglichkeit, erstellte Bereichsnamen & Referenzen
in Listenform auszudrucken?

Danke Wolf