Ich habe zwei Tabellen "Meine" und "Fremde". In Tabelle Meine stehen in der Spalte A ca. 9000 Nummernwerte (13 stellige) Zahlen. Hiervon kommt jede in der Spalte A jeder Wert nur einmal vor. In der Tabelle "Fremde" stehen in Spalte a ebenfalls ca. 9000 Nummernwerte. In Spalte B stehen auch ca. 9000 Nummernwerte. Die Werte aus Spalte B sind auch 13 stellige Zahlen. Ich hätte gerne, dass mir die Tabelle Meine nun die Spalte mit der Tabelle Fremde Spalte B auf gleichheit abprüft und mir dann im Falle einer Gleichheit, die entsprechende komplette Zeile der Spalte B aus Fremde in ein neues Tabellenblatt (Result) kopiert. So weit so gut. Ich konnte mit zwei Schleifen bisher lediglich verwirklichen, dass mir der gleiche Wert aus Spalte B, aber nicht die ganze Zeile kopiert wird. Wäre echt super, könnte einer von euch mir helfen. Ich danke euch schon mal von Herzen und wünsch euch nen tollen Tag. Hier mein Code:
Dim Loletzte As Long
Dim RngZ As Range
Dim oZelle As Object
For Each oZelle In Worksheets("Meine").Range("A1:a10")
For Each RngZ In Worksheets("Fremde").Range("D1:D10")
Loletzte = Worksheets("Result").Cells(Rows.Count, 2).End(xlUp).Row + 1
If RngZ Like oZelle Then Worksheets("Result").Cells(Loletzte, 2) = RngZ
Next RngZ
Next oZelle