Hallo liebes Forum,
habe eine Frage:
ich habe eine große Tabelle, in der u.U. doppelte Datensätze auftreten können (d.h. Artikelnummer in Spalte 2 würde dann doppelt auftreten). Die doppelten Zeilen will ich löschen, eine Zeile soll natürlich erhalten bleiben.
Da das ganze Teil einer größeren Makro ist bräuchte ich eine VBA-Lösung.
Ich habe schon im Archiv geschaut, aber nicht das passende gefunden:
Fehler hier: er löscht beide Zeilen
Dim iRow As Integer, iRowL As Integer
iRowL = Cells(Cells.Rows.Count, 1).End(xlUp).Row
For iRow = iRowL To 1 Step -1
If WorksheetFunction.CountIf(Columns(1), Cells(iRow, 1)) GROESSER 1 Then
Rows(iRow).Delete
End If
Next iRow
Kann mir da jemand helfen? Danke!