ich benutze den unten stehenden Code. Leider gibt es in der letzten Zeile einen Fehler. Eigentlich sollte die jeweilige Tabelle den Namen (Oktober 2004) verpasst bekommen. Klappt aber nicht. Weiß jemand warum? Wie muss ich das denn umschreiben.
Danke für die Hilfe!
Gruß
Armin
Dim Sheetname As String
Dim datdate As Date
Sheets(2).Select
Sheetname = ActiveSheet.Name
Debug.Print Sheetname
datdate = Date
Debug.Print MonthName(Month(datdate))
Worksheets(Sheetname).Name = (MonthName(Month(datdate) & "2004"))