Hallo Experten,
auf dem Laptop habe ich meine Daten die sich täglich ändern (Kassenbuch). Da mir in letzter Zeit immer wieder eine Festplatte abschmierte (Extern), möchte ich meine Daten auf einen USB Stift sichern, sobald ich das Programm schließe. Wie könnte ich das bewerkstelligen?
Mir ist bewusst dass ich hier im Excelforum bin. Es handelt sich auch um eine Exceltabelle die ich regelmäßig sichern möchte. Sollte ich hier falsch sein, lieber MOD, bitte verschieben.
Schönen Gruß
Claude
PS: Muss dazu sagen dass es sich um einen Block handelt (Kassen von 2000-2009 und demnächst kommt 2010 dazu). Ich habe keine Lust jedes Mal alle Daten auf einen Stift zu kopieren. Zumal ich oft gestört werde und in der Zwischenzeit die Platte sich verabschieden.
Hallo Claude,
eine möglichkeit wäre ein Makro in der Datei zu installieren, das vor dem Schliessen der Datei ein Kopie von der Datei auf dem USB-Stick/Laufwerk speichert.
Voraussetzung ist natürlich, das dann der USB-Stick auch eingesteckt ist.
Gruß
Franz
Beispiel-Makro
Option Explicit
'Prozedur unter "DieseArbeitsmappe"
Private Sub Workbook\_BeforeClose(Cancel As Boolean)
'Datei sichern
Dim PfadUSB
On Error GoTo Fehler
PfadUSB = "E:\BackUpUSBxx" '########## anpassen!
Me.SaveCopyAs PfadUSB & Application.PathSeparator & Me.Name
MsgBox "Datei """ & Me.Name & """ wurde gesichert."
Fehler:
With Err
Select Case .Number
Case 0 'Alles palletti
Case 1004
MsgBox "Fehler-Nr.: " & .Number & vbLf & .Description & vbLf & vbLf \_
& "Wahrscheinlich wurde der USB-Stick nicht eingesteckt"
Case Else
MsgBox "Fehler-Nr.: " & .Number & vbLf & .Description
End Select
End With
End Sub