Datum speichern
Suzette
folgendes Makro habe ich im Archiv gefunden:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim efz%
With Sheets(3)
efz = .Cells(Rows.Count, 7).End(xlUp).Row + 1
.Cells(efz, 7).Value = Date
.Cells(efz, 8).Value = Time
.Cells(efz, 9).Value = Application.UserName
End With
End Sub
Sorry, ich krieg es echt alleine nicht hin.
Danke im voraus
und liebe Grüße
Suzette