Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 21:55:37
Preiserhöhung über mehrere Jahre berechnen
17.04.2024 20:19:32
Endzeitpunkt berechnen aus d:hh:mm errechnen
17.04.2024 18:57:33
Errinnerungsfunktion
17.04.2024 16:56:58
Stunden addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1000to1004
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1000to1004
1000to1004
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Speichern

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?

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
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 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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige