Hallo zusammen,
Ich habe eine Excel Datei erstellt in dem Betriebsstörungen usw. erfasst werden. Ich möchte nun, das wenn die Datei gespeichert wird, das Datum hinter demNamen der Datei steht. Ich habe auch halbwegs hinbekommen.
Allerdings habe ich ein Problem. Es funktioniert nur vom VBA Editor aus wenn ich F5 drücke und nicht wenn ich es normal speichern will. Also über STRG S oder wenn ich die Datei schließe. Ich bin totaler VBA Analphabet und bin über jede Hilfe sehr Dankbar.
Danke im voraus
Ibaas
Ich habe eine Excel Datei erstellt in dem Betriebsstörungen usw. erfasst werden. Ich möchte nun, das wenn die Datei gespeichert wird, das Datum hinter demNamen der Datei steht. Ich habe auch halbwegs hinbekommen.
Code:
Sub MitZeitstempelSpeichern()
Dim Datumzeitstempel As String
Dim Jetzt As Date
Jetzt = Now()
Datumzeitstempel = "Schichtübergabe " & Year(Date) & Format(Month(Date), "-00-") & Format(Day(Date), "00")
ActiveWorkbook.SaveAs (ThisWorkbook.Path & "\" & Datumzeitstempel & ".xls")
MsgBox (ActiveWorkbook.Path)
End Sub
Allerdings habe ich ein Problem. Es funktioniert nur vom VBA Editor aus wenn ich F5 drücke und nicht wenn ich es normal speichern will. Also über STRG S oder wenn ich die Datei schließe. Ich bin totaler VBA Analphabet und bin über jede Hilfe sehr Dankbar.
Danke im voraus
Ibaas