none
Excel workbook.close in einer Userform lässt Excel abstürzen RRS feed

  • Frage

  • Hallo,
    bei einem workbook.close Befehl in einer UserForm stürzt Excel ab. Dieser Fehler tritt ab Excel 2013 bis Excel 2019 auf. In Excel 2010 läuft alles einwandfrei. Hier ein Teil des Codes Die Zeile, die Excel zum Absturz bringt ist FETT markiert:

    Noch ein wichtiger Hinweis: Das passiert, wenn ich die Anwendung als Add-In (XLAM) laufen lasse.

    Private Sub SelectVorlage_Click()
    Dim sSubName As String
    sSubName = "frmVorlage.SelectVorlage_Click"
    On Error Resume Next
    PbWahrFalsch = False

    'PsFileToOpen = Application _
        .GetOpenFilename("Excel-Vorlagen für proAlpha-Listen (*.xls), *.xls")
    PsFileToOpen = Application _
        .GetOpenFilename(GetString("01_01", sSubName))
        
    If PsFileToOpen = False Then
        'MsgBox "Fehler: Keine Datei ausgewählt!"
        MsgBox GetString("02_01", sSubName)
    Else
        'Prüfen, ob tatsächlich eine pA-Vorlage ausgewählt wurde
        Application.ScreenUpdating = False
        Err.Clear
        Workbooks.Open PsFileToOpen, ReadOnly:=True
       
        If Err.Number = 0 Then
            PsVorlageDatei = ActiveWorkbook.Name
            'Prüfen, ob die geöffnete Datei die richtige ist
            Err.Clear
            Sheets("$Vorlagen_ID_Blatt").Visible = xlSheetVisible
            If Err.Number = 0 Then
                'Vorlagen ID prüfen
                If Worksheets("$Vorlagen_ID_Blatt").Range("A1").Text = "X1gH45wyZ" Then
                    PbWahrFalsch = True
                End If
            End If
        End If

    'HIER STÜRZT EXCEL AB:    Workbooks(PsVorlageDatei).Close savechanges:=False
        Application.ScreenUpdating = True
        
        If PbWahrFalsch = True Then
            'Vorlage in Registry speichern
            SaveSetting PcRegAppName, PcRegSection, PcRegKeyVorlage, PsFileToOpen
            Vorlage.Caption = PsFileToOpen
        Else
            MsgBox "Die ausgewählte Datei ist keine gültige Excel-proAlpha-Vorlage!", vbExclamation, PcTitel
        End If
    End If
    End Sub

    Viele Grüße
    Volker


    • Bearbeitet VALTHAUS Montag, 27. Januar 2020 09:41
    Montag, 27. Januar 2020 09:18

Alle Antworten

  • Hallo Volker,

    poste bitte die exakte und vollständige Fehlermeldung. Falls im Absturzfenster selbst keine zu sehen ist, schau bitte ins Windows Ereignisprotokoll, dort sollte mind. eine zu finden sein.


    Gruß, Stefan
    Microsoft MVP - Visual Developer ASP/ASP.NET (2001-2018)
    https://www.asp-solutions.de/ - IT Beratung, Softwareentwicklung, Remotesupport

    Montag, 27. Januar 2020 09:44
  • Hallo Stefan,

    leider wird überhaupt nichts protokolliert. (Hatte ich auch schon geprüft). - Excel wird nach dem Fehler auch nicht geschlossen, sondern nur der Menüpunkt "Add-Ins" (in dem ich eigene Menüpunkte generiert hatte) ist danach verschwunden.

    Gruß, Volker

    Montag, 27. Januar 2020 10:20