Herbers Excel-Forum - das Archiv

Doppelte Einträge (Zeilen) entfernen

Bild

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

Bild

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
Bild

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.
 Bild
Excel-Beispiele zum Thema " Doppelte Einträge (Zeilen) entfernen"
Doppelte Einträge finden und löschen Doppelte Datensätze löschen
Doppelte Zelleinträge listen Doppelte Datensätze und Leerzeilen löschen
Doppelte Datensätze farblich markieren und auflisten Doppelte Eingabe von Werten verhinden
In mehrere Spalten doppelte Inhalte entfernen Doppelte Einträge in UserForm-ListBox löschen
Auf Doppelte prüfen, bevor Tabelleneintrag Zeilenhöhe in cm festlegen