Exceltabelle beim öffnen automatisch speichern
24.11.2015 05:52:30
steffi-gott
noch einmal ein Frage,
Arbeitskollege fragte mich, ob man diese Speicherung auch automatisch wenn die man die Tabelle öffnet und dann eben alle 30 min ausführt,
da sagte ich bestimmt geht das,
habe dann ein bisschen rumgegooglet und mir ein Makro gebastelt
Private Sub Workbook_Open()
Application.OnTime Now() + TimeValue("00:00:05"), "speichern"
'Zeit und Funktion einstellen ' Code der immer im Takt laufen soll
' habe hier erstmal 5 sec eingestellt um zu sehen ob er auch funktioniert
Dim BackUpName$
Application.ScreenUpdating = False
Application.DisplayAlerts = False
BackUpName = "D:\Aufbau\backup\_" & ThisWorkbook.Name & "_" & _
Date & "_" & Format(Time, "hhmmss") & "_" & ".xlsm"
ThisWorkbook.SaveCopyAs Filename:=BackUpName
End Sub
bei öffnen funktioniert dieser Code und speichert er mir Tabelle,
nach 5 sec. soll die nächste Speicherung durchgeführt werden,
hier erhalte ich aber Fehlermeldung
Das Makro D:\Aufbau\backup\_.xlsm!speichern kann nicht ausgeführt werden.
Das Makro ist möglichweise in diese Arbeitsmappe nicht verfügbar, oder alle Makro wurden deaktiviert
was mache ich hier falsch,
das Makro ist doch da, die Tabelle auch, sollte doch dann auch funktionieren
Danke für eure Hilfe
Anzeige