Clever-Excel-Forum - Änderungen speichern

Hallo

Liebe Profis ich benötige mal eure Hilfe.
Wie kann ich den nachfolgenden Code abändern das er nicht immer nur in A2 rein schreibt sondern, nächste Eintragung soll dann in A3 usw. kommen?
Wäre euch sehr dankbar für eure Hilfe

Code:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

ActiveWorkbook.ActiveSheet.Range("A2") = "Zuletzt geändert: " & Application.UserName & " " & Now

End Sub

Gruß
ludof

Hallo,

Code:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

With ActiveSheet

    .Range("A" & .Cells(.Rows.Count, "A").End(xlUp).Offset(1).Row) = "Zuletzt geändert: " & Application.UserName & " " & Now

End With

End Sub

Gruß Werner

Hallo Werner.M

Ich danke dir für die super schnelle Hilfe, nun funktioniert es wie gewünscht.

Schönes WE

Gruß
ludof