ich habe zwei Tabellen u.a. mit der Spalte "Straße". Nun möchte ich alle Einträge aus der Tabelle quelle in Tabelle ziel haben, die noch nicht in Tabelle Ziel vor kommen. Also die Tabellen zusammenführen.
Sub zusam()
Dim ziel As Object
Dim export As Object
Set ziel = ThisWorkbook.Worksheets(1)
Set quelle = ThisWorkbook.Worksheets(2)
letztezeileZiel = ziel.Cells(Rows.Count, 5).End(xlUp).Row
letztezeileQuelle = quelle.Cells(Rows.Count, 5).End(xlUp).Row
For x = 1115 To 2 Step -1
For y = 99 To 2 Step -1
If ziel.Range("D" & x).Value = quelle.Range("E" & y).Value Then
Else
quelle.Range("A" & y).EntireRow.Copy Destination:=ziel.Range("A" & letztezeileZiel)
End If
Next
Next
End Sub
Das ist mein bisheriger Code, aber da ist ein Denkfehler drin, da die Else-Bedingung viel zu häufig erfüllt wird. Was mache ich falsch?