ich habe folgendes Problem: mal wieder bedingte Formatierungen. In der Recherche fand ich folgenden Code (auf Seite von Hajo_Zi), den ich mir für die beiden fehlenden (4. und 5.) Bedingungen angepasst habe.
Der Code steht im Worksheet und arbeitet einwandfrei, solange das Blatt nicht mit einem Blattschutz versehen ist. Ist dieser aktiv kommt folgende Fehlermeldung:
Die ColorIndex-Eigenschaft des Interior-Objektes kann nicht festgelegt werden
Der Code:
Private Sub Worksheet_Calculate()
Dim RaBereich1 As Range, RaZelle1 As Range
' Bereich der Wirksamkeit AS1
Set RaBereich1 = Range("G23, I23, K23, M23, O23, Q23")
For Each RaZelle1 In RaBereich1
If Not Intersect(RaZelle1, RaBereich1) Is Nothing Then
Select Case RaZelle1.Value
Case "!"
RaZelle1.Interior.ColorIndex = 44
' orange
Case "0"
RaZelle1.Interior.ColorIndex = 36
' hell gelb
End Select
End If
Next RaZelle1
Set RaBereich1 = Nothing
End Sub
Kann mir jemand den Grund hierfür nennen und evtl sogar eine Abhilfe? Herzlichen Dank für Eure Mühe
Gruß
Johannes