Zeile ausschneiden und verschieben
01.12.2021 09:15:14
Mustafa
der u. g. Code Kopiert die Zeile und Blendet die Zeile aus und fügt die in ein anderes Blatt.
Soweit ein Filter aktiviert wird werden die ausgeblendte Zeilen mit angezeigt sprich offene Posten und erledigte Posten.
Kann man den Code umschreiben das Kopiert gelöscht und verschoben wird?
Sub Copy()
Sheets("Offen").Select
LetzteZeile = ActiveSheet.Cells(Rows.Count, 5).End(xlUp).Row
For i = 1 To LetzteZeile
If Cells(i, 12) = 1 Then
Rows(i & ":" & i).Select
Selection.Copy
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.Hidden = True
End If
Next i
End Sub