Tabellen vergleichen und zusammenführen

StefN

Grünschnabel
Hallo zusammen,

ich versuche jetzt schon seit einiger Zeit zwei Tabellen mit Vor- und Nachnamen zu vergleichen und eine zugehörige Nummer aus Tabelle3 in Tabelle1 zu kopieren.

Tabelle1: Nachnamen ab F3, Vornamen ab F4, Nummer ab L3
Tabelle3: Nachnamen ab A2, Vornamen ab B2, Nummer ab E2

Mein Versuch, funktioniert leider nicht wie es sollte:

Code:
Sub Schaltfläche1_KlickenSieAuf()


Dim i As Integer
For i = 1 To 1500

If Tabelle1.Cells(i, 6) = Tabelle3.Cells(i, 1) And Tabelle1.Cells(i, 7) = Tabelle1.Cells(i, 2) Then
        Tabelle3.Cells(i, 5).Copy
        Tabelle1.Cells(i, 12).Insert

End If
 
Next i

End Sub

Vielen Dank im Voraus,
Steffen