ich habe ein Code gefunden zum verschieben von daten. Das Verschieben klappt aber nicht und kann meinen Fehler auch nicht finden.
https://www.herber.de/bbs/user/66135.xls
Sub Erledigte()
For i = 1 To Tabelle1.[G65536].End(xlUp).Row
If Cells(i, 12) = "erledigt" Then
x = Tabelle2.[G65536].End(xlUp).Row + 1
Range(Cells(i, 1), Cells(i, 12)).Copy Tabelle2.Cells(x, 1)
Range(Cells(i, 1), Cells(i, 12)) = ""
End If
Next i
End Sub
Gruß