If Not Intersect: Komplette Zeile wird markiert

[JonasRe]

Hallo zusammen,

ich möchte mit dem Worksheet_Change-Event prüfen, ob ein Wert in Spalte M geändert worden ist. Jetzt kann und wird es vorkommen, dass Zeilen gelöscht werden. Hierbei wird jedoch beim Löschen der Zeile die komplette Zeile farblich markiert. Wie kann ich es umgehen, dass die Markierung der Zeile erfolgt?

Code:

Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("M3:M3000")) Is Nothing Then
    Target.Interior.ColorIndex = 6
  End If
End Sub

Danke :)

[Kuwer]

Hallo,

vielleicht so:

Sub Worksheet_Change(ByVal Target As Range)
  If Target.Count = 1 Then
    If Not Intersect(Target, Range("M3:M3000")) Is Nothing Then
      Target.Interior.ColorIndex = 6
    End If
  End If
End Sub

Gruß Uwe