Tabellenblätter umbennen For Next
31.05.2021 14:49:11
Manu
ich möchte die Tabellenblätter 2 - 6 umbennen anhand der Daten aus Tabellenblatt 1 Zellen B4 bis B8.
D.h. Tabellenblatt 2 soll den Namen lt. Inhalt Tabellenblatt1 Zelle B4 haben, Tabellenblatt 3 soll den Namen lt. Inhalt Tabellenblatt1 Zelle B5 haben etc.
Leider bekomm ich das mit der For Next Schleife nicht hin
Hier mein aktueller Code:
Sub Farbe()
Dim t As Integer 'Variable für Tabellenblätter
Dim f As Integer
For t = 2 To Sheets.Count
For f = 4 To 8
Worksheets(t).Name = Cells(f, 2)
Next f
Next t
End Sub
Vielleicht könnt ihr mir helfen... Mein Kopf raucht gerade. Ich hoffe ihr versteht mein Problem.
Danke
Gruß Manu