Ich möchte im Dateinamen das aktuelle Änderungsdatum (evtl. sogar noch die Uhrzeit) anzeigen lassen. Ist das möglich?
Vielen Dank.
Esther
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Datum As String
Datum = Format(Date, "YY-MM-DD") & " " & Format(Time, "hh:mm")
ActiveWorkbook.SaveAs FileName:="D:\Murks\Mappe1 " & Left(Datum, 11) & "-" & Right(Datum, 2) & ".xls", _
FileFormat:=xlNormal, _
Password:="", _
WriteResPassword:="", _
ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub