automatisches backup
30.12.2017 12:03:23
Al
ich habe eine Exceldatei mit mehreren Blättern als Datenbank erstellt, auf das andere Berechnungsblätter zurgreifen können. Die Datenbank soll kontinuierlich erweitert werden können. Damit man die Übersicht der Erweiterungen behält, habe ich mir überlegt, ein Makro zu schreiben, dass nachdem die Datei gespeichert wurde, ein automatisches Backup in einem von mir vorgesehenen Ordner/Pfad (mit Dateinamen&DatumUhrzeit) erstellt wird.
Da meine Programmierkenntnisse eher schlecht sind, bitte ich um Hilfe.
Mein Code, den ich in "DieseArbeitsmappe" eingefügt habe, sieht wie folgt aus:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean)
Dim sFileName As String
Dim sDateTime As String
Application.DisplayAlerts = False
With ThisWorkbook
sDateTime = " (" & Format(Now, "yyyy-mm-dd hhmm") & ").xlsm"
sFileName = Application.WorksheetFunction.Substitute _
(.FullName, ".xlsm", sDateTime)
.SaveCopyAs sFileName:="C:\Users\Surface 3 Pro\Desktop\"
End With
Application.DisplayAlerts = True
End Sub
Danke für die Hilfe. Gruß
Al