Wichtige Dateien automatisch sichern

[Weiss der Geier]

Hallo,

ich hab da mal eine Frage, es soll eine Möglichkeit geben, mit einem Macro oder Vba keine Ahnung, eine Datei, die gerade gespeichert wird, auf zwei verschiedene Orte zu Sichern. Ich hab leider keine Ahnung wie !!

schönen Sonntag

[WillWissen]

Hi Uwe,

schau dir mal diesen MS-Support an. Hier wird das automatische Sichern mit Bordmitteln beschrieben.

[Weiss der Geier]

Hallo Günter,

das mache ich ja schon so, bei Excel und Word, da wird aber nur einmal gesichert, ich wollte gerne es so das z.b. auf A (einen externen Stick) und gleichzeitig einen Backup Ordner gesichert wird. Ohne externe Programme oder so.

schönen Sonntag

[schauan]

Hallo Uwe,

im Prinzip so:
Microsoft Excel Objekt DieseArbeitsmappe

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 
ThisWorkbook.SaveCopyAs ("D:\Test\TestCopy.xlsm") 
End Sub 
 

Damit wird bei jedem Speichern eine Kopie abgelegt. Der Code gehört in das Codemodul von DieseArbeitsmappe. Brauchst Du mehr Kopien, dann kannst Du das beliebig oft wiederholen.

[Weiss der Geier]

Hey schauan,

ja, so dachte ich das ungefair, nur wo schreibe ich das jetzt hin?

schönen Sonntag

[Weiss der Geier]

Hey schauan,

ja, so dachte ich das ungefair, nur wo schreibe ich das jetzt hin? Und wie schreibt einen zweiten Speicherplatz dazu?

schönen Sonntag

[schauan]

Hallo Uwe,

Du hattest noch kein Makro "in der Hand"? Du kannst mit der Tastenkombination ALT+F11 in den VBA-Editor wechseln. Links siehst Du eine Art Explorer. Dort hast Du auch die entsprechende Datei und darin gleich als erstes DieseArbeitsmappe. Das klickst Du doppelt an und auf der rechten Seite sollte dann das Codemodul aufgehen. In der Titelleiste sollte dann auch Diesearbeismappe (code) stehen.

Dort fügst Du den code ein.

Für weitere Speicherplätze kopierst Du die Zeile
ThisWorkbook.SaveCopyAs ("D:\Test\TestCopy.xlsm")
fügst sie ein und änderst die Angabe von Pfad und Dateiname nach Bedarf.

Gespeichert wird jeweils eine Kopie. Das Original hat ja schon seinen Speicherplatz.

[Weiss der Geier]

Morgen Schauan,

Danke, werde es Abend mal versuchen, muss erstmal "schnell" zu BMW nach Bayern.

bis denne