Hallo,
wenn eine 1 in der Zeile L oder M oder N steht, soll die Zeile ausgeblendet und im Blatt "Monat" eingefügt werden.
Was mache ich hier falsch?
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
Section.EntireRow.Hidden = True
End If
Next i
End Sub