doppelte Zeilen löschen
12.03.2009 17:25:54
Peter
ich habe den totalen Hänger
Habe im Forum das richtige Makro gefunden
Makro sucht in Spalte A nach Doppel einträgen und löscht die zeile
Ich möchte gern dieses Makro für die Spalte E benutzen
Nur die Spaltenbezeichnung tauschen klappt nicht
Bitte um Hilfe
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
Gruß Peter
Anzeige