ich möchte über ein Makro die geöffnete Datei unter dem aktuellen Dateinamen automatisch alle 5 Minuten abspeichern lassen.
Bin für jeden Tip dankbar!
Gruß,
Goofe
Sub autosave()
On Error Resume Next
Dim NextTime As Date
Dim sPathB As String, sPathW As String
Sheets("Tabelle1").Range("a1").Value = Now + TimeValue("00:10:00")
ActiveWorkbook.Save
Application.OnTime CDate(Sheets("Tabelle1").Range("a1").Value), "autosave"
Application.DisplayAlerts = True
End Sub
Sub abspeichern()
ActiveWorkbook.Save
Application.OnTime Now + TimeValue("00:05:00"), "abspeichern"
End Sub
Um in Excel automatisch alle 5 Minuten zu speichern, kannst Du ein einfaches VBA-Makro verwenden. Folge diesen Schritten:
Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Klicke im Menü auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.
Kopiere den folgenden VBA-Code in das Modul:
Sub autosave()
On Error Resume Next
Dim NextTime As Date
Sheets("Tabelle1").Range("a1").Value = Now + TimeValue("00:05:00")
ActiveWorkbook.Save
Application.OnTime CDate(Sheets("Tabelle1").Range("a1").Value), "autosave"
Application.DisplayAlerts = True
End Sub
Schließe den VBA-Editor und gehe zurück zu Excel.
Starte das Makro, indem Du ALT + F8 drückst, das Makro autosave auswählst und auf Ausführen klickst.
Jetzt wird Deine Datei automatisch alle 5 Minuten gespeichert.
Fehler: Das Makro wird nicht ausgeführt.
Fehler: Die Datei wird nicht gespeichert.
Fehler: Das Makro speichert nicht alle 5 Minuten.
TimeValue("00:05:00") korrekt im Code angegeben hast.Falls Du VBA nicht nutzen möchtest, kannst Du die integrierte Funktion von Excel nutzen:
Extras > Optionen.Speichern.Automatisches Speichern alle und gib den gewünschten Intervall (z.B. 5 Minuten) ein.Diese Methode ist jedoch in der Regel weniger flexibel als das VBA-Makro.
Du kannst das Makro anpassen, um verschiedene Intervalle zu verwenden. Zum Beispiel:
Sub autosave()
On Error Resume Next
Sheets("Tabelle1").Range("a1").Value = Now + TimeValue("00:10:00") ' für 10 Minuten
ActiveWorkbook.Save
Application.OnTime CDate(Sheets("Tabelle1").Range("a1").Value), "autosave"
End Sub
Mit diesem Code wird die Datei alle 10 Minuten gespeichert. Ändere einfach den Wert in TimeValue entsprechend.
Application.DisplayAlerts = False, um Benachrichtigungen während des Speichervorgangs zu unterdrücken, wenn Du sicher bist, dass keine Bestätigung erforderlich ist.1. Kann ich das Makro auch in Excel 2003 verwenden?
Ja, das VBA-Makro funktioniert auch in Excel 2003. Stelle sicher, dass Du die Datei im richtigen Format (z.B. .xls) speicherst.
2. Wie kann ich das Intervall für das automatische Speichern ändern?
Ändere einfach den Wert in der Zeile TimeValue("00:05:00") im VBA-Code auf die gewünschte Zeit.
3. Was mache ich, wenn ich das Makro nicht finden kann?
Vergewissere Dich, dass Du das Modul im richtigen VBA-Projekt erstellt hast. Du kannst die Makros über ALT + F8 aufrufen.
4. Gibt es eine Möglichkeit, die Datei manuell zu speichern?
Ja, Du kannst jederzeit Strg + S drücken, um die Datei manuell zu speichern, unabhängig vom automatischen Speichern.