Delete funktioniert nicht
16.04.2003 16:38:12
Pius
Wenn ich einige Zellen markiere und dann den Inhalt löschen will mit Delete erscheint der Debugger
nur den Inhalt der Aktiven Zelle löschen funktioniert.
Wie kann ich das umgehen
mein Code
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect
If Intersect(Target, Range("N6:BK50")) Is Nothing Then Exit Sub
If Intersect(Target, Range("N6:BK50")).Value = 5 Then
Target.Interior.Color = RGB(204, 255, 153)
Else
Target.Interior.Color = RGB(198, 239, 193)
End If
ActiveSheet.Protect
End Sub
Gruss Pius
Anzeige