Ich habe eine Liste, in der Nummern doppelt vorkommen. Jetzt will ich jedes mal wenn eine Nummer doppelt vorkommt, die komplette Zeile loeschen, dass jede Nummer im ganzen sheet nur einmal vorkommt.
Danke Vera
Sub test()
Dim i
For i = [A65536].End(xlUp).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("A1:A" & i), Cells(i, 1)) > 1 Then
Rows(i).Delete
End If
Next
End Sub