Microsoft Excel

Herbers Excel/VBA-Archiv

Sicherheitskopien erstellen

Betrifft: Sicherheitskopien erstellen von: Andi
Geschrieben am: 01.09.2004 08:53:03

Morgen,

hatte gestern schon mal eine Frage bezüglich dem Erstellen von Sicherheitskopien einer Mappe.
Erstelle mit folgendem Code nun meine Kopien:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\Sicherheitskopie_von" & ThisWorkbook.Name
Application.DisplayAlerts = True
End Sub


Leider läuft das mit dem Abschalten nicht so ganz nach Wunsch.
Ich möchte ja auch mehrere Kopien speichern und die ältesten dann löschen.
Geht so etwas? Wenn ja, wie?

Bin für jede Anregung und Hilfe dankbar.

Gruß Andi
  


Betrifft: AW: Sicherheitskopien erstellen von: Ramses
Geschrieben am: 01.09.2004 11:24:01

Hallo

setze doch einfach die Uhrzeit mit dazu

ActiveWorkbook.SaveAs ThisWorkbook.Path & "\Sicherheitskopie_vom " & Format(Now(),"dd.mm.yyyy hh:mm:ss" & " von " & ThisWorkbook.Name

Gruss Rainer


  


Betrifft: AW: Sicherheitskopien erstellen von: Andi
Geschrieben am: 01.09.2004 12:51:16

Warum bin ich da nicht drauf gekommen????
Danke.


 

Beiträge aus den Excel-Beispielen zum Thema "Sicherheitskopien erstellen"