Laufzeitfehler 1004
01.11.2005 16:46:28
grm
seit ich Office 2003 benutze bekomme ich eine Fehlermeldung "Laufzeitfehler 1004" beim öffnen der Datei, Schuld ist das integrierte Makro.
Meine Frage an Euch, wieso funzt das ganze in früheren Versionen und jetzt nicht mehr, denke Excel ist Abwärtskompatibel, oder?
Hier ist das langsame Makro das nicht mehr funzt:
Private Sub Worksheet_Calculate()
Dim RaBereich As Range, RaZelle As Range
' Bereich der Wirksamkeit
Set RaBereich = Range("B5:AF45")
' ActiveSheet.Unprotect
For Each RaZelle In RaBereich
If Not Intersect(RaZelle, RaBereich) Is Nothing Then
Select Case RaZelle.Value
Case "U", "K", "F", "S"
RaZelle.Font.ColorIndex = 3
Case Else
RaZelle.Font.ColorIndex = 1
End Select
End If
Next RaZelle
' ActiveSheet.protect
Set RaBereich = Nothing
End Sub