Herbers Excel-Forum - das Archiv
Doppelte Einträge (Zeilen) entfernen
Betrifft: Doppelte Einträge (Zeilen) entfernen
von: Franky
Geschrieben am: 01.10.2003 15:46:43
Hallo !
Wie kann amn auf einen Schlag mehrere und verschiedene doppelte Einträge
löschen, d.h. die ganze Zeile dann löschen.
Kann mir von Euch jemand helfen, am besten per Makro.
Vielen Dank im Vorraus.
best regards
Franky
Betrifft: AW: Doppelte Einträge (Zeilen) entfernen
von: RainerW
Geschrieben am: 01.10.2003 16:03:11
Hallo Franky,
dieser Code löscht alle Doppelten Einträge in Spalte A.
Anm.: Es MUSS eine Spaltenüberschrift bestehen, damit die Funktion
fehlerfrei arbeitet! Spalte B muss leer sein!
Private Sub DoppelteLoeschen()
' Mit SpezialFilter
Application.ScreenUpdating = False
Range("A1").CurrentRegion.AdvancedFilter _
Action:=xlFilterCopy, CopyToRange:= _
Range("B1"), Unique:=True
Columns(1).EntireColumn.Delete
Application.ScreenUpdating = True
End Sub
Gruß
Rainer
Betrifft: AW: Doppelte Einträge (Zeilen) entfernen
von: Franky
Geschrieben am: 01.10.2003 16:49:05
Vielen Dank Rainer, probier ich gleich mal aus.