ich möchte in einer Spalte die doppelten zellen löschen, wie geht das?
Gruss
Rebecca
Sub doppelte_weg()
Dim i As Long
Application.ScreenUpdating = False
For i = Range("A65536").End(xlUp).Row To 2 Step -1
If Application.WorksheetFunction.CountIf(Range("A:A"), Cells(i, 1)) > 1 Then Rows(i).Delete
Next i
Application.ScreenUpdating = True
End Sub
MFG Andre