Duplikate löschen mit Bedingung
09.09.2015 09:50:47
Bettina
ich möchte aus einer Tabelle Duplikate entfernen lassen, da ich die Daten immer als Ganzes erhalte und jedes Mal in die Tabelle kopiere.
Bisher funktioniert der Code so:
Sub Duplikatelöschen()
Dim iRow As Integer, iRowL As Integer
iRowL = Cells(Cells.Rows.Count, 8).End(xlUp).Row
For iRow = iRowL To 1 Step -1
If WorksheetFunction.CountIf(Columns(8), Cells(iRow, 8)) > 1 Then
If Cells(iRow, 11) > Cells(iRowL, 11) Then
Rows(iRow).Delete
End If
End If
Next iRow
End Sub
Meine bisherigen Versuche mit der Range-Methode waren jedoch erfolglos.
Habt ihr Ideen oder Tipps?
VG Bettina