mit unterem Code entferne ich meine doppelten Einträge in Spalte A ab Zeile 25.
Funktioniert auch.
Jetzt hätte ich allerdings gerne mindestens eine Erweiterung:
In Zelle C18, soll vor dem Löschen die Anzahl der gefüllten Zellen (handelt sich um Zahlen) eingetragen werden.
Beispiel vor dem Löschen Spalte A
1
1
2
2
3
3
4
4
Nach Ausführung des Codes soll in C18 dann 8 stehen. In D18 steht von mir geschrieben :Identnummern umfasste die Liste vor Entfernung der Doppelten.
die Spalte A sieht nach Ausführung dann so aus:
1
2
3
4
Da ich mir sicher bin, dass jemand hier den Code optimieren kann (schneller) wäre ich auch dafür dankbar.
Da für diese Vorlage nicht klar ist, wie lang die Liste sein kann, die hiermit gekürzt werden soll, sollte der Code bis ganz unten gehen.
PS: Mache jetzt Feierabend, denke eine Antwort von mir ist erst morgen zu erwarten.
Gruß Marcy
Sub DoppelteZeilenLöschen()
Dim iRow As Integer, iRowL As Integer
On Error GoTo ErrExit
iRowL = Cells(Cells.Rows.Count, 1).End(xlUp).Row
Application.ScreenUpdating = False
If iRowL > 25 Then
For iRow = iRowL To 25 Step -1
If WorksheetFunction.CountIf(Range("A25:A" & iRowL), Cells(iRow, 1)) > 1 Then
Rows(iRow).Delete
End If
Next iRow
End If
ErrExit:
Application.ScreenUpdating = True
End Sub