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
|