Office: excel bleibt bei Datei-schliessen via Makro geöffnet

Hallo,

in meinem aktuellen Projekt arbeite ich mit einer Hauptdatei (Befehlsschaltflächen, Eingabemasken, Vorlagen, Stammdaten) und einer zweiten Datei in der die Masse der Daten gespeichert wird.

Alle Makros befinden sich in der Hauptdatei.
Die 2. Datei wird automatisch mit der ersten durch ein Makro geöffnet bzw. auch wieder geschlossen.

Das klappt soweit auch alles.

Allerdings, nachdem beide Dateien wieder geschlossen sind, bleibt das Fenster des Programms "Excel" immernoch offen, halt nur ohne geöffnete Datei.


Habe ich noch andere Excel-Dateien geöffnet, stört dies nicht und fällt ja auch nicht auf, dann ist das Fenster ja nicht leer.

Aber habe ich keine anderen Excel-Dateien geöffnet, so bleibt ein "nutzloses" Fenster, was ich extra schließen muss.

Ich hoffe ich habe mich verständlich ausgedrückt.


Hat jemand eine Idee wodurch das kommt, wie ich das umgehen/ändern kann?
Voraussetzung ist natürlich, das die Lösung nur greift wenn keine anderen Excel-Dateien geöffnet sind.


Dieser Code steht in "DieseArbeitsmappe":

Code:

Option Explicit

Dim a As Variant
Dim wb As Workbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Datei "Artikel Kunde X.xlsx" schliessen
    Call Abfrage_ArtikelKundeX_offen
    If a = 1 Then
        Workbooks("Artikel Kunde X.xlsx").Close
    End If
    Set wb = Nothing
    Set a = Nothing
End Sub

Private Sub Workbook_Open()
'Datei "Artikel Kunde X.xlsx" öffnen
    Call Abfrage_ArtikelKundeX_offen
    If a = 0 Then
        Workbooks.Open ThisWorkbook.Path & "\Artikel Kunde X.xlsx"
        ThisWorkbook.Activate
    End If
    Set wb = Nothing
    Set a = Nothing
End Sub

Public Sub Abfrage_ArtikelKundeX_offen()
    For Each wb In Workbooks
        'Prüfung ob wb bereits geöffnet ist
        If wb.Name = "Artikel Kunde X.xlsx" Then
            a = 1
            Exit For
        Else
            a = 0
        End If
    Next wb
End Sub

 

Hallo!

Wenn du Excel beenden möchtest, dann benutze

Code:

Application.Quit

 

Danke schatzi für die schnelle Antwort.
Funtioniert bei mir leider nicht.

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Datei "Artikel Kunde X.xlsx" schliessen
    Call Abfrage_ArtikelKundeX_offen
    If a = 1 Then
        Workbooks("Artikel Kunde X.xlsx").Close
    End If
    Set wb = Nothing
    Set a = Nothing
    
    Application.Quit
End Sub

Gibt es unter Einstellungen vielleicht nen Haken den ich ändern muss?

Abgesehen davon, ich will (und darf) Excel ja auch nicht einfach so unkommentiert komplett schließen.
Es könnten ja noch andere Dateien offen sein, die ich nicht schließen will.

Komplett zu soll Excel ja nur wenn eben keine anderen Dateien offen sind.
D.h. bei so einer Lösung wie Deiner müsste noch eine entsprechende Abfrage mit rein, oder?

Sheets.count kenne ich ...
gibt es sowas auch für Workbooks?
Wäre jetzt das erste was mir einfallen würde.

 

Hallo!

Ja, das geht auch.

 

Moin schatzi.

Okay, dann hätte ich ja schonmal nen Ansatz für eine entsprechende Abfrage...


Gerade habe ich Application.Quit auch in der Firma ausprobiert.
Hier klappt das genausowenig wie bei mir zuhause.

 

Falls jemand anderes es gebrauchen kann:

Code:

With Application
    .Quit
End With

Wenn ich das in "DieseArbeitsmappe" in

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

einbaue, wird Excel komplett geschlossen, ohne jegliche Abfragen.

Ich selber habe mich aber inzwischen dagegen entschieden.
Die 2. Mappe wird per VBA mit geschlossen, ich akzeptiere für beide Mappen die Abfrage ob gespeichert werden soll, und ich akzeptiere auch das "leere" Excelfenster falls ich gerade keine anderen Excelmappen geöffnet habe.

Ich habe jetzt soviel Zeit verplempert bei dem Versuch das alles sauber hin zu bekommen, dabei beide Mappen automatisch und ohne Abfragen speichern zu lassen, allerdings auch über einen CommandButton die Möglichkeit zu lassen ohne zu speichern zu schließen, und habe immer wieder irgendwo (teilweise echt unerklärliche) Fehlermeldungen bekommen, dass ich jetzt kein Bock mehr habe....

 

Guten Abend.

Ich habe da ein ähnliches Problem, wenn man das überhaupt Problem nennen darf:
Meine Excel möchte ich auch per Makro schließen und benutze dafür
Sub Beenden()
ActiveWorkbook.Save
Application.Quit
End Sub
nur werde ich dann trotzdem gefragt ob ich das speichern will oder nicht.
Auch
Sub Beenden()
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub
bringt nicht den erwünschten Erfolg.
Drum jetzt die Frage:
Wie schaffe ich es das das Makro die Excel abspeichert und schließt ohne vorher nachzufragen ob ich speichern möchte.
Weiß wer die passende Antwort?

Liebe Grüße und vielen Dank im voraus,
Ashley

 

Hi Ashley,

schreibe

Code:

ActiveWorkbook.Close False

Das gaukelt Excel vor, dass alles bereits gespeichert wurde und ohne (nochmalige) Speicherabfrage geschlossen werden soll.

Bis später,
Karin

 

Guten Morgen, Karin.

Wird durch
ActiveWorkbook.Close False
Excel abgespeichert und dann komplett beendet bzw. geschlossen?

Liebe Grüße,
Ashley

 

Hi Ashley,

es wird nur die Arbeitsmappe ohne Speicher-Abfrage geschlossen, mit Application.Quit wird die Anwendung Excel geschlossen.

Bis später,
Karin

 

Gallo Karin,

ich habe es so eingetragen wie Du es beschrieben hast aber leider funktionierte es nicht wie gewünscht. Welche Möglichkeiten habe ich noch.

Liebe Grüße,
Ashley

 

Hi Ashley,

weshalb es bei dir nicht funktioniert kann ich nicht nachvollziehen - dazu müsstest du schon mal genau beschreiben WAS nicht funktioniert und wie dein jetziger Code aussieht.

Bis später,
Karin

 

Hallo Karin,
Der Code lautet:

Sub Beenden()
ActiveWorkbook.Close False
Application.Quit
End Sub
Der Code speichert die sichtbare Mappe und schließt sie und das ist auch alles was passiert.

Liebe Grüße,
Ashley

 

Hi Ashley,

die 1. Codezeile schließt die Mappe ohne Speichern.

Sind noch andere Arbeitsmappen geöffnet? Wenn ja, dann müssen die auch geschlossen werden.

Bis später,
Karin

 

Hi Karin.

Dann muß der Code lauten:
Sub Beenden()
ActiveWorkbook.Close True
Application.Quit
End Sub

Da die komplette Excel-Tabelle 7 Datenfelder beinhaltet und Blattregisterkarten und viele andere Funktionen deaktiviert sind kann ich das garnicht sagen.

Liebe Grüße,
Ashley