Liste der Tabellenblätter [gelöst]

[martinheinz]

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

[martinheinz]

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

[clag]

Hallo martinheinz,

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

Code: Alles auswählen

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

ich hoffe das hilft dir weiter

[martinheinz]

Hi Clag,

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

Martin