Ich möchte eine Datei doppelt speichern:
"Vor dem Befehl Application quit"soll ein File mit dem Speicherdatum im Namen angelegt werden (Save as) und als zweites noch ein File mit dem Originalnnamen der Datei (save). Dies möchte ich mit einer Schaltfläche/Procedur auslösen.
Habs mit folgender Procedur versucht:
Sub schliessen()
ThisWorkbook.SaveAs Filename:="M:\Isler\backups\Backup_" & Format(Date$, "ddd.dd.mmm.yy") & _
_
".xlsm"
Application.Quit
End Sub
So wird das erste File gespeichert, das Originalfile aber nicht. Sollte doch beim Verlassen des Programms!
Kann mir jemand die Lösung erklären?
mfG
HJK