Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
784to788
784to788
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Duplikate ermitteln

Forumthread: Duplikate ermitteln

Duplikate ermitteln
31.07.2006 16:09:27
Ralf
Hallo Excel Experten,
ich habe in Tab1 in Spalte A ca. 4000 Zahlen und
in Tab2 in Spalte A auch ca 4000 Zahlen. Nun möchte ich
gerne, das mir Excel in Tab3 die doppelten auflistet.
Ich habe es schon selbst versucht, gesucht ! , aber leider
bisher ohne Erfolg.
Bin für jeden Tipp dankbar :-)
Gruß
Ralf
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Duplikate ermitteln
31.07.2006 16:19:01
Hans
Hallo Ralf,
zuerst die Alternative "zuFuss":
- Beide Tabellen zusammenfassen
- in Zelle B1 die Formel =ZÄHLENWENN(A:A;A1)
- Formel über den relevanten Bereich nach unten kopieren
- Formeln in Werte umwandeln
- Sortieren nach Spalte B
- Über den Spezialfilter "ohne Duplikate" in Spalte C filtern
- Werte aus Spalte C in Tabelle3 übernehmen
- Temporäre Daten löschen
Etwas bequemer als VBA:

Sub Vergleichen()
Dim wksA As Worksheet, wksB As Worksheet, wksC As Worksheet
Dim vRow As Variant
Dim lRow As Long, lRowT As Long
Set wksA = Worksheets(1)
Set wksB = Worksheets(2)
Set wksC = Worksheets(3)
lRow = 1
Do Until IsEmpty(wksA.Cells(lRow, 1))
vRow = Application.Match(wksA.Cells(lRow, 1).Value, wksB.Columns(1), 0)
If Not IsError(vRow) Then
lRowT = lRowT + 1
wksC.Cells(lRowT, 1).Value = wksA.Cells(lRow, 1).Value
End If
lRow = lRow + 1
Loop
End Sub

gruss hans
Anzeige
Danke Hans !!!
31.07.2006 16:32:41
Ralf
Hallo Hans,
ich habe Deinen Vorschlag natürlich sofot ausprobiert,
und da ich den VBA Code noch ein wenig "anpassen" mußte
kommt mein ( nicht minder großer :-) ) DANK auch etwas
verspätet. GAAAAAAANZ TOLL , es funktioniert ganz super!
Vielen Dank und viele :-) Grüße
Ralf
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige