Kopieren / Löschen / Verschieben ?
18.03.2022 13:49:53
Mustafa
Hallo Zusammen,
ich möchte gerne eine Zeile Kopieren / Löschen und in ein anderen Sheet verschieben.
Die Verschiebung ins Sheets "Monat" funktioniert nicht immer manchmal finde ich sogar die Zeile nicht mehr die aus der Verschiebung Offen ---> Monat.
Was mache ich falsch?
Sub Copy()
Sheets("Offen").Select
LetzteZeile = ActiveSheet.Cells(Rows.Count, 5).End(xlUp).Row + 1
For i = 1 To LetzteZeile
If Cells(i, 12) = 1 Then
Rows(i & ":" & i).Select
Selection.Cut
Sheets("Monat").Select
LetzteZeileZwei = ActiveSheet.Cells(Rows.Count, 5).End(xlUp).Row
LetzteZeileZwei = LetzteZeileZwei + 1
Rows(LetzteZeileZwei & ":" & LetzteZeileZwei).Select
ActiveSheet.Paste
Sheets("Offen").Select
Selection.EntireRow.Delete
End If
Next i
End Sub
Anzeige