Doppelte Einträge (Duplikate) löschen

In der folgenden Artikelliste gibt es doppelte Artikelnummern. Zum besseren Verständnis sind diese farbig hervorgehoben, siehe Screenshot.


Ziel ist es, alle doppelten Einträge aus der Liste zu löschen. Gehen Sie dazu wie folgt vor:
  1. Markieren Sie die gesamte Artikelliste inkl. der Überschrift.

  2. Starten Sie das Dialogfenster Duplikate entfernen über den Befehl Daten / Datentools / Duplikate entfernen.



    Achten Sie darauf, dass der Haken bei "Daten haben Überschrift" gesetzt ist, wenn die markierte Datentabelle eine Überschrift besitzt.

  3. Nachdem das Dialogfenster mit einem Klick auf die Schaltfläche OK bestätigt wurde, werden sämtliche doppelten Einträge aus der Artikelliste entfernt und nur noch sämtliche Unikate ausgegeben, siehe Abbildung.


Lösung per VBA

Die vorgestellte Funktion "Duplikate löschen" kann auch per VBA gesteuert werden. Erfassen Sie dazu einfach folgende VBA-Prozedur in einem Code-Modul:

Sub Duplikate_entfernen()
 '** Doppelte Einträge aus dem Zellbereich A3 bis A35 entfernen
 ActiveSheet.Range("$A$3:$A$35").RemoveDuplicates Columns:=1, Header:=xlYes
End Sub


Um die Prozedur auf Ihre Bedürfnisse hin anzupassen, ändern Sie einfach die Zellbezüge bzw. die Anzahl der Spalten, welche bereinigt werden sollen.

Sie dazu auch den Artikel "Duplikate entfernen - Verschiedene Möglichkeiten".

Partnerlinks

Relevante Artikel

  • Cells- zur Range-Schreibweise umwandeln

    Mit dieser Funktion können Sie die die Cells-Schreibweise, z. B. Cells(1, 2) in die Range-Schreibweise z. B. Range("B1")...

  • Bilder in Zellen importieren

    Per VBA lassen sich Bilder aus einem angegebenen Verzeichnis auslesen und importieren. Die vorgestellte Prozedur liest die...

  • Unikate in eigene Spalte extrahieren

    Mit diesem Makro werden alle nicht doppelten Daten aus Spalte A in Spalte B geschrieben. Jeder Wert wird also maximal...

  • Text in Kleinbuchstaben umwandeln

    Das folgende Makro wandelt den Text im markierten Bereich in Kleinbuchstaben um. Es werden allso alle Buchstaben als...

  • Verbundene Zellen finden

    Das folgende Makro findet alle verbunden Zellen und gibt die Zelladressen in einer MessageBox aus.{code}Sub VerbundeneZellen_Adressen()'Die...

Ihre Zufriedenheit ist unser Ziel, deshalb verwenden wir Cookies. Mit diesen ermöglichen wir, dass unsere Webseite zuverlässig und sicher läuft, wir die Performance im Blick behalten und Sie besser ansprechen können. Cookies werden benötigt, damit technisch alles funktioniert und Sie auch externe Inhalte lesen können. Des Weiteren sammeln wir unter anderem Daten über aufgerufene Seiten, getätigte Käufe oder geklickte Buttons, um so unser Angebot an Sie zu Verbessern. Mehr über unsere verwendeten Dienste erfahren Sie unter „Weitere Informationen“. Mit Klick auf „Akzeptieren“ erklären Sie sich mit der Verwendung dieser Dienste einverstanden. Ihre Einwilligung können Sie jederzeit mit Wirkung auf die Zukunft widerrufen oder ändern.