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?