Datei-Kopie mit Datum und Zeit speichern
Schritt-für-Schritt-Anleitung
Um eine Kopie einer Excel-Datei zu erstellen und diese mit Datum und Uhrzeit zu speichern, kannst du den folgenden VBA-Code verwenden. Dieser Code speichert die Excel-Datei an einem festgelegten Ort mit einem Dateinamen, der das aktuelle Datum und die Uhrzeit enthält.
- Öffne Excel und drücke
ALT + F11, um den VBA-Editor zu öffnen.
- Füge ein neues Modul hinzu, indem du mit der rechten Maustaste auf "VBAProject" klickst, dann "Einfügen" und "Modul" wählst.
- Kopiere und füge den folgenden Code in das Modul ein:
Sub SaveWithDateTime()
Dim myPath As String
Dim myName As String
Dim myNameOEnd As String
Dim myNewName As String
' Pfad der auf zu rufenden Mappe
myPath = "F:\Buero\Excel Projekte\Arbeitsplaetze\"
' Name der aufrufenden Mappe ohne Endung
myName = ActiveWorkbook.Name ' z.B. LeistungserfassungMultiPage.xls
myNameOEnd = Replace(myName, Right(myName, 4), "")
' neuer Dateiname mit Datum ("dd-mm-yyyy") und Uhrzeit ("hh-mm")
myNewName = myPath & myNameOEnd & Format(Date, "dd-mm-yyyy") & " " & Format(Time, "hh-mm") & ".xls"
' Speichern der Kopie
ActiveWorkbook.SaveCopyAs myNewName
End Sub
- Schließe den VBA-Editor und führe das Makro aus, um die Datei zu speichern.
Häufige Fehler und Lösungen
Alternative Methoden
Falls du kein VBA verwenden möchtest, kannst du auch manuell eine Kopie einer Excel-Datei erstellen:
- Öffne die Excel-Datei.
- Gehe auf "Datei" > "Speichern unter".
- Wähle den Speicherort und füge das aktuelle Datum und die Uhrzeit manuell in den Dateinamen ein.
Diese Methode erfordert jedoch mehr Aufwand und ist nicht automatisiert.
Praktische Beispiele
Wenn du den VBA-Code anpassen möchtest, um andere Formate oder Speicherorte zu verwenden, kannst du beispielsweise das Datum im Format yyyymmdd speichern:
myNewName = myPath & myNameOEnd & Format(Date, "yyyymmdd") & " " & Format(Time, "hhmm") & ".xls"
Damit wird der Dateiname beispielsweise zu: LeistungserfassungMultiPage20231018 1530.xls.
Tipps für Profis
- Nutze
Application.DisplayAlerts = False, um Excel-Dialoge zu unterdrücken, wenn du mehrere Kopien hintereinander speicherst.
- Experimentiere mit der Formatierung des Datums und der Uhrzeit, um die von dir benötigten Dateinamen zu erstellen.
- Du kannst auch zusätzliche Fehlerbehandlungsroutinen einbauen, um unerwartete Probleme zu lösen.
FAQ: Häufige Fragen
1. Wie kann ich den Speicherort für die Datei ändern?
Du kannst den Pfad in der Variable myPath im VBA-Code anpassen. Stelle sicher, dass der neue Pfad existiert.
2. Gibt es eine Möglichkeit, die Datei automatisch zu schließen, nachdem ich sie gespeichert habe?
Ja, du kannst ActiveWorkbook.Close nach dem Speichern der Datei hinzufügen, um die Datei automatisch zu schließen.
3. Wie kann ich sicherstellen, dass der Dateiname keine ungültigen Zeichen enthält?
Überprüfe den Dateinamen auf ungültige Zeichen wie \ / : * ? " < > | und entferne sie gegebenenfalls aus dem Dateinamen.