Hallo Stephan,
das funktioniert einwandfrei.
Allerdings habe ich die 11 in 10 geändert.
Ansonsten kommt immer die Fehlermeldung:
"Unzulässiger Wert oder Datentyp.
Index außerhalb des definierten Bereichs."
Gleichzeitig geht das Bearbeitungsfenster für die Makros auf und die Zeile
Code: Alles auswählen
"tc.Sheets(i).Name = tc.Sheets(0).getCellByPosition(0, i-1).String"
wird hervorgehoben angezeigt.
Ich möchte ja auch nur die letzen 10 Tabellen (rechts) umbenennen
und nicht, wie ich fälschlicherweise geschrieben habe, 11.
Tabelle1 (ganz links) sollte unangetastet bleiben.
Vielen Dank!