Guten Morgen,

Danke für deine Rückmeldung!

Ich habe diese Variante aus einem anderen Forum, wenn ich die Filter umstelle, komme ich allerdings auch nicht weiter. Wie stelle ich diese Passage richtig?

Und wie ändere ich die Endung bei der zu speichernden Datei?

Passt man aktualisierter Code?

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

    Dim varRetVal As Variant
    Dim strLink As String
    Dim strDateiname As String
    Dim strVerzeichnis As String
    Dim strLaufwerk As String
        
    strVerzeichnis = Range("G90") 'in G90 steht der gesamte Pfad inkl. Dateinamensvorschlag
    strLink = Range("G90")
    strVerzeichnis = Left(strVerzeichnis, InStrRev(strVerzeichnis, "\"))
    strDateiname = ThisWorkbook.Name
    strLaufwerk = Left(strVerzeichnis, 1)
   
    varRetVal = Application.GetSaveAsFilename( _
        InitialFileName:=strLink, _
        FileFilter:="Microsoft Excel-Dateien (*.xlsm), *.xlsm", _
        Title:="Datei speichern unter... ")
    If varRetVal = False Then Exit Sub
    Cancel = True
    
    Application.EnableEvents = False
    ActiveWorkbook.SaveAs varRetVal
    Application.EnableEvents = True
    
End Sub

LG