Zellen in anderes Tabellenblatt kopieren

Sub Schaltfläche2_Klicken()
Dim i As Long, tLR As Long
Dim tarWks As Worksheet, srcWks As Worksheet
Set srcWks = Worksheets("Tabelle1")
Set tarWks = Worksheets("Tabelle2")
With srcWks
For i = 1 To .Cells(.Rows.Count, 6).End(xlUp).Row
If .Cells(i, 6).Value = "Widervorlage" Then
tLR = tarWks.Cells(Rows.Count, 1).End(xlUp).Row + 1
Debug.Print tLR
With tarWks
.Range(.Cells(tLR, 1), .Cells(tLR, 6)).Value =
srcWks.Range(srcWks.Cells(i, 1), srcWks.Cells(i, 6)).Value
End With
End If
Next i
End With
End Sub