Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1328to1332
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1328to1332
1328to1332
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datum in Dateinamen

Datum in Dateinamen
02.09.2013 18:54:27
Kai
Hallo,
Die Archivsuche hat mich leider nicht zum Ziel führen können.
Ich möchte bei einer vorhandenen Datei beim Speichern Datum und Uhrzeit einfügen lassen, so dass sich im Laufe des Tages mehrere Dateien anhäufen.
Habe folgenden VBA-Code:

Public Sub SpeichernMitDatumUndUhrzeit()
With ThisWorkbook
Call .Save
Call .SaveAs "Abrechnung_" & Format(Now, "yyyy-mm-dd, hh.mm") & ".xls")
End With
End Sub

Wenn ich es als Macro laufen lasse funzt es, aber nicht wenn ich per Tastenkürzel speichere.
Wo liegt der Fehler?
Dank im Voraus.
Kai

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datum in Dateinamen
02.09.2013 19:15:21
Hajo_Zi
Hallo Kai,
Du benutzt eine XLSM Datei, da FileFormat:=xlExcel8 angegeben werden.

AW: Datum in Dateinamen
02.09.2013 20:19:59
Kai
Hallo Hajo,
verstehe nicht was du meinst. Die Datei wird, da sie auch noch auf alten Rechnern laufen muss im 2004er-Format abgespeichert.
Wie sollte der Code aussehen?
Gruß
Kai

AW: Datum in Dateinamen
02.09.2013 20:45:45
ing.grohn
Hallo Kai,
versuch mal: 

Sub SpeichernMitDatumUndUhrzeit()
With ThisWorkbook
.Save
.SaveAs "Abrechnung_" & Format(Now, "yyyy-mm-dd, hh.mm") & ".xls"
End With
End Sub

funktioniert mit 2003
Mit freundlichen Grüßen
Albrecht

Anzeige
AW: Datum in Dateinamen
02.09.2013 21:57:24
Kai
Hallo Albrecht,
auch dieser Code funzt nur wenn ich ein Macro laufen lasse, aber nicht wenn ich ctrl+sctrl+s bzw. das Speichernsymbol drücke.
Gruß
Kai

AW: Datum in Dateinamen
03.09.2013 19:09:13
ing.grohn
Hallo Kai,
wenn du in DieseArbeitsmappe, Workbook stehen hast: 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
SpeichernMitDatumUndUhrzeit
End Sub

sollte es klappen mit STRG SHIFT S.
Mit freundlichen Grüßen
Albrecht
(zumindest in 2003 tuts)

AW: Datum in Dateinamen
03.09.2013 20:28:17
Kai
Hallo,
beide Antworten sind ja gleich. Und abschmieren tust immer noch.
Also, ich habe unter „TisWorkbook" folgenden Code stehen: 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
SpeichernMitDatumUndUhrzeit
End Sub
Sub SpeichernMitDatumUndUhrzeit()
With ThisWorkbook
.Save
.SaveAs "Abrechnung_" & Format(Now, "yyyy-mm-dd, hh.mm") & ".xls"
End With
End Sub

Die Datei wird auch gespeichert, allerdings wird die alte überschrieben und eine neue Datei angelegt. Dabei schmiert Excel immer ab.
Wahrscheinlich sollte der Code so verändert werden, dass die alte Datei erhalten bleibt und nur 1 neue Datei angelegt wird.
Mir ist das jedenfalls schleierhaft.
Gruß
Kai

Anzeige
AW: Datum in Dateinamen
03.09.2013 20:43:20
Kai
Ich habe es jetzt mal so probiert: 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
SpeichernMitDatumUndUhrzeit
End Sub
Sub SpeichernMitDatumUndUhrzeit()
With ThisWorkbook
.Save
.SaveCopyAs "Abrechnung_" & Format(Now, "yyyy-mm-dd, hh.mm") & ".xls"
End With
End Sub

Dann klappt's. Problem ist nur, dass der Kunde dann in der alten Datei weiterarbeitet. Jetzt müsste ich ihn dazu zwingen in der neuen weiterzuarbeiten. Dazu müsste ich die alte Datei beim bzw. nach dem Speichern schließen lassen. Da bekomme ich aber immer Laufzeitfehler:
Versuch 1: 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
SpeichernMitDatumUndUhrzeit
End Sub
Sub SpeichernMitDatumUndUhrzeit()
With ThisWorkbook
.Save
.SaveCopyAs "Abrechnung_" & Format(Now, "yyyy-mm-dd, hh.mm") & ".xls"
.Close
End With
End Sub

Versuch 2: 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
SpeichernMitDatumUndUhrzeit
End Sub
Sub SpeichernMitDatumUndUhrzeit()
With ThisWorkbook
.Save
.SaveCopyAs "Abrechnung_" & Format(Now, "yyyy-mm-dd, hh.mm") & ".xls"
End With
With ThisWorkbook
.Close
End With
End Sub

Lieber wäre mir aber die Version mit dem Speichern unter aktuellerm Zeitstempel mit weiterarbeiten und ohne Absturz.
Gruß.
Kai

Anzeige
AW: Datum in Dateinamen
03.09.2013 20:58:02
ing.grohn
Hallo Kai,
In "DieseArbeitsMappe" steht (nur): 

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
SpeichernMitDatumUndUhrzeit
End Sub

(mit NUR meine ich: es können natürlich noch andere Ereignisse wie Workbook_Activate() etc dort auftauchen. Nicht aber deine Prozedur!)
Die Prozedur: SpeichernMitDaumUndUhrzeit (Sub Spei.... bis ...END Sub) gehört in ein "Allgemeines Modul", z.B.: Modul1:
Falls es noch kein Modul gibt über Menue Einfügen Modul eins hizufügen.
mit freundlichen Grüßen
Albrecht

Anzeige
AW: Datum in Dateinamen
03.09.2013 21:05:03
Kai
Hallo Albrecht,
OK, habe ich angepasst. „SpeichernMitDatum" steht jetzt in „Modul1". Schmiert aber immer noch ab.
Gruß.
Kai

AW: Datum in Dateinamen
04.09.2013 09:02:22
ing.grohn
Hallo Kai,
k.A.
ich hab "nur" 2003 und kann zu höher nicht viel sagen!
Bleibt nur (was hier oft geraten wird): Beispiel hochladen
MfG
Albrecht

AW: Datum in Dateinamen
03.09.2013 01:51:24
KlausF
Hallo Kai,
wenn dein Code wirklich funktioniert dann gehe in das Modul
Diese Arbeitsmappe (bzw. ThisWorkbook bei engl. Version)
und gebe folgendes ein:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
SpeichernMitDatumUndUhrzeit
End Sub
Dann sollte es auch mit ctrl funktionieren ...
Gruß
Klaus

Anzeige
AW: Datum in Dateinamen
03.09.2013 15:00:07
Kai
Hallo Klaus,
Excel speichert jetzt auch mit Tastaturkürzel, stürzt dann aber auch jedes Mal ab.
Weißt du Rat?
Gruß
Kai

302 Forumthreads zu ähnlichen Themen

Datum beim Export im Dateinamen
Herbert

Hallo,
bezüglich meines Beitrages zur Hinterlegung habe ich noch eine andere Idee. Der nachfolgende Code exportiert das jeweilige Tabellenblatt nach C:\temp. Dateiname ist der jeweilige Name der Registerkarte. Kann man hier beim Abspeichern das aktuelle Datum beifügen (Name der Registerkar...
21.10.2008 15:41:27
Thread-ID: 1018062
3 Beiträge
Anzeige
Datei-Kopie mit Datum und Zeit speichern
Lenni

Moin Excellianer!
Mit folgender Anweisung speicher ich eine Excel-Datei an einem "2.Ort"

Me.SaveCopyAs "F:\Buero\Excel\MeinProjekt\" & Me.Name
Nun möchte ich aber meine Datei immer aktuell mit Datum und Zeit abspeichern. Bei meiner Recherche im Archiv habe ich dann folge...
20.02.2009 20:26:00
Thread-ID: 1052545
3 Beiträge
Datei mit akt. Tagesdatum speichern. Wie?
stefan

hallo,
ich ändere fast jeden tag etwas an einer datei. wie kann ich beim speichern automatisch eine version mit dateiname_aktuelles_datum.xls anlegen?
danke für eure hinweise.
05.03.2009 14:54:05
Thread-ID: 1056872
2 Beiträge
Anzeige
Datum aus Zelle auslesen im Dateinamen übernehmen
Ralf

Hallo Zusammen,
ich hab' immer noch mein kleines Problem, vielleicht weiß hier ja einer weiter?
Wie kann man ein in einer Zelle hinterlegtes Datum im Dateinamen übernehmen.
Gruß Ralf
18.03.2009 13:41:01
Thread-ID: 1061396
6 Beiträge
Datum in Dateinamen
Dieter

Hallo Excel-Freaks!
Aus einem Textfile erstelle ich per VBA eine .html mit folgendem Code:
fsDatei.CreateTextFile "C:\Dokumente und Einstellungen\User\Desktop\Project.html"
Wie kann ich nun das zum Zeitpunkt des Speicherns einer Datei jeweils gültige Systemdatum in den Dateinamen au...
26.05.2009 09:20:53
Thread-ID: 1077274
5 Beiträge
Datum und Zeit in Zelle einfügen
chris

Schönen Christtag!
Ich suche eine Lösung welche ich trotz googlen nichts geeignetes finden konnte.
Also: Wenn im Bereich F4:F100 neue Werte eingetragen werden, dann soll sich im Bereich L4:L100 in der gleichen Zeile das Datum (evtl. sogar mit Uhrzeit) neu eingetragen werden.
Für Hil...
25.12.2009 13:37:43
Thread-ID: 1125900
8 Beiträge
Datum und Zeit in Zelle einfügen
chris

Schönen Christtag!
Ich suche eine Lösung welche ich trotz googlen nichts geeignetes finden konnte.
Also: Wenn im Bereich F4:F100 neue Werte eingetragen werden, dann soll sich im Bereich L4:L100 in der gleichen Zeile das Datum (evtl. sogar mit Uhrzeit) neu eingetragen werden.
Für Hil...
25.12.2009 13:38:19
Thread-ID: 1125901
2 Beiträge
vor Einfügen einer csv-Datei Dateidatum prüfen | Herbers Excel-Forum
Jürgen
Hallo Excel - Forum,
habe ein Problem - schätzungsweise ein kleines - was ich durch Recherche nicht lösen konnte. Vielleicht könnt Ihr mir hier helfen:
Ich habe eine offene Arbeitsmappe in die ich eine csv-Datei einlesen möchte. Das ist soweit kein Problem. Ich möchte aber gerne, dass vor d...
14.01.2010 13:51:17
Thread-ID: 1129903
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
2
2
1
3
5
4
7
1
2
2
2
3
2
1
2
4
6
5
12
4
1
1
6
2