habe ein Problem mit der Zuweisung der Blattnamen.
Kann mir bitte mal jemand erklären, warum das alles nicht funktioniert?
Hier mal ein Muster: https://www.herber.de/bbs/user/71836.xls
Danke schon mal.
Gruß, Josef
Sub Blattname()
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To 12
Sheets(i).Name = Sheets(i).Cells(4, 2).Text
Next
Application.ScreenUpdating = True
End Sub
Gruß Gerd