Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Doppelte Werte zählen und löschen

Doppelte Werte zählen und löschen
19.08.2020 11:51:22
Peter
Ich habe in der Spalte K5-K15 verschiedene Vornamen:
Pascal
Heinz
Marlon
Heinz
Marlon
Maurus
Stefan
Maurus
Marlon
Tim
Nun möchte ich zählt wie oft ein Wert Doppelt vorkommt und den in der Spalte L ausgeben. Zum Schluss sollten alle Doppelten Werte gelöscht werden, damit keine Redundante Daten vorhanden sind.
Wie kann ich das mit einem Makro machen?
Gruss Peter
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: warum erst zählen? wenn dann doch gelöscht?...
19.08.2020 12:11:09
neopa
Hallo Peter,
... Löschen kannst Du einfach mit der Funktion Duplikate entfernen nutzen. Die Anzahl der jeweiligen Duplikate kannst Du einfach mit ZÄHLENWENN() ermitteln. Beides kannst Du mit dem Makrorekorder auch aufzeichnen.
Ich würde jedoch anstelle dessen eine PowerQuery-Lösung vorschlagen, die in Deiner XL-Version möglich ist.
Gruß Werner
.. , - ...
Anzeige
AW: Doppelte Werte zählen und löschen
19.08.2020 12:30:13
Herbert_Grom
Hallo Peter,
probier's mal damit:
Sub Remove_Duplicates_activeColumn()
ActiveCell.EntireColumn.Copy
ActiveCell.Offset(0, 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.EntireColumn.RemoveDuplicates Columns:=1, Header:=xlYes
End Sub
Servus
Anzeige
AW: Doppelte Werte zählen und löschen
19.08.2020 13:01:01
Gerd
Moin
Sub Unit()
Dim Z As Long
For Z = 5 To 15
If Not IsEmpty(Cells(Z, 11)) Then
If WorksheetFunction.CountIf(Range(Cells(5, 11), Cells(Z, 11)), Cells(Z, 11)) = 1 Then
Cells(Z, 12) = WorksheetFunction.CountIf(Range(Cells(5, 11), Cells(15, 11)), _
Cells(Z, 11))
End If
End If
Next
Range(Cells(5, 11), Cells(15, 12)).RemoveDuplicates 1, xlNo
End Sub

Gruß Gerd
Anzeige
AW: Doppelte Werte zählen und löschen
19.08.2020 15:16:00
Herbert_Grom
Hallo Peter,
sorry, aber mein erster Tipp war zu ungenau. Damit geht es nun auch von K5:K14:
Sub Remove_Duplicates_activeColumn()
Range(Cells(5, 11), Cells(14, 11)).RemoveDuplicates Columns:=1, Header:=xlYes
End Sub
Servus
AW: zuvor noch die Anzahl Doppelter ermitteln owT
19.08.2020 15:21:16
neopa
Gruß Werner
.. , - ..
Anzeige
AW: zuvor noch die Anzahl Doppelter ermitteln owT
19.08.2020 15:23:09
Herbert_Grom
Wenn er die unbedingt braucht, na klar!
Servus
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Doppelte Werte zählen und löschen in Excel


Schritt-für-Schritt-Anleitung

  1. Daten eingeben: Trage deine Daten in die Spalte K (z.B. K5 bis K15) ein.
  2. Zählen doppelter Werte:
    • In Zelle L5 gib die folgende Formel ein, um die Anzahl der doppelten Werte zu zählen:
      =ZÄHLENWENN($K$5:$K$15; K5)
    • Ziehe das kleine Quadrat in der Ecke der Zelle L5 nach unten bis L15, um die Formel auf die anderen Zellen anzuwenden.
  3. Doppelte Werte löschen:
    • Wähle den Bereich K5 bis K15 aus.
    • Gehe zu „Daten“ > „Duplikate entfernen“.
    • Bestätige die Auswahl und klicke auf „OK“.

Häufige Fehler und Lösungen

  • Fehler: Die Option „Duplikate entfernen“ ist ausgegraut.

    • Lösung: Stelle sicher, dass die Daten in der Auswahl keine leeren Zellen enthalten, da dies die Funktion deaktivieren kann.
  • Fehler: Die Zählung der doppelten Werte ist inkorrekt.

    • Lösung: Überprüfe, ob die Formel korrekt eingetragen und auf den gesamten gewünschten Bereich angewendet wurde.

Alternative Methoden

  • Power Query: Du kannst auch Power Query nutzen, um doppelte Werte zu zählen und zu entfernen. Wähle deine Daten aus, gehe zu „Daten“ > „Abfragen und Verbindungen“ > „Neue Abfrage“. Dort kannst du die Daten transformieren und Duplikate entfernen.

  • Pivot-Tabellen: Eine Pivot-Tabelle kann ebenfalls verwendet werden, um doppelte Werte zu zählen. Wähle deine Daten aus und gehe zu „Einfügen“ > „PivotTable“. Füge das Feld zu den Zeilen und zum Wertebereich hinzu, um die Anzahl der doppelten Werte anzuzeigen.


Praktische Beispiele

Hier ist ein Beispiel, wie du die Anzahl doppelter Einträge zählen kannst:

Angenommen, du hast folgende Namen in K5 bis K15:

K5: Pascal
K6: Heinz
K7: Marlon
K8: Heinz
K9: Marlon
K10: Maurus
K11: Stefan
K12: Maurus
K13: Marlon
K14: Tim

Die Formel in L5 würde dir die Anzahl der Vorkommen von jedem Namen in der Liste anzeigen. Nach dem Zählen kannst du die doppelten Werte einfach löschen.


Tipps für Profis

  • Nutze die ZÄHLENWENN()-Funktion in Kombination mit bedingter Formatierung, um doppelte Werte hervorzuheben, bevor du sie entfernst.
  • Wenn du mit großen Datenmengen arbeitest, solltest du die Funktion „Duplikate entfernen“ regelmäßig nutzen, um die Datenbank sauber zu halten.
  • Für fortgeschrittene Nutzer: Du kannst auch VBA verwenden, um diese Prozesse zu automatisieren. Ein einfaches Makro kann das Zählen und Löschen in einem Schritt durchführen.

FAQ: Häufige Fragen

1. Wie zähle ich doppelte Werte in einem anderen Bereich?
Verändere den Bereich in der ZÄHLENWENN()-Formel entsprechend, z.B. =ZÄHLENWENN($A$1:$A$50; A1).

2. Was passiert, wenn ich „Duplikate entfernen“ klicke?
Excel löscht alle doppelten Werte und behält nur die ersten Vorkommen.

3. Kann ich doppelte E-Mail-Adressen in Excel löschen?
Ja, die oben genannten Schritte funktionieren auch für E-Mail-Adressen. Wende einfach die gleiche Methode an.

4. Wie kann ich die Anzahl doppelter Werte ohne die doppelten selbst anzuzeigen?
Verwende die Formel =ZÄHLENWENN($K$5:$K$15; K5)-1, um nur die Anzahl der Duplikate anzuzeigen, ohne die Originalwerte zu zählen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige