Excel.Application schließt nicht
20.01.2022 12:34:21
CoAdmiral
hatte mich vor kurzem hier gemeldet ("Target Address multiple Zelle"), jenes Problem konnte auch gelöst werden. Hab für selbige Datei einen nervigen, aber nicht kritischen Bug.
Hintergund: Die Datei erstellt Rechnungsnummern. Dies soll möglichst automatisch erfolgen mit wenig User-Input. Daher passiert fast alles in ThisWorkbook als Events. Im Idealfall öffnet der Benutzer die Datei, sieht die Nummer (und kopiert/vermerkt sie sich) und schließt einfach die Datei wieder. Beim Schließen wird automatisch gespeichert ohne Prompt-Aufruf.
Nun gibt es aber auch ein Button, mit dem er die Datei schließen kann, ohne zu speichern. Das Makro dahinter verhindert auch die Ausführung des BeforeClose-Events. Wenn ich aber nun den Button drücke, wird die Arbeitsmappe geschlossen, offen bleibt aber Excel.Application. Sollte ich noch eine andere Excel-Datei offen haben, so wird meine Datei normal geschlossen (es bleibt also kein "leeres" Excel übrig).
BeforeClose_Event:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If QuitWb = True Then Exit Sub
'mach was und dann speicher und schließ die Datei
End Sub
Option Explicit
Global QuitWb As Boolean
Sub Quit()
Application.DisplayAlerts = False
Application.EnableEvents = False
QuitWb = True
ThisWorkbook.Saved = False
ActiveWorkbook.Close True
Application.Quit
End Sub
Anzeige