Brauchen Sie Hilfe?
Web:     Online-Formular
E-Mail:  
Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!
Tel:       +49(0)151 / 164 55 914

Nutzen Sie für Ihre Anfrage unser Online-Formular oder senden Sie uns eine E-Mail an Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!. Gerne können Sie aber auch direkt telefonisch Kontakt aufnehmen.

   
     Referenzen
 Bosch 
  T-Systems
  Hagebau
  Siemens
 Areva  VW
 Haufe-Lexware  British American Tobacco
  nagel group farbe
   

Duplikate entfernen - Verschiedene Möglichkeiten

Eine Häufige Fragestellung im Umgang mit Excel ist das Löschen von Duplikaten aus einer Liste. Im Beispiel liegt eine Liste mit doppelt oder mehrfach vorkommenden Artikelnummern vor. Ziel ist, aus dieser Liste alle Duplikate zu entfernen, so dass am Ende eine bereinigte Liste entsteht.

Die Ausgangsliste mit Duplikaten sehen Sie in Abbildung 1.


Abbildung 1

Ab Excel 2007 steht zur Beseitigung von Dupliakten der Befehl Daten / Datentools / Duplikate entfernen zur Verfügung. Damit lässt sich die Liste mit wenigen Klicks bereinigen. Gehen Sie dazu wie folgt vor.

  1. Markieren Sie zunächst den Zellbereich A1 bis A16
  2. Wechseln Sie zur Registerkarte Daten und starten aus der Gruppe Datentools den Befehl Duplikate entfernen
  3. Setzen Sie den Haken bei Daten haben Überschrift und beenden Sie den Befehl mit einem Klick auf die Schaltfläche OK, siehe Abbildung 2.

Abbildung 2

Damit werden alle Duplikate aus der Artikelliste entfernt und jeder Eintrag nur noch ein einziges mal angezeigt, gleichgültig, wie oft dieser in der Liste vorhanden war. Im Beispiel wird der Befehl mit der Meldung "Es wurden 9 doppelte Werte gefunden und entfernt. 6 eindeutige Werte bleiben erhalten." quittiert. Das Ergebnis sehen Sie in Abbildung 3.


Abbildung 3

Diese Löschfunktion können Sie auch per VBA nutzen. Verwenden Sie dazu einfach folgenden VBA-Code.

Sub Dupliate_entfernen()
ActiveSheet.Range("$A$1:$A$16").RemoveDuplicates Columns:=1, Header:=xlYes
End Sub

Damit wird die Funktion wie beschrieben automatisiert per VBA ausgeführt und das gleiche Ergebnis angezeigt.

 

Bis Excel 2003 steht der Befehl Duplikate entfernen nicht zur Verfügung. Zur Löschung von Duplikaten in diesen Versionen haben wir vor einiger Zeit bereits eine Lösung vorgestellt. Diese Lösung hat den Vorteil, dass die Unikate in einer eigenen Spalte ausgegeben werden und die "Original"-Daten unverändert bestehen bleiben. Damit bietet sich diese Lösung auch ab Excel 2007 an, wenn die Originaldaten nicht verändert werden sollen.

Eine weitere Möglichkeit zum Auslesen von Unikaten ist in folgendem Tipp beschrieben. Damit lassen sich Unikate ganz einfach mit einer Formel in einer eigenen Spalte auflisten.

   

Relevante Artikel

  • Zellen für eine einmalige Eingabe beschränken

    In diesem Beispiel zeigen wir Ihnen, wie Sie eine Zelle beziehungsweise einen Zellbereich für eine einmalige Eingabe von Text oder Zahlen beschränken können. In diesem Beispiel soll der Zellbereich B3:E9...

  • Zufallszahlen ermitteln

    109017 Das folgende Makro ermittelt Zufallszahlen. Jede Zahl kommt dabei jedoch nur ein einziges Mal vor.Sie geben beim Programmstart einfach die gewünschte Menge an Zufallszahlen an. Möchten Sie z....

  • Anzahl der leeren Zellen innerhalb eines Bereiches ermitteln

      101055     Mit dem Makro leere_zellen_ermitteln wird die Anzahl aller leeren Zellen im selektierten Bereich ermittelt und mittels einer MsgBox angezeigt. Sub leere_zellen_ermitteln()leer = 0For Each Zelle In SelectionIf Zelle.Value = "" Thenleer = leer + 1End IfNext ZelleMsgBox "Es gibt " & leer & " leere Zellen im selektieren Bereich."End Sub Über eine For-Nexe-Schleife wird...

  • Leere Zeilen aus einer Tabelle entfernen

    Mit Hilfe des VBA-Codes aus diesem Beispiel können Leerzeilen aus einem Tabellenblatt entfernt werden. Werden Daten importiert oder über die Zwischenablage auf einem Tabellenblatt eingefügt, so...

  • Zeilen abhängig von einer Bedingung ausblenden

    101081 Dieses Makro blendet Zeilen abhängig von einer Bedingung aus. In diesem Beispiel wird geprüft ob zwischen den Zeilen 1 und 100 in der Spalte A ein Wert steht oder nicht. Wenn kein Wert in...

   

Excel-Inside auf Facebook Excel-Live News blog Excel-Inside RSS-Feed Twitter Account für Excel-Inside Mail an Excel-Inside 

Programmierung
Excel Auftragsprogrammierung Access Auftragsprogrammierung
Word Auftragsprogrammierung Outlook Auftragsprogrammierung
   
Unsere Produkte
Office Schulungen VBA, Excel, Access
E-Book Formeln und Funktionen Excel 2013