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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen