VBA: Tabellenname aus Zelle
01.09.2017 15:46:18
Philipp
ich möchte mittels Makro Tabellenblätter aus Zellinhalten auf der ersten Seite benennen: Dazu _
habe ich folgendes Makro geschrieben, welches funktioniert:
Sub myTabName2()
ThisWorkbook.Worksheets(1).Name = Range("A1").Value
ThisWorkbook.Worksheets(2).Name = Worksheets(1).Range("A2").Value
ThisWorkbook.Worksheets(3).Name = Worksheets(1).Range("A3").Value
End Sub
Nun möchte ich die Tabellenblätter nicht nur relativ mit 1, 2, 3 sondern mit dem Namen _
ansteuern. Wenn ich jetzt obigen Code mit ("Tabelle1") ect. ändere, geht's nicht mehr...
Sub myTabName2()
ThisWorkbook.Worksheets("Tabelle1").Name = Range("A1").Value
ThisWorkbook.Worksheets("Tabelle2").Name = Worksheets("Tabelle1").Range("A2").Value
ThisWorkbook.Worksheets("Tabelle3").Name = Worksheets("Tabelle1").Range("A3").Value
End Sub
Was mache ich falsch? Wie müssten die Tabellenblätter richtig definiert sein?
Vielen Dank für Vorschläge und Hilfe!
Philipp