gelöst: Auflistung der Namen aller Tabellenblätter

[heinz_ketchup]

Liebe Helfer,

gibt es eine Möglichkeit, die Bezeichnungen aller Tabellenblätter einer Datei aufzulisten, um mit diesen Namen weiter zu arbeiten, z.B. Abgleich mit einer anderen Listen per SVERWEIS etc.

Im Navigator gibt es ja eine Auflistung aller Tabellenblätter, leider kann man diese nicht kopieren, um sie anderweitig zu verwenden.

Schon jetzt vielen Dank für eure Hilfe.

Schöne Grüße
Werner

[Karolus]

Hallo

Code: Alles auswählen

Sub Main
sheetnames = thisComponent.Sheets.Elementnames
for each entry in sheetnames
print entry
next

End Sub

Karolus

[heinz_ketchup]

Hallo Karolus,

vielen Dank für das Makro. Es zeigt mir die Tabellennamen nacheinander in einer Meldungsbox.
Leider kenne ich mich mit Makros nicht so gut aus. Kann man das Makro so umgestalten, dass die Tabellennamen untereinander in die Zellen einer extra Tabelle (in der Arbeitsmappe) geschrieben werden? Dann wäre mein Ziel erreicht.

Danke und Gruß
Werner

[clag]

Hallo heinz_ketschup,

den von Karolus gezeigten Makrocode kann man auch prima in eine eigene Funktion umbauen
und hier geschehen das Ergebnis ist

Code: Alles auswählen

FUNCTION TBLATTNAME(a as integer)
sheetnames = thisComponent.Sheets.Elementnames
if a < 1  or a > ubound(sheetnames)+1 then
TBLATTNAME = "Fehler"
exit FUNCTION
end if
TBLATTNAME = sheetnames( a-1 )
end FUNCTION

damit sollte dein Wunsch erfüllt sein

[heinz_ketchup]

Hallo clag,

vielen Dank für das Makro! Funktioniert prima.

Schöne Grüße
Werner

[quotsi]

Bei mir will diese Funktion als Makro nicht funktionieren. Es kommt die Meldung: "wrong number of parameters".
Habe ich es falsch eingebunden?
Danke für Antwort.

[quotsi]

Habs schon begriffen. Hat sich also erledigt.