Exel Datei automatisch speichern

Guten Morgen!

Ich benötige einmal Hilfe von Euch! Ich möchte, dass Exel 2003 alle 5 Minuten die Daten speichert. Das ich es über Makros schaffe, habe ich mittlerweile herusgefunden. Hier nun das Makkro :

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

Ist das bisher richtig?
Jetzt kommen meine Fragen. Wie füge ich nun dieses Makro in der Exel Datei ein? Das Makro sollte aebenfalls automatisch aktiviert sein, sobald die Datei geöffnet wird.

Über eine Antwort würde ich mich freune.

Viele Grüße aus Beckum!

TriStarWorld

 

Warum verwendest du nicht einfach das Add-In "Automatisches Speichern"?

Man muss doch nicht jedesmal das Rad neu erfinden...

 

Hi,

meines Wissens, legt er unter Office 2003 dann nur eine Sicherungsdatei an und speichert die Daten aber nicht in der Datei selber.

TriStarWorld

 

Dann hätte MS die Funktion im Vergleich zu Office 2000 aber arg umgebaut. Falls es tatsächlich so ist, hast du dir die Optionen von "Automatisches Speichern" mal angeschaut? Vielleicht kann man das wieder auf 2000er-Verhalten umstellen.

 

Hallo,

hier die Lösung!!

Private Sub Workbook_Open()

SaveMySelf

End Sub

Diesen Code legst Du in das Codemdodul in "DieseArbeitsmappe".
Alt+F11 = VBA Editor, Baumelemente in der Projektansicht alle
aufklappen, Doppelklick auf "DieseArbeitsmappe".

Dann fügst Du ein Module ein, geht über Einfügen->Modul und
kopierst diesen Code darein...
Code:

Public Sub SaveMySelf()

ThisWorkbook.Save

Application.OnTime Now + TimeValue("00:05:00"), "SaveMySelf"

End Sub


Speichen und schließen und wieder öffnen

Viele Grüße aus Beckum

TriStarWorld

 

Nur noch mal abschließend zum Verständnis:

Das ist die Funktion aus Excel 2000 die ich meine. Bist du sicher dass sie unter Excel 2003 nur eine zusätzliche Sicherungsdatei erstellt?

Ich bin nämlich gerade dabei einen neuen Rechner fürs Büro auszustatten und hatte eigentlich vor Office 2003 zu verwenden. Aber wenn die Funktion derart verändert wurde dann wirds eben doch eine zweite Lizenz für Office 2000.

 

Hi,

er speichert nur die Sicherheitkopie ab. Das ist leider so. Es gibt aber sicherlich irgend ein Tool, der abhilfe schafft. Es geht aber auch so wie ich beschrieben habe.

Viele Grüße aus Beckum

TriStarWorld

 

Hi TriStarWorld,

mit deinem Code hat man aber das Problem, dass sich die Arbeitsmappe automatisch wieder öffnet.

 

Hi Hascheff,

Wo soll sie sonst gespeichert sein? ThisWorkbook bezieht sich auf die Arbeitsmappe mit dem Code und dort steht auch die Prozedur.

Das Problem liegt ganz wo anders - der Code für das wiederholte Aufrufen der Prozedur SaveMySelf wird nicht beendet. Indem man die Zeit, nach der wieder aufgerufen werden soll, auf eine Variable schreibt, kann man den Code problemlos beenden. Und so funktioniert es

in einem allgemeinen Modul:

Code:

Option Explicit
Public DaEt As Date

' Ursprungscode für das "Zeitmakro" ist von Hajo Ziplies 
' http://hajo-excel.de/
Sub Zeitmakro()
    DaEt = Now + TimeValue("00:05:00")
    ThisWorkbook.Save
    Application.OnTime DaEt, "Zeitmakro"
End Sub

und unter DieseArbeitsmappe:

Code:

Option Explicit

Private Sub Workbook_Open()
    Zeitmakro
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next
    Application.OnTime EarliestTime:=DaEt, Procedure:="Zeitmakro", Schedule:=False
End Sub