AW: Speichern
14.08.2008 19:11:25
Ramses
Hallo
VB-Editor starten mit "Alt"+"F11"
Doppelklick auf "Projekt Dein_Mappennamexls"
Das gehört in das Klassenmodul "Diese Arbeitsmappe" deiner Mappe
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnTime schedTime, "StartBackup", schedule:=False
End Sub
Private Sub Workbook_Open()
Application.OnTime Now + TimeSerial(0, 0, 60), "StartBackup"
End Sub
Das gehört in ein Modul deiner Mappe.
Rechte Maustaste auf deine Mappe im VB-Editor
Einfügen Modul
Option Explicit
Public schedTime As Date
Sub StartBackup()
ThisWorkbook.Save
'USB-Stick = Laufwerk I:
ThisWorkbook.SaveCopyAs "I:\" & ThisWorkbook.Name
scheddate = Now + TimeSerial(0, 0, 60)
Application.OnTime schedTime, "StartBackup"
End Sub
Ungetestet,... sollte aber tun
Gruss Rainer