Zeileneinträge autom. LÖSCHEN
05.09.2006 19:14:46
Peter
Ich möchte in der Spalte A1-A20 Werte eintragen und wobei sich doppelte Werte oberhalb des aktuellen Eintrags automatisch löschen aber ohne daß die Zeile verschwindet. Sie sollte nur leer werden und weiters : wenn bei A20 angekommen sollte es bei B1 wieder weiter gehen bis B20 usw. Ich habe eine Formel die nur die Spalte A überwacht bräuchte aber das Problem dringend gelöst.
Private Sub Worksheet_Change(ByVal Target As Range)
Const Spalte = 1 'überwacht Spalte A
Dim z As Range
If Target.Count = 1 Then
If Target.Column = Spalte And Target.Row > 1 And Target.Value <> "" Then
Do
Set z = Columns(Spalte).Find(What:=Target.Value, lookat:=xlWhole, After:=Cells(Rows.Count, Spalte))
If z.Row = Target.Row Then Exit Do
Application.EnableEvents = False
z.EntireRow.ClearContents
Application.EnableEvents = True
Loop Until 1 = 2
End If
End If
End Sub