Datumsstempel für Speichern
02.11.2016 21:35:13
markus
nach langem "mitlesen" habe ich mich nun mal angemeldet, weil ich auch mal eine Frage habe! :-)
Ich habe einen Code zusammengebastelt, mit dem wird die Datei 1x in dem Ordner gespeichert, aus dem sie geöffnet wurde und zum zweiten in einem "Backupordner"...
Die Backupdatei heisst aber so immer gleich und wird überschrieben, das heisst wenn mir einer die Originaldatei zerschiesst, wird auch im Backupordner eine kaputte Datei abgelegt....
Was muss ich ändern, damit die Datei im Backupordner mit Datum UND Uhrzeit (weil täglich eventuell mehrmal gespeichert wird) gespeichert wird!?
Hier der Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
Application.DisplayFullScreen = False
ActiveWorkbook.Save
ChDir "Z:\355-Foerdertechnik\Backup"
ActiveWorkbook.SaveAs Filename:= _
"Z:\355-Foerdertechnik\Backup\Störungen-Halle55-.xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, Password:="digga", CreateBackup:=True
End Sub
Markus