Wenn Wert dann Zelle kopieren

Sub Erledigt()
Dim i As Long, suchCol As Long
Dim strSearch As String
Dim srcWks As Worksheet, tarWks As Worksheet
Worksheet("Erledig").Range("a4:200").Clear
Set srcWks = Worksheets("Offene Punkte")
Set tarWks = Worksheets("Erledigt")
suchCol = 11
strSearch = "erledigt"
With srcWks
For i = 4 To .Cells(Rows.Count, suchCol).End(xlUp).Row
If .Cells(i, suchCol).Text = strSearch Then
Rows(i).Copy Destination:=tarWks.Cells(tarWks.Cells(Rows.Count, 1).End(xlUp). _
Row + 1, 1)
End If
Next i
End With
End Sub