Ich versuche, einen Code zu erstellen, der einen Bereich von Zellen durchsucht, und kopiere die Zellen, die einem bestimmten Parameter entsprechen, und füge sie an einer anderen Stelle in der Arbeitsmappe ein.

Ich möchte alles mit dem Buchstaben L von "sheet5" kopieren und einen bestimmten Bereich nach "sheet1" kopieren

Ich muss etwas falsch mit dem Schleifenteil des Codes haben, weil nur die Oberseite des Zellenbereichs kopiert wird. Ich möchte, dass das Einfügen in Zeile 5 beginnt und sich weiter nach unten bewegt. Bedeutet das, dass ich IRow = IRow + 1 korrekt unter die Einfügefunktion gesetzt habe?

Sub Paste_Value_Test()

Dim c As Range
Dim IRow As Long
Dim rDestination As Excel.Range

Application.ScreenUpdating = False
Sheets("sheet5").Activate
For Each c In Sheets("sheet5").Range("b2", Range("N65536").End(xlUp))
    If c.Value = "L" Then
        Sheets("sheet5").Cells(c.Row, 2).Copy

        Set rDestination = Worksheets("sheet5").Cells(5 + IRow, 12)

        rDestination.Select
        Selection.PasteSpecial Paste:=xlPasteValues, _
        Operation:=xlNone, _
        SkipBlanks:=False, _
        Transpose:=False

        IRow = IRow + 1

    End If
Next c

End Sub

Ich bin für jede Hilfe sehr dankbar. Ich bin relativ neu bei VBA und werde mich ernsthaft damit beschäftigen.