Makro Zeile ausschneiden und einfügen
21.02.2020 08:14:46
Frank
ich habe eine Projektliste erstellt, die ein Sheet mit Aufgaben erhält. Hier sollen erledigte Aufgaben (komplette Zeile) markiert, ausgeschnitten und im Sheet "erledigt" untereinander eingefügt werden.
In der letzten Spalte des Sheets "Erledigt" soll das heutige Datum noch eingefügt werden.
Danach soll die leere Zeile im Sheet "Aufgaben" gelöscht werden.
Mein Problem ist, dass die Formel nicht kenne, damit die Zeilen untereinander im Sheet " _ erledigt" befüllt werden. Daher sieht das aktuell so aus:
Sub Erledigt()
' Erledigt Makro
Selection.Cut
Sheets("Erledigt").Select
Range("A9").Select
ActiveSheet.Paste
Range("G9").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Range("G10").Select
Sheets("Aufgaben").Select
Selection.Delete Shift:=xlUp
Range("C54").Select
End Sub
