VBA-AutoSpeichern nur wenn Speicherzeit >5 Mins
13.02.2017 20:06:18
ElmarS
Ich arbeite sehr intensiv mit einer >100 MB Excel-Datei, die mir abstürzt, sobald ich etwas kopiere oder mit dem Pinsel Format übertrage - ich bemühe mich also nichts mehr zu kopieren.
Deswegen steht bei mir AutoWiederherstellen auf 2 Minuten und mit einem Makro, das ich hier irgendwo gefunden habe wird sie auf alle 5 Minuten AutoSpeichern eingestellt:
---------------
Option Explicit
Dim ZeitZuSpeichern As Date
Sub Speichern()
ThisWorkbook.Save
Call AutoSpeichernEinschalten
End Sub
Sub AutoSpeichernEinschalten()
ZeitZuSpeichern = Now + TimeSerial(0, 5, 0) 'hier Intervall einstellen (h, m, s)
Application.OnTime ZeitZuSpeichern, "Speichern"
End Sub
Sub AutoSpeichernAusschalten()
On Error Resume Next
Application.OnTime ZeitZuSpeichern, "Speichern", , False
End Sub
---------------
Manchmal, wenn was ganz wichtiges eingebaut wurde, speicher ich mit STRG+S.
Kann das Makro so umgeschrieben werden, dass die letzte Speicherzeit abgefragt wird, die höherwertig ist als der alle 5 Minuten Rhythmus?
Im
Sub Speichern
If letzte Speicherung - jetzt