Seite 1 von 1
Liste der Tabellenblätter [gelöst]
Verfasst: Fr, 26.11.2010 10:50
von 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
Re: Liste der Tabellenblätter
Verfasst: Fr, 26.11.2010 13:55
von 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
Re: Liste der Tabellenblätter
Verfasst: Fr, 26.11.2010 14:53
von 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
Re: Liste der Tabellenblätter
Verfasst: Fr, 26.11.2010 15:35
von martinheinz
Hi Clag,
vielen Dank, ist genau das, was ich brauche.
Hast was gut bei mir
Martin