da war ein gravierender Denkfehler drin. So geht's:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim myRange As Range, bolLeer As Boolean
If Not Application.Intersect(Columns("A:C"), Target) Is Nothing Then
bolLeer = True
For Each myRange In Target
If myRange <> "" Then bolLeer = False
Next
Application.EnableEvents = False
If bolLeer Then Target.Delete Shift:=xlUp
Application.EnableEvents = True
End If
End Sub
Gru?
Nepumuk