Aktuelles Datum in Dateinamen Einfügen
Schritt-für-Schritt-Anleitung
Um das aktuelle Datum in den Dateinamen eines Excel-Dokuments einzufügen, kannst Du folgenden VBA-Code verwenden. Dieser Code speichert die Arbeitsmappe mit dem aktuellen Datum im Dateinamen:
-
Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
-
Füge ein neues Modul ein, indem Du mit der rechten Maustaste auf "VBAProject" klickst und "Einfügen" > "Modul" auswählst.
-
Kopiere den folgenden Code und füge ihn in das Modul ein:
Sub SaveAs()
Dim x As String
x = ThisWorkbook.Path & "\"
ActiveWorkbook.SaveAs Filename:=x & Format(Date, "YYMMDD") & "_Book1.xls"
End Sub
-
Schließe den VBA-Editor und kehre zu Excel zurück.
-
Führe das Makro aus, um das Workbook mit dem aktuellen Datum im Dateinamen zu speichern.
Mit diesem Code wird das heutige Datum im Format "YYMMDD" hinzugefügt und der Dateiname könnte beispielsweise „230401_Book1.xls“ lauten.
Häufige Fehler und Lösungen
Alternative Methoden
Wenn Du das aktuelle Datum nicht über VBA einfügen möchtest, gibt es auch andere Methoden:
-
Manuelles Einfügen: Du kannst das aktuelle Datum manuell in eine Zelle einfügen (z.B. mit =HEUTE()) und dann den Zellinhalt kopieren und im Speichern-Dialog als Teil des Dateinamens verwenden.
-
Makro in Word: Wenn Du das aktuelle Datum in Word-Dokumenten einfügen möchtest, kannst Du ähnlich vorgehen und den Befehl ActiveDocument.SaveAs verwenden.
Praktische Beispiele
Hier sind einige Beispiele zur besseren Veranschaulichung:
-
Beispiel 1: Speichern einer Datei mit dem Namen „230401_Bericht.xls“, wobei „230401“ das aktuelle Datum darstellt.
-
Beispiel 2: Eine Excel-Datei, die täglich aktualisiert wird, könnte automatisch mit dem Datum im Dateinamen gespeichert werden, um Verwirrung zu vermeiden.
Tipps für Profis
-
Automatisierung: Du kannst die Ausführung des Makros so planen, dass es täglich automatisch läuft, um immer die aktuelle Version der Datei mit dem Datum zu speichern.
-
VBA-Fehlerbehandlung: Implementiere Fehlerbehandlung in deinem VBA-Code, um mögliche Probleme beim Speichern zu vermeiden:
On Error GoTo ErrorHandler
' dein Code hier
Exit Sub
ErrorHandler:
MsgBox "Ein Fehler ist aufgetreten: " & Err.Description
FAQ: Häufige Fragen
1. Wie kann ich das aktuelle Datum in Word einfügen?
Du kannst das aktuelle Datum in Word mit der Funktion =HEUTE() einfügen und dann in den Dateinamen verwenden, wenn Du das Dokument speicherst.
2. Ist es möglich, das Datum in einem anderen Format einzufügen?
Ja, Du kannst das Datum im VBA-Code formatieren, z.B. Format(Date, "DD-MM-YYYY"), um ein anderes Format zu erzeugen.