Speichern 14.08.2008 17:58:00 Baywatch Wie kann ich eine Dtei automatisch alle 60 sekunden speirchern lassen und das an mehreren Orten? heißt festplatte und usb stick zum beispiel? Anzeige
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 ExplicitPrivate Sub Workbook_BeforeClose(Cancel As Boolean) Application.OnTime schedTime, "StartBackup", schedule:=FalseEnd SubPrivate 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 ExplicitPublic schedTime As DateSub 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 Anzeige