doppelte löschen
21.01.2009 13:30:06
Weis
wie kann ich es schaffen, dass das Makro von oben nach unten die doppelten entfernt?
Oder gibt es eine Möglichkeit nach zwei Kriterien zu suchen, die zutreffen müssen, damit die doppelten Werte entfernt werden.
Hier mein Makro:
Sub doppeltekill()
Dim iRow As Integer, iRowL As Integer
iRowL = Cells(Cells.Rows.Count, 3).End(xlUp).Row
For iRow = iRowL To 1 Step -1
If WorksheetFunction.CountIf(Columns(1), Cells(iRow, 1)) > 1 Then
Rows(iRow).Delete
End If
Next iRow
End Sub
Vielen Dank schon mal