OpenOffice.info

Habs schon begriffen. Hat sich also erledigt.

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.

Hallo clag,

vielen Dank für das Makro! Funktioniert prima.

Schöne Grüße
Werner

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

Hallo heinz_ketschup,

den von Karolus gezeigten Makrocode kann man auch prima in eine eigene Funktion umbauen
und [url=http://de.openoffice.info/viewtopic.php?f=18&t=62738&p=237906#p237903][b]hier[/b][/url] geschehen das Ergebnis ist

[code]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[/code]

damit sollte dein Wunsch erfüllt sein

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

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

End Sub

Hallo
[code]Sub Main
sheetnames = thisComponent.Sheets.Elementnames
for each entry in sheetnames
print entry
next

End Sub[/code]

Karolus

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