Dateiname bei "Speichern" vorgeben

Posted by Excel Community on 6. September 2024 at 21:53

Der Code muss unter “DieseArbeitsmappe” eingetragen werden.



Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

    Dim Pfad        As String

    Dim DateiName   As String

    Application.EnableEvents = FALSE

    Pfad = Application.ActiveWorkbook.Path

    If Application.ActiveWorkbook.Path = "" Then

        Pfad = Environ("UserProfile") & "\Desktop\"

        DateiName = Pfad & Left(ActiveSheet.Cells(1, 1).Value, 9) & "_Export_" & Format(Now, "YYYYMMDD")

        ' Speichere den Datei-Dialog mit Dateityp .xlsm

        Application.Dialogs(xlDialogSaveAs).Show DateiName, xlOpenXMLWorkbookMacroEnabled        ' Dateityp für .xlsm

        Cancel = TRUE

    Else

        ActiveWorkbook.Save

        Cancel = TRUE

    End If

    Application.EnableEvents = TRUE

End Sub

Excel Community replied 4 months, 1 week aktiv. 1 Member · 0 Replies

0 Replies

Sorry, there were no replies found.