Hallo Dutchi,
das kann man z.B. mit nachfolgendem Makro realisieren
Kopiere das Makro in ein "StandardModul".
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.
Option Explicit
Const strPfad As String = "C:\"
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("00:00:00"), "AutoSave"
.StatusBar = ""
.DisplayAlerts = True
End With
End Sub
Kopiere das Makro in das VBA-Projekt "DieseArbeitsmappe".
Option Explicit
Private Sub Workbook_Open()
Call AutoSave
End SubDas obige Makro speichert jede Stunde die Datei unter dem Namen "Stam_aktuelles Datum_Nummer". Die Nummer wird in Zelle A1 eingetragen und bei jedem Ausführen um den Wert 1 erhöht.
MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]