Bei Start der Datei soll Makro ausgeführt werden!

[Ubi5]

Hallo, vielleicht kann mir jemand weiterhelfen - Danke!

Bei Start einer Excel-Datei sollte tieferstehendes Makro ausgeführt werden. Das Makro sichert alle 10 Minuten die eingegebenen Daten. 

Ich habe mit 

Private Sub Workbook_Open()
Call autosave ()
End Sub

probiert funktioniert aber nicht!!!!!!

Sub autosave()
Dim nexttime
ActiveWorkbook.Save
nexttime = Now + TimeValue("00:10:00")
Application.OnTime nexttime, "autosave"
End Sub

Lg Ubi5

[Gast 123]

Hallo

in den Excel Optionen findest du ein Speichern Menü. Dort kannst du die Zeit  und den Pfad selbst festlegen.
Geht auch über Auto-Open, wenn sich der Code mit dem Recorder aufzeichnen lässt. Ich probiere es gerade:
    Application.AutoRecover.Time = 5  'Minuten    Wiederherstellungs Ordner von MS
    Application.AutoRecover.Path = "C:\Users\Gast\AppData\Roaming\Microsoft\Excel\"
Da kannst du auch deinen eigenen Ordner angeben!

mfg Gast 123

[Kuwer]

Hallo,

was funktioniert nicht?

Gruß, Uwe

[Ubi5]

Mein Problem:

Wenn ich das Makro nachdem ich die Datei geöffnet habe starte, funktioniert es einwandfrei. Alle 10 Minuten werden die eingegebenen Daten gespeichert auch wenn man ohne sichern aus der Datei aussteigt.

Sub autosave()
Dim nexttime
ActiveWorkbook.Save
nexttime = Now + TimeValue("00:10:00")
Application.OnTime nexttime, "autosave"
End Sub

Ich möchte aber, dass das Makro beim öffnen der Datei gestartet wird und somit aktiv ist. 
Das leider konnte ich bis dato nicht hinbringen.

Lg Ubi5

[Kuwer]

Hallo,

steht die Private Sub Workbook_Open() vielleicht nicht im VBA-Modul "DieseArbeitsmappe"?

Auch solltest Du ActiveWorkbook.Save durch ThisWorkbook.Save ersetzen!

Gruß Uwe

[Ubi5]

Danke für alle Hilfestellungen - es funktioniert!

[snb]

Etwas weniger (oder keine) exclamation marks würde mir gefällen.