Code funktioniert unter Excel 2007 nicht mehr
02.08.2007 12:46:00
Christina
ich habe folgende Code unter Excel 2003 immer problemlos ausführen können:
Private Sub Workbook_Open()
Dim i
Dim Status
For i = 1 To Sheets.Count
Sheets(i).Tab.ColorIndex = xlNone
Next i
On Error GoTo ende
Status = Format(Date, "MMMM YYYY")
With Sheets(Status)
.Tab.ColorIndex = 42
.Activate
End With
ende:
End Sub
... soll bedeuten, dass Tabellenblatt aktiviert und farblich markiert ist, (es handelt sich um eine Zeiterfassung) wo der aktuelle Monat draufsteht. Nur jetzt unter Excel 2007 funktioniert das nicht mehr. Kann mir da jemand behilflich sein?
Vielen Dank schon mal im Voraus!