Liebe Forumsteilnehmer,
ich möchte meine Tabellenblätter mit folgendem VBA Code umbenennen:
shDay1.Name = "Data " & Format(Cells(5, 3), "dd-mm")
shDay2.Name = "Data " & Format(Cells(6, 3), "dd-mm")
shDay3.Name = "Data " & Format(Cells(7, 3), "dd-mm")
Das funktioniert soweit - nur sind es mehr als 3 Tabellenblätter und ich möchte versuchen, das mit einer Schleife in etwa so zu machen:
Dim i As Long
For i = 1 To 3
shDay(i).Name = "Data " & Format(Cells(i + 4, 3), "dd-mm")
Next i
Leider funktioniert das so nicht. Ich denke mal, weil die Namen shDay1 ect. Objekte sind...
Hat jemend eine Idee, wie ich das machen könnte? Die Tabellenblätter sind schon vorhanden und die Code Names der Tabellenblätter werden nicht umbenannt.
Vielen Dank für Tipps!
LG, Philipp