Hallo zusammen,

folgender Code ruft das "speichern unter" Fenster auf, was auch gut klappt. Wenn ich die Datei dann aber schließe und neu öffne, kommt folgende Fehlermeldung für die ich keine Lösung finden kann. Verwendet wird Excel 2019. Vielleicht weiß hier jemand Rat.

Schönes Wochenende
Daniel

Die Datei abc.xlsx kann von Excel nicht geöffnet werden da das Dateiformat oder doe Dateierweiterung ungültig ist. Überprüfen Sie, ob die Datei beschädigt ist und ob die Dateierweiterung dem Dateiformat entspricht!

Public Sub Grobplanung_saeubern()
...
    Set wb = ActiveWorkbook
    Set ws = wb.Sheets("Teilnehmerliste")
...

    ' Prompt the user to save the file
    With saveFileDialog
        .InitialFileName = savePath & saveFileName & ".xls"
        .Title = "Save As"
        '.Filter = "Excel Files (*.xlsx), *.xlsx"
        .ButtonName = "Save"
        .AllowMultiSelect = False
        
        ' Display the Save As dialog box
        If .Show = -1 Then
            ' Get the chosen file name and format
            saveFileName = .SelectedItems(1)
            
            ' Save the workbook with the chosen file name and format
            Application.DisplayAlerts = False ' Disable alerts
            wb.SaveAs saveFileName
            Application.DisplayAlerts = True ' Enable alerts
            
        Else
            MsgBox "File not saved.", vbInformation
            Exit Sub
        End If
    End With

End Sub