ich habe 11 Tabellen in einem Dokument und würde diese gern automatisch umbenennen.
In Tabelle 1 sollen in Spalte A im Bereich A1:A10 die Namen der Tabellen 2 bis 11 stehen.
Die Tabellen 2 bis 11 sollen dann nach Tabelle 1 A1:A10 umbenannt werden.
In einem anderen Forum habe ich ein Makro gefunden, das die Tabellen einfach durchnummeriert.
Vielleicht kann man das als Ausgangsbasis nutzen:
Code: Alles auswählen
Sub RenameSheets
Sheets = ThisComponent.Sheets
Count = Sheets.Count
for i = 0 to Count - 1
Sheet = Sheets.getByIndex(i)
Sheet.Name = CStr(i + 1)
next i
End Sub