Ich benötige mal wieder Eure Hilfe und freue mich riesig auf Eure Nachricht.
Mit dem folgenden Code funktioniert die bedingte Formatierung so weit ganz gut.
Lösche ich allerdings den Inhalt mehrerer Zellen gleichzeitig, läuft der der Code auf Fehler, anstatt die Formatierung zurückzusetzen.
Würde mich riesig über den korrekten Code freuen.
Vielen Dank
Micha
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("Z4:OF200")) Is Nothing Then
With Target
Select Case .Value
Case Is = "K"
.Interior.ColorIndex = 8
Case Is = "D"
.Interior.ColorIndex = 3
Case Is = "M"
.Interior.ColorIndex = 6
Case Is = "U"
.Interior.ColorIndex = 15
Case Is = "B"
.Interior.ColorIndex = 4
Case Is = "G"
.Interior.ColorIndex = 2
Case Is = ""
.Interior.ColorIndex = 2
End Select
End With
End If
End Sub