AW: Wenn Funktion Doppelte einträge automatisch lö
15.09.2006 16:08:59
Matthias
Hallo Pinky,
dieses Makro löscht (von unten nach oben) alle Zeilen, in denen der Inhalt von Spalte A weiter oben nochmals vorkommt:
Sub DoppelteLöschen()
Dim lz As Long, i As Long
Dim rng As Range
lz = Cells(Rows.Count, 1).End(xlUp).Row
For i = lz To 1 Step -1
Set rng = Range(Cells(1, 1), Cells(i, 1))
If Application.WorksheetFunction.CountIf(rng, Cells(i, 1)) > 1 Then _
Rows(i).Delete Shift:=xlUp
Next i
End Sub
GRuß Matthias