Mit nachstehendem Code den ich im Forum gefunden habe definiere ich mehr als drei bedingte Formatirungen.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim EBereich As Range
Set EBereich = Range("a1:AI100")
If Intersect(Target, EBereich) Is Nothing Then Exit Sub
ActiveSheet.Unprotect
If Target.Value = 1 Then
Target.Interior.ColorIndex = 4
'Target.Interior.Pattern = xlSolid
End If
If Target.Value = 2 Then
Target.Interior.ColorIndex = 6
'Target.Interior.Pattern = xlSolid
End If
If Target.Value = 3 Then
Target.Interior.ColorIndex = 3
'Target.Interior.Pattern = xlSolid
End If
If Target.Value = 4 Then
Target.Interior.ColorIndex = 5
'Target.Interior.Pattern = xlSolid
End If
If Target.Value = "" Then
Target.Interior.ColorIndex = 35
'Target.Interior.Pattern = xlSolid
End If
ActiveSheet.Protect
End Sub
nun wenn ich im selben bereich einige zellen Markiere und dann mit der Delete Taste den inhalt löschen will kommt der Debugger und geht zum bereich If Target.Value = 1 Then
Wenn ich in der Activen Zelle den Inhalt löschen will gibts kein problem.
Wie kann ich das lösen, dass auch in einem markierten Bereich der Inhalt gelöscht werden kann.