ich sitze gerade an einer Mailingdatei, die ich aus 5 unterschiedlichen Adressdateien zusammengestellt habe. Gibt es eine Möglichkeit mir in einem weiteren Arbeitsblatt alle doppelten Datensätze anzeigen zu lassen?
Vielen Dank für euere Hilfe
David
Sub Tabellenvergleich1()
' vergleicht zwei Tabellen und schreibt Werte, die in
' beiden Tabellen vorkommen, in eine dritte Tabelle
Dim ws As Worksheet
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Set ws = Worksheets("Daten1")
Set ws1 = Worksheets("Daten2")
Set ws2 = Worksheets("Doppelte")
anz = ws.Cells(65536, 1).End(xlUp).Row
anz1 = ws1.Cells(65536, 1).End(xlUp).Row
z2 = 2
For z = 2 To anz
suchwert = ws.Cells(z, 1)
With ws1.Range("a1:a" & anz1)
Set c = .Find(suchwert, LookIn:=xlValues)
If Not c Is Nothing Then
For s = 1 To 12
ws2.Cells(z2, s) = ws.Cells(z, s)
Next
End If
z2 = z2 + 1
End With
Next
End Sub