Hallo Spezialisten,
ich habe folgenden Makro-Code:
Dim X As Long, letzte As Long
With Application
.ScreenUpdating = False
letzte = Range("A65536").End(xlUp).Row
For X = letzte To 1 Step -1
If WorksheetFunction.CountIf(Range("A1:D" & X), Cells(X, 1)) > 1 Then
Rows(X).Delete Shift:=xlUp
End If
Next
.ScreenUpdating = True
End With
Dieser Code soll nichts anderes machen, als den Bereich der Liste (A7:K3000) nach doppelten Einträgen zu durchsuchen, und wenn ein Eintrag (Kriterium ist Spalte "A" = Forlaufende Nummer) doppelt vorhanden ist, soll er den alten rausschmeissen.
Das tut er zwar aber auch, allerdings löscht er zwischendrin auch Einträge.
Was hab ich hier noch verkehrtes drin?
Danke für Eure Hilfe.
Gruß Frederic