Tabellenblatt mit VBA umbenennen
18.09.2005 12:03:24
WHN
ich möchte 50 Tabellen mit VBA umbenennen.
Dazu habe ich folgende Prozedur angelegt:
-------------------------------------
Sub TabellenUmbenennen(J:Integer)
Dim i as Integer, Jahr as String
For i = 2 To 51
Jahr = CStr(J)
Jahr = Mid$(Jahr,3,2)
ActiveSheets.Name = Jahr
J = J + 1
Next i
End Sub
-------------------------------------
An der Stelle: ActiveSheets.Name = Jahr
bekomme ich eine Fehlermeldung.
Kann mir Jemand helfen?
Danke und viele Grüße
Werner
Anzeige