Makroänderung
Karin
folgendes Makro löscht die doppelten Einträge in Spalte A und nur 1 Eintrag der doppelten bleibt stehen.
Sub DoppelteLöschen()
Dim x As Long
For x = Range("A65536").End(xlUp).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("A1:A" & x), Cells(x, 1)) > 1 Then
Cells(x, 1).EntireRow.Delete
End If
Next
End Sub
Wer kann mir das Makro so ändern, dass alle doppelten Einträge in Spalte A gelöscht werden, d.h. alle Einträge die doppelt vorhanden sind werden gelöscht,- die einzelnen Einträge müssen aber stehen bleiben.Vielen Dank im voraus.
Gruß
Karin