Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Datei unter Datum und Uhrzeit speichern

Datei unter Datum und Uhrzeit speichern
Schmausi
Werte Freunde
ich beabsichtige meine aktuelle Datei unter dem derzeitigen Datum und Uhrzeit zu in einem speziellen Ordner zu speichern. dies soll aber über VBA im Woorbook_BeforreSave deklariert sein.
Habe leider vergeblich einige Versuche unternommen.
Ich erbitte HILFE!
unter anderem ein Versuch:
Sub spUakTim()
ChDir "D:\meine Dateien\Eigene Dokumente\Excel\EXCEL\FAM\Sumpf\Schmausi\Planungshilfe"
ActiveWorkbook.SaveAs Filename:= _
"D:\meine Dateien\Eigene Dokumente\Excel\EXCEL\FAM\Sumpf\Schmausi\Planungshilfe\ _
20100_40_08_1845.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
Für den Bereich des
'

Sub ... "2010_40_08_1845" sollte das aktuelle Datum mit Uhrzeit stehen.
also für mich sollte die aktuelle Datei im Vorgegebenen Ordner unter dem aktuellem Datum mit  _
Uhrzeit zufinden sein.
Zum Beispiel: im Laufwerk "D" Ordner" .... "Planunghilfe" Dateiname: "Datum Uhrzeit"
Für eine hilfreiche Anwort bedanke ich mich
Gruß Schmausi


		
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Datei unter Datum und Uhrzeit speichern
08.04.2010 21:27:51
Uduuh
Hallo,
mal als Ansatz:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Const sPfad As String = "D:\meine Dateien\Eigene Dokumente\Excel\EXCEL\FAM\Sumpf\Schmausi\  _
_
Planungshilfe\"
ThisWorkbook.SaveAs sPfad & Format(Date, "YYYYMMDD_hhmm")
Cancel = True
End Sub
Gruß aus'm Pott
Udo
http://www.excelerator.de
Anzeige
AW: Datei unter Datum und Uhrzeit speichern
09.04.2010 17:55:45
Schmausi
Heilo Udo
dank für schnelle Hilfe
mit Cancel = True speichert er nicht
mit Cancel = False speichert er,
aber bringt Fehler, dass Excel WindowsFehler bringt und, dass Excel bendet wird.
Bin selbst noch beim basteln und überlegen.
nur kurz ich arbeite mit Excel 2000
Dank vom Schmausi
Anzeige
Datei speichern!
08.04.2010 21:33:09
Backowe
Hi,
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Code in DieseArbeitsmappe
ActiveWorkbook.SaveAs Filename:="D:\meine Dateien\Eigene Dokumente\Excel\EXCEL\FAM\Sumpf\ _
Schmausi\Planungshilfe\" & Format(Now, "yyyy_mm_dd_hhmm") & ".xls"
End Sub
Gruß Jürgen
Anzeige
AW: Datei speichern!
09.04.2010 18:08:30
Schmausi
Dank für schnelle Hilfe
klappt wunderbar
Gruß Schmausi
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Datei unter Datum und Uhrzeit speichern in Excel


Schritt-für-Schritt-Anleitung

Um deine Excel-Datei automatisch unter dem aktuellen Datum und der Uhrzeit zu speichern, kannst du folgenden VBA-Code in das "DieseArbeitsmappe"-Modul einfügen:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Const sPfad As String = "D:\meine Dateien\Eigene Dokumente\Excel\EXCEL\FAM\Sumpf\Schmausi\Planungshilfe\"
    ThisWorkbook.SaveAs sPfad & Format(Now, "yyyy_mm_dd_hhmm") & ".xls"
    Cancel = True
End Sub

Dieser Code sorgt dafür, dass beim Speichern der Datei der Dateiname mit dem aktuellen Datum und der Uhrzeit aktualisiert wird. Stelle sicher, dass du den Pfad an deine Bedürfnisse anpasst.


Häufige Fehler und Lösungen

  1. Excel stürzt ab oder zeigt einen Fehler an
    Wenn du beim Speichern auf Fehler stößt, stelle sicher, dass der angegebene Pfad korrekt ist und dass du die erforderlichen Berechtigungen zum Speichern an diesem Ort hast.

  2. Datei wird nicht gespeichert
    Wenn die Einstellung Cancel = True verwendet wird, wird der Speichervorgang abgebrochen. Stelle sicher, dass du Cancel = False nur dann verwendest, wenn du möchtest, dass Excel die Datei speichert.


Alternative Methoden

Eine alternative Methode, um das Datum beim Speichern zu aktualisieren, besteht darin, eine Schaltfläche in deinem Excel-Dokument zu erstellen, die diesen Speichervorgang ausführt:

Sub SpeichernMitDatumUndUhrzeit()
    Dim sPfad As String
    sPfad = "D:\meine Dateien\Eigene Dokumente\Excel\EXCEL\FAM\Sumpf\Schmausi\Planungshilfe\"
    ActiveWorkbook.SaveAs Filename:=sPfad & Format(Now, "yyyy_mm_dd_hhmm") & ".xls"
End Sub

Füge eine Schaltfläche hinzu und verlinke sie mit diesem Makro.


Praktische Beispiele

Angenommen, du möchtest den Dateinamen so gestalten, dass er sowohl das Datum als auch die Uhrzeit beinhaltet. Der Code im vorherigen Abschnitt erledigt genau das. Wenn du beispielsweise am 25. Oktober 2023 um 14:30 Uhr speicherst, wird die Datei den Namen 2023_10_25_1430.xls tragen.

Das ist besonders nützlich, wenn du verschiedene Versionen der Datei behalten möchtest, ohne sie manuell umbenennen zu müssen.


Tipps für Profis

  • Verwende eine konsistente Namenskonvention: Es ist hilfreich, das Datum in einem konsistenten Format zu speichern. Überlege, ob du das Jahr, den Monat und den Tag in dieser Reihenfolge verwenden möchtest.

  • Automatisiere das Speichern: Wenn du häufig mit dieser Funktion arbeitest, kannst du eine Schaltfläche in der Symbolleiste hinzufügen, um das Speichern zu erleichtern.

  • Überprüfe die letzten Speicherdaten: Wenn du wissen möchtest, wann die Datei zuletzt gespeichert wurde, kannst du die Funktion Workbook.LastModified nutzen.


FAQ: Häufige Fragen

1. Wie kann ich den Speicherort ändern?
Du kannst den Speicherort im VBA-Code anpassen, indem du den sPfad-Wert änderst. Achte darauf, dass der Pfad korrekt ist.

2. Kann ich das Datum im Dateinamen anpassen?
Ja, du kannst das Format des Datums im Code ändern. Zum Beispiel, um den Monat vor dem Tag anzuzeigen, verwende Format(Now, "mm_dd_yyyy_hhmm").

3. Welche Excel-Version wird benötigt?
Die oben genannten VBA-Codes sind mit Excel 2000 und neueren Versionen kompatibel. Achte darauf, dass du Makros aktiviert hast.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige