Makro erweitern
12.09.2013 13:58:22
Christian
Rudi hatte mir freundlicher Weise ein Makro gebaut mit dem ich mittels Kontrollkästchen eine Zeile auf ein anderes Blatt verschieben kann.Das funktioniert auch super.
Kann mir das jemand so erweitern dass in dem Blatt "erledigte Aufträge" immer das Datum an dem ich die Zeile verschoben (bzw. das Makro ausgeführt habe) in Spalte "P" geschrieben wird ? Das Datum zu jeweiligen Zeile meine ich.
Vielen Dank im Vorraus.
Sub Verschieben()
Dim shp As Shape, rng As Range
With ActiveSheet.Shapes(Application.Caller)
Set rng = .TopLeftCell.EntireRow
.Delete
End With
rng.Copy Sheets("Erledigte Aufträge").Cells(Rows.Count, 1).End(xlUp).Offset(1)
rng.Delete
End Sub