Doppelte Listeneinträge in andere Tabelle kopieren
03.05.2005 12:25:35
mykey2002
ich habe ein Makro erstellt und möchte das noch etwas anpassen:
"Listen sortieren und doppelte Sätze löschen"
Sub DoppelteSätzeEleminieren()
Sheets("Adressen").Activate
'zuerst sortieren
Columns("A:A").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=True, _
Orientation:=xlTopToBottom
'jetzt doppelte Sätze eliminieren
Range("A1").Select
Do Until ActiveCell.Value = ""
If ActiveCell.Value = ActiveCell.Offset(1, 0).Value _
Then ActiveCell.EntireRow.Delete _
Else: ActiveCell.Offset(1, 0).Select
Loop
End Sub
Wie kann ich nun diese doppelten Einträge nciht löschen, sondern in Tabelle "Doppelte" verschieben oder kopieren ?
theoretisch müsste man
Then ActiveCell.EntireRow.Delete _
umschreiben in
Then ActiveCell.EntireRow.Copy ... blablabla ...
Ist das möglich?
Danke im Vorraus !
max