Liste mit Doppelten Einträgen!
Die Doppelten sollen aber nicht gelöscht werden, sondern wenn 3x vorhanden nur 2x löschen damit ich den Eitnräg 1x zu Verfügung habe.
Mit folg. vba geht das nicht, der code löscht alle doppelten!!!
******************************************
Sub test()
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:A" & x), Cells(x, 1)) > 1 Then
Rows(x).Delete shift:=xlUp
End If
Next
.ScreenUpdating = True
End With
End Sub
Gruß Marcel