OpenOffice.info

Hi Clag,

vielen Dank, ist genau das, was ich brauche.
Hast was gut bei mir

Martin

sub alleTabellenNamen
oDoc = thisComponent
oCell=oDoc.getCurrentSelection().getCellAddress()
osheet=odoc.currentcontroller.activesheet
oRow=oCell.row
oColumn=oCell.column
Anzahl=oDoc.Sheets.count
For i=0 to Anzahl-1
mySheet = oDoc.Sheets(i)
mylist = mysheet.name
ocell=osheet.getCellByPosition(oColumn,oRow)
ocell.string = mylist 
oRow = oRow+1
Next i
end sub

Hallo martinheinz,

hab da mal schnell was für dich zusammen gebaut,
dieses Makro listet alle Tabelleblatt-Namen untereinander, ab der aktuellen Zelle,

[code]
sub alleTabellenNamen
oDoc = thisComponent
oCell=oDoc.getCurrentSelection().getCellAddress()
osheet=odoc.currentcontroller.activesheet
oRow=oCell.row
oColumn=oCell.column
Anzahl=oDoc.Sheets.count
For i=0 to Anzahl-1
mySheet = oDoc.Sheets(i)
mylist = mysheet.name
ocell=osheet.getCellByPosition(oColumn,oRow)
ocell.string = mylist
oRow = oRow+1
Next i
end sub
[/code]
ich hoffe das hilft dir weiter :)

Danke, Michael, für die Antwort.

Nein, das reicht nicht, weil die 50 Blätter schon umbenannt sind und ich habe die ehrenvolle Aufgabe einen Index als erste Blatt dazu zu machen.

Martin

Hallo,
Kannst Du mir sagen, wie ich eine Liste der Namen aller Tabellenblätter erzeugen kann, wenn diese umbenannt sind?
oder einfacher:
Gibt es eine Referenz Tabelle1.a1, auch wenn Tabelle1 inzwischen "Müller" heißt?

Danke
Martin