Hallo zusammen,

das ziel ist es, die werte in der spalte A tabelle 1 in der tabelle 2 spalte A wiederzufinden mit einem Do loop befehl. das was passieren soll ist, dass der wert in A2(tabelle1) in tablle 2 im range A  zu suchen bis ein vordefinierter Cell (z.B. Cells(20,1) in range A erreicht ist. Wenn der Wert A2 (tabelle1) in range A (tabelle 2) gefunden ist, wird eine kopie von dem wert gemacht. Wenn A2(tabelle1) nicht in Tabelle 2 range A gefunden wird, springe man in die nächste Spalte "B2" in tabelle 1 und sucht diesen Wert in tabelle 2 unter range B, bis dieser wert gefunden wird. Wenn nicht, geht es nach tablle 1 C2 um diesen Wert in Tabelle 2 range C zusuchen etc.

habe hier mal meine Anfänge dargelegt. Ich hoffe es hilft ein wenig. Ich komme da leider nicht mehr weiter und würde mich über eine kleine hilfe freuen.

Danke

https://i.stack.imgur.com/q2Jgc.jpg

https://i.stack.imgur.com/bKPog.jpg

 Dim wp As Workbook
 Dim ws As Workbook
 Dim c As Long, r As Long, rng As Range
 Dim w As Integer
 Dim t As Integer


 Set ws = Workbooks.Open("C:\Users\Yavuz\Desktop\a.xlsx")
 Set wp = Workbooks.Open("C:\Users\Yavuz\Desktop\t.xlsx")


  Do
    w = w + 1
    i = i + 1
    t = 0
      Do
         t = t + 1
         If ws.Sheets("Tabelle1").Cells(i, w).Value = wp.Sheets("Tabelle2").Cells(t, w).Value Then
         wp.Sheets("Tabelle2").Cells(t, w).Copy
        Exit Do

     End If
  Loop Until wp.Sheets("Tabelle2").Cells(t, w).Value = treu
     i = 0
Loop