Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1996to2000
1996to2000
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Excel per VBA beenden

Forumthread: Excel per VBA beenden

Excel per VBA beenden
16.12.2024 21:03:06
JensS
Guten Abend zusammen,

ich möchte per Button eine Excel-Datei speichern und diese dann samt Excel schliesen wenn keine weitere Instanz geöffnet ist.
Mit dem nachfolgenden Code geschieht dies zwar, jedoch wird nach Excel (ohne leeres Arbeitsblatt) wieder geöffnet.
Ich kann mir das Verhalten nicht erklären und bitte um Eure Hilfe.

Danke Jens


Sub SpeichernUndSchliessen()
Dim wbCount As Integer

' Speichere die aktuelle Arbeitsmappe
ThisWorkbook.Save

' Anzahl der geöffneten Arbeitsmappen zählen
wbCount = Application.Workbooks.Count

' Schließe die aktuelle Arbeitsmappe
ThisWorkbook.Close SaveChanges:=True

' Überprüfe, ob andere Arbeitsmappen geöffnet sind
If wbCount = 1 Then
' Anwendung beenden, wenn keine weiteren Arbeitsmappen geöffnet sind
Application.Quit
End If
End Sub
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel per VBA beenden
16.12.2024 22:14:41
Kuwer
Hallo Jens,

funktioniert es so? 

Sub SpeichernUndSchliessen()

  Dim oWb As Workbook

  Dim wbCount As Integer



' Anzahl der geöffneten (sichtbaren) Arbeitsmappen zählen

  For Each oWb In Workbooks

    i = i - oWb.Windows(1).Visible

  Next oWb



' Schließe die aktuelle Arbeitsmappe

  ThisWorkbook.Close SaveChanges:=True



' Überprüfe, ob andere Arbeitsmappen geöffnet sind

  If wbCount = 1 Then

  ' Anwendung beenden, wenn keine weiteren (sichtbaren) Arbeitsmappen geöffnet sind

    Application.Quit

  End If

End Sub

Gruß, Uwe
Anzeige
Korrektur
16.12.2024 22:43:07
Kuwer
Jetzt mit richtigen Variablen: 
Sub SpeichernUndSchliessen()

  Dim oWb As Workbook

  Dim wbCount As Integer



' Anzahl der geöffneten (sichtbaren) Arbeitsmappen zählen

  For Each oWb In Workbooks

    wbCount = wbCount - oWb.Windows(1).Visible

  Next oWb



' Schließe die aktuelle Arbeitsmappe

  ThisWorkbook.Close SaveChanges:=True



' Überprüfe, ob andere Arbeitsmappen geöffnet sind

  If wbCount = 1 Then

  ' Anwendung beenden, wenn keine weiteren (sichtbaren) Arbeitsmappen geöffnet sind

    Application.Quit

  End If

End Sub
Anzeige
Korrektur 2 ;-)
16.12.2024 23:00:51
Kuwer
Jetzt auch getestet: 
Sub SpeichernUndSchliessen()

  Dim oWb As Workbook

  Dim wbCount As Integer



' Anzahl der geöffneten (sichtbaren) Arbeitsmappen zählen

  For Each oWb In Workbooks

    wbCount = wbCount - oWb.Windows(1).Visible

  Next oWb



' Überprüfe, ob andere Arbeitsmappen geöffnet sind

  If wbCount = 1 Then

  ' Anwendung beenden, wenn keine weiteren (sichtbaren) Arbeitsmappen geöffnet sind

    ThisWorkbook.Save

    Application.Quit

  Else

  ' Schließe die aktuelle Arbeitsmappe

    ThisWorkbook.Close SaveChanges:=True

  End If

End Sub
Anzeige
AW: Korrektur 2 ;-)
16.12.2024 23:09:14
JensS
Hallo Uwe,

auch in diesem Fall fragt Excel NOCH MAL nach, ob gespeichert werden soll.
Kann man das noch abstellen ?
AW: Excel per VBA beenden
16.12.2024 22:16:48
mumpel
Hallo!

Versuch es mal mit Application.CommandBars.ExecuteMso "FileExit" anstelle von Application.Quit.

Gruß, René
AW: Excel per VBA beenden
16.12.2024 22:28:11
daniel
Hi

Sollte nicht ein einfaches 

Thisworkbbok.close True


ausreichen?

Seit Excel 2013 gibt es kein extra Applikations Fenster mehr, dass ohne Datei geöffnte sein kann. Mit dem Schließen der letzte offenen Datei wird auch Excel als Anwendung beendet.

Im Zweifelsfall aber auch so 

Thisworbook.save

If Application.Workbooks.Count  = 1 then 

    Application.Quit

Else

    This workbook.close

End if


Gruß Daniel
Anzeige
AW: Excel per VBA beenden
17.12.2024 12:22:34
Ulf
Hi,
seinereiner macht das so 


Public Sub allesBeenden()

    Dim wb As Workbook

    Dim strDiese As String

    Dim bMoreBooks As Boolean

    strDiese = ThisWorkbook.Name

    For Each wb In Application.Workbooks

        If wb.Name > strDiese And LCase$(wb.Name) > "personal.xlsb" Then

            bMoreBooks = True

            Exit For

        End If

    Next wb

    If ThisWorkbook.Saved Then

        If bMoreBooks Then

            ThisWorkbook.Close SaveChanges:=False

        Else

            Application.Quit

        End If

    Else

        ThisWorkbook.Close SaveChanges:=True

        If Not bMoreBooks Then

            Application.Quit

        End If

    End If

End Sub

hth
Ulf
Anzeige
AW: Excel per VBA beenden
17.12.2024 14:43:36
mumpel
Du vergisst mögliche installierte Add-Ins, die auch als Workbook gezählt werden. Dieses Problem hatte ich auch schon.
AW: Excel per VBA beenden
16.12.2024 22:37:36
mumpel
"Mit dem Schließen der letzte offenen Datei wird auch Excel als Anwendung beendet. "
Eben nicht. Es ist umgekehrt. Wenn man die letzte offene Datei schließt, bleibt ein leeres Fenster übrig. Meiner Erfahrung nach gibt es einen Unterschied zwischen "Quit" und "FileExit". Bei "Quit" wird Excel nicht beenden, bei "FileExit" schon. Daher würde ich immer mit Appliccation.CommandBars.ExecuteMso "FileExit" arbeiten. Den Befehl "Beenden" gibt es im Officemenü schon lange nicht mehr, denn muss man selber einfügen (dafür gibt es auf meiner Hompepage ein passendes Add-In).
Anzeige
AW: Excel per VBA beenden
16.12.2024 22:44:45
JensS
Ich hatte den Code bisher warum auch immer in einem Modul liegen.

Jetzt ins Worksheet eingegeben funktioniert fast … denn Excel fragt NOCHMALS, ob die Datei gespeichert werden soll, was aber eigentlich nicht sein soll.



Sub ENDE()
ThisWorkbook.Save
If Application.Workbooks.Count = 1 Then
Application.Quit
Else
ThisWorkbook.Save
ThisWorkbook.Close
End If
End Sub
Anzeige

Forumthreads zu verwandten Themen

Problem beim Schliessen Worddokument
Peter

Hallo,
ich benötige dringend eure Hilfe. Ich habe eine sehr umfangreiche Exceldatei. In einer älteren Version kein Fehler. In neuerer Version kommt eine Messagebox mit folgendem Hinweis:
"Microsoft VBA Objekt variable oder With Blockvariable nicht festgelegt" mit OK Button und Hilfe But...
11.12.2020 10:08:11
Thread-ID: 1799053
2 Beiträge
Fremdanwendung per VB schliessen
Nike

Hi,
wie ist es moeglich eine andere Anwendung per VB zu schliessen?
Extra nicht VBA, sondern VB...
Irgendwie mit der shell?
Das unten angehaengte hab ich bisher gefunden,
aber leider hab ich wohl die falsche Caption,
kennt jemand ne Moeglichkeit, wie ich die Caption alle...
11.11.2004 12:15:50
Thread-ID: 515732
6 Beiträge
Excel schließt nicht, nach Makro Ausführung
Liv3pl4y
ich komme, trotz GPT und Google Suche nicht weiter. Ich habe ein Makro erstellt, welches aus einem Quellverzeichnis (Netzwerk Laufwerk) eine Datei kopiert und an anderer Stelle im weiteren Unterverzeichnis ablegt. Dabei wird nur geprüft ob die Datei schon mit aktuellen Datum vorhanden ist, oder nich...
22.07.2025 11:54:32
Thread-ID: 2016239
6 Beiträge
Problem mit Userform
Regne

Hallo,
Ich habe ein Problem mit einer UserForm diese wird mit folgendem VBA Code gestartet.
Private Sub Workbook_Open() Application.ScreenUpdating = False Application.Visible = False Application.ScreenUpdating = True Load UserForm4 UserForm4.Show End Sub
Private Sub Workbook_Activ...
30.07.2014 12:39:57
Thread-ID: 1373072
6 Beiträge
Anzeige
Excel schließt fälschlicherweise alle Workbooks obwohl
Harterstein
Hallo zusammen,

ich bin mal wieder am verzweifeln - vielleicht hat jemand ja eine Lösung parat.

Ich habe mir eine Excel Datenbank programmiert, welche aus 2 Workbooks besteht.
Workbook1: Enthält die eigentlichen Daten (Backend)
Workbook2: Enthält den Programmcode um u.a. e...
08.05.2024 17:31:31
Thread-ID: 1977150
6 Beiträge
Kompliziertes Makro - Ergänzung
Alex

Servus Zusammen,
ein Kollege zieht mittels eines Makros sich Daten aus einer Access-Datenbank.
Problem, der Kollege fällt für 8 Wochen aus und wir benötigen dringend eine Anpassung. Ich kenne mich mit Makros halbwegs aus, aber das ist für mich dann doch etwas zu hoch.
Ziel ist es,...
17.01.2017 12:35:49
Thread-ID: 1535513
1 Beitrag
VBA Excel schließt die Datei
Roland

Guten morgen,
mit diesem Code Schließt Excel und speichert vorher. Bis jetzt ist ist der Code ganz gut.
Leider ist aber das Problem, das wenn man in der Zelle drin ist, das der Code nicht mehr funktioniert.
Kann man es so einrichten, das man immer in 45 Sekunden herausfliegt und da...
29.08.2017 07:26:56
Thread-ID: 1577193
3 Beiträge
Anzeige
Anwendungsfehler bei Application.quit
Andreas

Hallo Allerseits,
ich habe eine Excel-Arbeitsmappe, die als Formular genutzt werden soll. Diese wird per Link im Internet-Explorer geöffnet. Die Mappe enthält auch aktiven VBA-Code.
Wenn nun im Explorer das Fenster geschlossen oder z.B. die Zurück Schaltfläche betätigt wird, so bleibt d...
07.01.2005 11:42:22
Thread-ID: 543189
3 Beiträge
Anzeige
VBA-Problem
Anja

Hallo,
hab vor einiger Zeit eine Beispielmappe im Archiv gefunden,
die sich über eine UserForm mit Passwortabfrage öffnen lässt.
Funktioniert auch bestens, bis ich festgestellt habe, das man
auch ohne Passwort einfach durch Bestätigung der OK-Taste
oder klicken von X, diese...
21.08.2004 19:38:56
Thread-ID: 473324
1 Beitrag
VBA temporäre Mappe nicht speichern wenn
W

Hallo VBA-Profis,
Ich erstelle aus einer Excel-Mappe heraus eine weitere Mappe. Dieser neuen Mappe werden auch Makros mitgegeben.
Normalerweise sollte die Mappe am Ende wieder gelöscht werden Es gibt aber auch manchmal Gründe dafür, die Mappe zu speichern.
Bei meinen Versuchen habe...
11.04.2020 19:38:30
Thread-ID: 1751988
2 Beiträge
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum