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