zweites Workbook schließen
20.03.2019 08:35:53
Andi
ich habe ein Problem mit dem Schließen einer zweiten Excel-Datei.
Ich öffne beim Schließen einer Datei eine andere, welche einige Aktualisierungen macht. Im Anschluss sollen beide Excel-Dateien geschlossen werden. Ich rufe die Routine am Ende
der Aktualisierungen auf. Wenn ich diese Routine in der Datei "Details_Verlauf.xlsm" direkt mit F5 ausführe, funktioniert alles. Wenn ich die Routine beim Schließen der anderen Datei "Daten_lok.xlsm" ausführen lasse, bleibt der Code immer bei "Workbooks("Daten_lok.xlsm").Close True" stehen und schließt zwar die Datei "Daten_lok.xlsm"
aber die Applikation wird nicht geschlossen.
CODE:
Public Sub ende()
Application.DisplayAlerts = False
ThisWorkbook.Save
Workbooks("Details_Verlauf.xlsm").Saved = True
Workbooks("Daten_lok.xlsm").Saved = True
Workbooks("Daten_lok.xlsm").Close True
Application.DisplayAlerts = True
Application.Quit
End Sub
Habe schon alles mögliche versucht - aber leider ohne Erfolg.
Danke für die Hilfe!
LG Andi
Anzeige