Doppelte Einträge löschen
André
Ich habe in meiner Literatur folgendes Makro gefunden und möchte damit auf einem Tabellenblatt "D" doppelte Datensätze in einer Liste löschen. Es soll die Spalte A verglichen werden. Die Spaltenüberschrift soll nicht sortiert bzw. gelöscht werden.
Sub DoppelteSätzeElimimieren()
'doppelte Eiträge löschen
Sheets("D").Activate
'zuerst sortieren
Columns("A:A").Select
Selection.Sort Key1:=Range("A1"), _
Order1:=xlAscending, _
Header:=xlYes, OrderCustom:=1, _
MatchCase:=False, _
Orientation:=x1TopToBottom
' jetzt löschen
Range("A1").Select
Do Until ActiveCell.Value = ""
If ActiveCell.Value = _
ActiveCell.Offset(1, 0).Value _
Then ActiveCell.EntireRow.Delete _
Else AvtiveCell.Offset(1, 0).Select
Loop
End Sub
Ich muß dazusagen, dass ich grade unter 2007 arbeite aber die Mappe auch unter 2003 laufen muß.
Währe super, wenn Ihr mier sogar am Wochenende helfen könntet.
Viele Grüße André