OpenOffice.info

Sub S_rename_sheets
    osheets = thiscomponent.sheets
    for i = 0 to osheets.count - 1
        osheet = osheets(i)
        ocell = osheet.getcellrangebyname("A1")'neuer Tabellenblattname steht in Zelle A1
        ssheetname = ocell.String
        osheet.Name = ssheetname
    next i
End Sub

Hallo FireFlyer,
[quote="FireFlyer"]... von Makros habe ich leider überhaupt keine Ahnung....[/quote]
anbei ein winziges Makro, das dir alle Tabellenblätter so benennt wie es auf dem jeweiligen Blatt in Zelle A1 steht

[code]Sub S_rename_sheets
osheets = thiscomponent.sheets
for i = 0 to osheets.count - 1
osheet = osheets(i)
ocell = osheet.getcellrangebyname("A1")'neuer Tabellenblattname steht in Zelle A1
ssheetname = ocell.String
osheet.Name = ssheetname
next i
End Sub[/code]

Viel Erfolg
Gruß R

[quote]Geht das irgendwie automatisch?[/quote]

indem Du ein Makro verwendest.

z.B. wie schreibt man Inhalte in Calc-Zellen:
http://www.dannenhoefer.de/faqstarbasic/WiekannmanWerteeinerZellelesenundschreib.html#Zweig175

z.B. wie benennt man Tabellenblätter um:
http://www.dannenhoefer.de/faqstarbasic/WiekannmandenNameneinesArbeitsblattesnde.html#Zweig213



Gruß
Stephan