Jedes Mal, wenn Mathew eine Arbeitsmappe schließt, möchte Excel, dass eine datierte Sicherung dieser Arbeitsmappe erstellt wird. Dies bedeutet, dass sie unter einem Dateinamen gespeichert wird, der das Datum enthält. Wenn er also „AnyWorkbookName“ speichert, wird er nicht nur unter diesem Namen, sondern auch unter dem Namen „AnyWorkbookName [heutiges Datum und Uhrzeit]“ gespeichert. Mathew ist sich sicher, dass dies mit VBA gemacht werden muss, aber er ist sich nicht sicher, wie er vorgehen soll.

Es gibt eine beliebige Anzahl von Makros, die für diese Aufgabe entwickelt werden könnten. Bei den meisten handelt es sich um Variationen eines Themas (sozusagen), daher sollte für unsere Zwecke ein einziges Beispiel ausreichen.

Das folgende Makro speichert die Arbeitsmappe kurz vor dem Schließen der Arbeitsmappe mit einem Datum und einer Uhrzeit am Ende des Dateinamens.

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim sFileName As String     Dim sDateTime As String

With ThisWorkbook         sDateTime = " (" & Format(Now, "yyyy-mm-dd hhmm") & ").xlsm"

sFileName = Application.WorksheetFunction.Substitute _           (.FullName, ".xlsm", sDateTime)

.SaveCopyAs sFilename     End With End Sub

Das Makro fügt die Datums- und Zeitzeichenfolge in die Variable sDateTime ein. Dies wird dann mithilfe der Arbeitsblattfunktion SUBSTITUTE in den Dateinamen der Arbeitsmappe eingefügt. (Die Datums- / Zeitzeichenfolge wird effektiv unmittelbar vor der Dateinamenerweiterung eingefügt.) Das Makro geht davon aus, dass die Arbeitsmappe als XLSM-Datei gespeichert wird, da sie Makros enthalten muss, z. B. das Makro, um diese Speicherung durchzuführen.

Das Makro sollte im ThisWorkbook-Modul für die Arbeitsmappe platziert werden.

Dadurch wird sichergestellt, dass es unmittelbar vor dem Schließen der Arbeitsmappe ausgeführt wird.

Es gibt auch Add-Ins von Drittanbietern, die diese Aufgabe ausführen können. Im Folgenden sind einige aufgeführt, die Sie möglicherweise überprüfen möchten.

http://www.jkp-ads.com/Download.asp#AutoSafe http://www.asap-utilities.com

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (13195) gilt für Microsoft Excel 2007, 2010, 2013, 2016, 2019 und Excel in Office 365.