Excel mit Button beenden

[Arni49]

Hallo,

ich habe eine Excel Datei aus der ich heraus eine 2. Instanz für einen 2. Monitor starte.
Jetzt möchte ich die Excel Datei so schliessen (per Button) das erst geöffnete  Instanzen und dann erst die Haupt Datei geschlossen wird.

Gruß Arnold

[schauan]

Hallöchen,

in den codes der Antworten auf Deinen anderen Thread mit den zwei Monitoren hast DU z.B. diese Zeile:

Windows("Praxis 2017.xlsm:1").Activate

So, wie Du ein Fenster aktivieren kannst, kannst Du es auch mit Close schließen.

[Arni49]

Hallo,

Code:

Sub Excel_Schliessen()
ThisWorkbook.Save
   'ThisWorkbook.SaveAs "I:\Terminplanung\" & ThisWorkbook.Name
  Application.EnableEvents = False
  Windows("Praxis 2017.xlsm:2").Close
  Windows("Praxis 2017.xlsm").Close
   Application.Quit
End Sub

habe es so versucht.
Jetzt werden die beiden Dateien, erst die Instanz 2 dann die Hauptdatei beendet, aber Excel bleibt ohne Arbeitsmappe offen.
Wenn ich dies beende und Excel neu starte habe ich aber eine Hautdatei und 2 weitere Instanzen :2 und :3 statt nur eine :2.

[schauan]

Hallöchen,

schließe erst die zusätzliche Instanz und speichere dann. Ansonsten merkt sich Excel die Instanzen.