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
   

Doppelte Einträge in eigene Spalte extrahieren

101073

 


 

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
   

Relevante Artikel

  • 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 auch das absteigende Sortieren demonstriert. Bis Excel 2003 ist die Anzahl...

  • Kommentare aus Zellinhalten generieren

    101076 Das Makro fügt innerhalb der Selektion in jede Zelle einen Kommentar ein. Inhalt des Kommentars ist das aktuelle Datum sowie der entsprechende Zellinhalt. Sollte bereits ein Kommentar...

  • Liniertes Computerpapier erzeugen

    101082 Mit dem nachfolgenden Code ist es möglich, jede zweite Zeile im markierten Bereich farbig zu hinterlegen. Es wird eine Art liniertes Computerpapier erzeugt werden, wie es in den Anfängen des...

  • Verbundene Zellen finden

    101023 Das folgende Makro findet alle verbunden Zellen und gibt die Zelladressenin einer MessageBox aus.Sub VerbundeneZellen_Adressen()'Die Zelladressen aller verbundenen Zellen werden...

  • Daten sofort bei Eingabe sortieren

    101080 Das nachfolgende Makro sortiert alle in einem Tabellenblatt eingegebenen Werte automatisch nach den Werten der Spalte A aufsteigend. Dabei werden die Zellen A1 bis A100 berücksichtigt. Die...

   

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