Supportnet / Forum / Tabellenkalkulation
Excel beenden ueber Makro, wenn keine Datei mehr geoffnet ist?
Frage
Hallo,
ich arbeite taeglich zwei Mal zu unterschiedlichen Zeiten mit drei verschiedenen Tabellen, dich ueber ein Makro (button) speichere und schliesse.
[code]
Sub ciao()
...
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub
[/code]
Das Makro schliesst die jeweilige Arbeitsmappe. Ich wuerde jetzt gerne aber Excel schliessen, wenn die jeweilige Arbeitsmappe die einzige offene ist.
Was muss ich dafuer am Makro aendern?
Alternativ hierzu auch ein Makro, welches Excel beendet, wenn die letzte Datei geschlossen wird.
Besten Dank schon dafuer.
VG Thomas
Antwort 1 von Primut
Hi Thomas,
mein Vorschlag:
Die <=2 ist bei mir deswegen wichtig, weil bei mir die Person.xls immer mitgeöffnet wird und auch mitgezählt wird, wenn das bei dir nicht der Fall ist, Abfrage anpassen.
Gruß
mein Vorschlag:
Sub ciao()
ActiveWorkbook.Save
If Application.Workbooks.Count <= 2 Then
Application.Quit
Else
ActiveWorkbook.Close
End If
End SubDie <=2 ist bei mir deswegen wichtig, weil bei mir die Person.xls immer mitgeöffnet wird und auch mitgezählt wird, wenn das bei dir nicht der Fall ist, Abfrage anpassen.
Gruß
- Primut
Antwort 2 von JonesM
Jepp!
Vielen Dank!
Vielen Dank!