Makro Autosicherung Kopie

Question

Hallo Forum,

ich benötige ein Makro, welches alle 24 Stunden eine Kopie von meiner Excelmappe erstellt, diese sollte chronologisch in einem bestimmten Verzeichnis abgelegt werden.

ich habe bereits folgendes Makro gefunden, welches ich auch schon in "Diese Arbeitsmappe" abgelegt habe, aber es fuktioniert nicht:

Const strPfad As String = "C:\Versuch\"

Sub AutoSave()
'Speichernummer in Blatt "Tabelle1" in Zelle A1 schreiben
Sheets("Tabelle1").Range("A1") = Sheets("Tabelle1").Range("A1") + 1

With Application
.DisplayAlerts = False
'Nur zur Info in der Statusleiste einen Speichertext anzeigen
.StatusBar = "Datei wird gesichert..."
'Datei in Pfad aus Variablen "strPfad" unter dem Namen "Stam_Datum_Speichernummer" speichern
ThisWorkbook.SaveAs strPfad & "Stam_" & Format(Now, "dd.mm.yyyy") _
& "_" & Sheets("Tabelle1").Range("A1") & ".xls"
'Prozedur nach Ablauf der Zeit neu starten, Zeitangabe erfolgt in hh:mm:ss
.OnTime Now + TimeValue("24:00:00"), "AutoSave"
.StatusBar = ""
.DisplayAlerts = True
End With
End Sub

Meine Makrokenntnisse sind ungefähr Null

Kann mir jemand helfen?

Answer 1

suche mal im Forum nach OnTime.

Gruß Hajo

Answer 2

Hallo Hoax,

das Makro unten speichert jedes mal beim schließen eine Sicherhietskopie und wecheslt täglich den Dateinamen.

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)

On Error Resume Next
ActiveWorkbook.Save
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
"c:\sicher\Kopie Plan vom " & Format(Now, "YYYY-MM-DD"), FileFormat:=xlOpenXMLWorkbookMacroEnabled _
' , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
' CreateBackup:=False
If Application.Workbooks.Count <= 2 Then
Application.Quit
Else
ActiveWorkbook.Close
End If
End Sub

Answer 3

Hallo Forum,

unter OnTime konnte ich leider nichts finden,
aber die zweite Antwort funktioniert gut.

Könnte man da noch einen 24 Stunden Timer einbauen?

Gruß

Hajo