Ich hätte eine große Bitte. Habe im Internet ein Makro gesucht und Gefunden, welches mir beim Speichern der Datei behilflich ist. Soweit so gut. Aber es wäre schön wenn der Dateiname mit der Kalenderwoche beginnen würde.
Zur Zeit sieht die Dateibezeichnung nach dem Speichern so aus "20200827-103226". Also Jahr, _ Monat, Tag - Zeit. Wie muss ich es schreiben das als allererstes die Kalenderwoche geschrieben wird. Also als Beispiel " 31KW20200827-103226.
Sub MitZeitstempelSpeichern()
Dim Datumzeitstempel As String
Dim Jetzt As Date
Jetzt = Now()
Datumzeitstempel = Year(Date) & Format(Month(Date), "00") & Format(Day(Date), "00")
Datumzeitstempel = Datumzeitstempel & "-" & Format(Hour(Jetzt), "00") & Format(Minute(Jetzt), " _
00") & Format(Second(Jetzt), "00")
ActiveWorkbook.SaveAs (ThisWorkbook.Path & "\" & Datumzeitstempel & ".xls")
End Sub
>Über Vorschläge bzw. Lösungen würde ich mich sehr freuen.
Für Eure Bemühungen danke ich schon voraus.
LG Robert