Änderungen speichern

[ludof]

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

[Werner.M]

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

[ludof]

Hallo Werner.M

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

Schönes WE

Gruß
ludof