Hallo,

ich komme an einer Stelle meines Makros leider nicht mehr weiter und würde mich sehr über eine Hilfestellung hierzu freuen.
In meiner Excel-Datei befinden sich zwei Tabellenblätter: Tabelle1 und Tabelle2.

Stimmt die Kennzahl in Spalte I in Tabelle2 mit der Kennzahl in Spalte C in Tabelle1 überein, soll die ganze Zeile aus Tabelle2 unter der entprechenden Zeile in Tabelle1 kopiert werden. Bei einer Übereinstimmung funktioniert der Code. Leider finde ich keine Lösung, wenn es mehrere Übereinstimmung aus Tabelle2 für die Kennzahl in Tabelle1 gibt. Bei dem derzeitigen Code wird, die Zeile bis zur letzten Übereinstimmung immer wieder überschrieben. Ich möchte aber gern alle Zeilen aus der Tabelle2 in die Tabelle1 kopieren.

Sub Schritt_02()

Dim LoI As Long
Dim LoJ As Long
Dim LoLetzte1 As Long
Dim LoLetzte2 As Long

With Worksheets("Tabelle1")
    LoLetzte1 = IIf(IsEmpty(.Cells(Rows.Count, 3)), _
    .Cells(Rows.Count, 3).End(xlUp).Row, .Rows.Count)
End With
With Worksheets("Tabelle2")
    LoLetzte2 = IIf(IsEmpty(.Cells(Rows.Count, 9)), _
    .Cells(Rows.Count, 9).End(xlUp).Row, .Rows.Count)
End With

    For LoI = 1 To LoLetzte1
    For LoJ = 1 To LoLetzte2
        If Worksheets("Tabelle1").Cells(LoI, 3) <> "" Then
            If Worksheets("Tabelle1").Cells(LoI, 3) = _
               Worksheets("Tabelle2").Cells(LoJ, 9) Then
               Worksheets("Tabelle2").Rows(LoJ).Copy Destination:=Sheets("Tabelle1").Rows(LoI + 2)
            Exit For
 
        Exit For
      End If
    End If
    Next LoJ
    Next LoI
 
End Sub

Zur besseren Verständlichkeit hier die beiden Tabellen vor Ausführung des Makros:

Tabelle1

Tabelle2

Das gewünschte Ergebnis sollte so aussehen:

Vielen Dank schon einmal im Voraus!