Fehler bei ActiveWorkbook.Colors Anweisung
30.03.2007 10:53:58
maciana
Mit untenstehender Funktion habe ich alle Standardfarben von Excel angepasst. Nun bekomme ich jedes Mal, wenn ich eine Exceldatei öffne, den Fehler "Objektvariable oder With-Blockvariable nicht festgelegt." - der Fehler tritt bei der ersten ActiveWorkbook.Colors-Anweisung auf. Da ich ein ziemlicher Newbie in VBA bin, habe ich keine Ahnung, wodurch dieser Fehler verursacht wird. (Wenn ich Excel öffne oder ein neues Dokument anlege, tritt der Fehler nicht auf.)
Im voraus vielen Dank für Eure Lösungsideen!
Renate
Private Sub Workbook_Open()
Application.ScreenUpdating = False
'Hauptfeld zeilenweise von links nach rechts
'1. Zeile: Blau
ActiveWorkbook.Colors(1) = RGB(0, 58, 104)
ActiveWorkbook.Colors(53) = RGB(0, 144, 209)
ActiveWorkbook.Colors(52) = RGB(0, 118, 177)
Application.ScreenUpdating = True
End Sub