Doppelte Einträge in eigene Spalte extrahieren

Dieses Makro extrahiert in Spalte B alle Daten, die doppelt vorhanden sind.

Nur in Spalte A nicht doppelt vorhandene Einträge werden nicht in Spalte B geschrieben!

Public Sub Liste_doppelte()
Dim wert1(100)
Dim wert2(200)
Dim zeilen
zeilen = 17 'Anzahl der Zeilen die geprüft werden sollen
zaehler = 0

'Werte in Variablen einlesen
For i = 1 To zeilen
wert1(i) = Cells(i, 1)
wert2(i) = Cells(i, 1)
Next i

'Schleife um die Variable wert1(i) mit wert2(i) zu vergleichen
For i = 1 To zeilen
zaehler = 0
    'Schleife, um die Variable wert1(i) mit wert2(i) zu vergleichen
    For j = 1 To zeilen
        If wert1(i) = wert2(j) Then
            zaehler = zaehler + 1
            
                If zaehler > 1 Then
                    Cells(i, 2).Value = wert2(i)
                    'wert2(i) = ""
                End If
        
        End If
    Next j
Next i

End Sub



Das Ergebnis sieht dann wie folgt aus:
Nur die Werte 9, 7, 3 und 6 werden nicht in Spalte A geschrieben,
da nur diese 4 Werte keinen Doppelgänger in Spalte A haben!

  A B
1 Daten gefiltert
2 9  
3 5 5
4 1 1
5 2 2
6 4 4
7 1 1
8 2 2
9 7  
10 1 1
11 1 1
12 10  
13 5 5
14 3  
15 4 4
16 6  
17 4 4

Partnerlinks

Relevante Artikel

  • Konvertieren eines mehrzeiligen Daten-Blocks zu einem konstistenten Datensatz

    In diesem Beispiel zeigen wir Ihnen, wie sich ein nicht konsistenter Datenblock in einen kosistenten Datensatz konvertieren lässt. Die...

  • Sortieren einer Tabelle per VBA mit mehr als 3 Kriterien

    Anbei ein kleines Beispiel für das Sortieren einer Tabelle per VBA mit mehr als 3 Kriterien. Es wird sowohl das auf- als...

  • Zufallszahlen ermitteln

    Das folgende Makro ermittelt Zufallszahlen. Jede Zahl kommt dabei jedoch nur ein einziges Mal vor.Sie geben beim...

  • Zwischenablage per VBA leeren

    Wenn Sie größere Datenmengen über die Zwischenablage in Excel per VBA kopieren, kann dies zu Problemen beim Schließen der...

  • Zeilen (Einträge) abhängig vom Datum löschen

    Aus diesem Datenbestand sollen die Zeilen gelöscht werden, deren Datum in Spalte A im Monat November liegt.     A B C D 1 12.08.2002 daten daten daten 2 15.08.2002 daten daten daten 3 20.08.2002 daten daten daten 4 12.09.2002 daten daten daten 5 15.09.2002 daten daten daten 6 20.09.2002 daten daten daten 7 12.10.2002 daten daten daten 8 15.10.2002 daten daten daten 9 20.10.2002 daten daten daten 10 15.11.2002 daten daten daten 11 15.11.2002 daten daten daten 12 15.11.2002 daten daten daten 13 15.11.2002 daten daten daten 14 12.12.2002 daten daten daten 15 15.12.2002 daten daten daten 16 20.12.2002 daten daten daten Nach...

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.