Bei dem folgenden Code klappt das mit dem Paste nicht.
Was mache ich da bitte falsch.
Sub ZeilenVerschieben()
Dim rfirst As Integer, rlast As Integer
Dim wksDAT As Worksheet, wksHTB As Worksheet
Set wksDAT = Sheets("Tabelle1")
Set wksHTB = Sheets("Tabelle2")
rlast = Cells(Rows.Count, 1).End(xlUp).Row
For rfirst = 2 To rlast
If InStr(Cells(rfirst, 1), "FA") Then
Cells(rfirst, 1).Cut
wksHTB.Cells(Rows.Count, 1).End(xlUp).Paste
Application.CutCopyMode = False
End If
Next rfirst
End Sub
Die jeweils ausgeschnittene Zeile soll in dem Tabellen2 unten rangeklebt werden.
Danke schin mal.
Grüße, Fritz