GetSaveAsFileName mit . (Punkt) im Dateinamen

Sub SpeichernUnterDialog_XLSX()

    Dim Dateiname As Variant

    Dim Filter As String

    Const MeinDateiname As String = "Hallo.Welt"

    On Error GoTo ERR_HANDLER

   

    ' Definiere den Filter für den Dateityp "xlsx"

    Filter = "Excel-Arbeitsmappe (*.xlsx), *.xlsx"

   

    ' Öffne den "Speichern unter"-Dialog und lege den Filter fest

    Dateiname = Application.GetSaveAsFilename(InitialFileName:=MeinDateiname, fileFilter:=Filter, FilterIndex:=1, Title:="Speichern unter")

   

    ' Überprüfen, ob der Benutzer einen Dateinamen ausgewählt hat

    If Dateiname > False Then

        ' Speichere die Arbeitsmappe unter dem angegebenen Dateinamen

        Application.DisplayAlerts = False

        ThisWorkbook.SaveAs Filename:=Dateiname, FileFormat:=xlOpenXMLWorkbook

        MsgBox "Datei wurde gespeichert als " & Dateiname, vbInformation, "Datei erfolgreich gespeichert."

    Else

        MsgBox "Speichern abgebrochen", vbInformation, "Datei wurde nicht gespeichert."

    End If

ERR_HANDLER:

Application.DisplayAlerts = True

End Sub