Seite 1 von 1
gelöst: Auflistung der Namen aller Tabellenblätter
Verfasst: Mi, 06.11.2013 17:39
von 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
Re: Auflistung der Namen aller Tabellenblätter
Verfasst: Mi, 06.11.2013 17:51
von Karolus
Hallo
Code: Alles auswählen
Sub Main
sheetnames = thisComponent.Sheets.Elementnames
for each entry in sheetnames
print entry
next
End Sub
Karolus
Re: Auflistung der Namen aller Tabellenblätter
Verfasst: Do, 07.11.2013 10:15
von 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
Re: Auflistung der Namen aller Tabellenblätter
Verfasst: Fr, 08.11.2013 13:44
von 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
Re: Auflistung der Namen aller Tabellenblätter
Verfasst: Mi, 13.11.2013 10:59
von heinz_ketchup
Hallo clag,
vielen Dank für das Makro! Funktioniert prima.
Schöne Grüße
Werner
Re: gelöst: Auflistung der Namen aller Tabellenblätter
Verfasst: Do, 14.11.2013 10:46
von 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.
Re: gelöst: Auflistung der Namen aller Tabellenblätter
Verfasst: Do, 14.11.2013 11:33
von quotsi
Habs schon begriffen. Hat sich also erledigt.