Herbers Excel/VBA-Archiv

Sicherheitskopien erstellen

• Sicherheitskopien erstellen von Andi vom 01.09.2004 08:53:03
• AW: Sicherheitskopien erstellen - von Ramses am 01.09.2004 11:24:01
  • AW: Sicherheitskopien erstellen - von Andi am 01.09.2004 12:51:16

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"