Zelle ausschneiden und verschieben
30.01.2020 10:10:22
MaBlu
ich habe ein Makro, das mir bei Bedingung die Zelle ausschneidet und Verschiebt in ein anderes Tabellenblatt!
Das funktioniert sehr gut, ich möchte aber dass es die Zeile ausschneidet und verschiebt und aber wieder eine Zeile einfügt im Ursprungs Blatt so dass ich immer gleichviel Zeilen die Formatiert sind habe.
Grund sonst geht mein Filter nicht weil es aus dem Bereich fällt.
Sub Erledigte()
ActiveSheet.Unprotect ("") ' Schutz auf Tabelle setzen
Dim lngI As Long
With Worksheets("ToDo-Liste")
For lngI = .Range("A65536").End(xlUp).Row To 2 Step -1
If .Cells(lngI, 8).Value = "erledigt" Then
With Worksheets("ToDoerledigt")
Rows(lngI).Cut .Cells(.Range("A65536").End(xlUp).Row + 1, 1)
Rows(lngI).Delete Shift:=xlUp
End With
End If
Next lngI
End With
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True ' Schutz auf Tabelle setzen
End Sub
Gruss MaBlu