VBA Suche im Platzhalter

Sub Suche_F()
Dim i As Long, tLR As Long
Dim ZielWks As Worksheet, QuelleWks As Worksheet
Set QuelleWks = Worksheets("Reports")
Set ZielWks = Worksheets("Suchergebnis")
Worksheets("Suchergebnis").Rows("2:" & Worksheets("Suchergebnis").Rows.Count).ClearContents
With QuelleWks
For i = 2 To .Cells(.Rows.Count, 5).End(xlUp).Row
If .Cells(i, 1).Value = "F*" Then
tLR = ZielWks.Cells(Rows.Count, 1).End(xlUp).Row + 1
Debug.Print tLR
With ZielWks
.Range(.Cells(tLR, 1), .Cells(tLR, 5)).Value = QuelleWks.Range(QuelleWks.Cells(i, 1), _
QuelleWks.Cells(i, 5)).Value
End With
End If
Next i
End With
End Sub