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:
Vielen Dank im Voraus,
Steffen
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 SubVielen Dank im Voraus,
Steffen
