speichernamen mit Datumsvorgabe yyyymmdd
08.03.2020 12:19:38
Jörg
Ich bin auf der Suche nach einer Erklärung, warum ich mit nachstehendem Code in Excel 2010 noch den Speichernamen erfolgreich vorgeben konnte, jedoch mit Office 365 eine Fehlermeldung erhalte.
Kurze Situationsbeschreibung:
Bei einem Formular sollen im Kopf unterschiedliche Daten eingetragen werden.
In "G3" das Datum (normale Schreibweise), in "D3" die Auftragsnummer und in "G4" den Kundennamen.
Soweit wäre die Umsetzung auch nicht das Problem. Das Datum soll von der ursprünglichen Schreibweise für die Vorgabe in den Speichernamen verändert werden. Hier soll das Jahr zuerst stehen und dann entsprechend der Monat und der/die Tag(e). Monat und Tage immer zweistellig.
Beispiel: 2016_12_02_A1234567_Firma_XYZ.xlsm
Die Fehlermeldung bezieht sich auf den Befehl "Format". Dieser wird einfach nicht mehr ausgeführt und ich finde keine Erklärung oder andere Lösung dafür das Datum umgestellt als Vorgabe in den Speichernamen zu bekommen.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim dateiname As String
With Sheets("Deutsch")
dateiname = Format(.[G3], "YYYY_MM_DD") & "_A" & .[D3] & "_" & .[G4] & ".xlsm"
End With
Application.EnableEvents = False
Application.Dialogs(xlDialogSaveAs).Show dateiname
Cancel = True
Application.EnableEvents = True
End Sub
So, nun hoffe ich dass mir hier jemand weiterhelfen kann.Danke vorab.
Gruß Jörg