Office: (Office 2013) Excel schließt nicht richtig

Hallo Zusammen,

beim schließen des Workbooks möchte ich, dass die Datei unter dem Projektnamen und dem aktuellen Datum gespeichert wird.
Das funktioniert auch aber Excel wird anschließend nicht richtig geschlossen.

Ein graues Fenster ohne jegliche Bedienfunktion bleibt auf und kann nur über rechte Maustaste Klick auf den Excel Button in der Taskleiste und "Fester schließen" geschlossen werden.

Mein Code sieht so aus:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

On Error Resume Next
Dim ProjName As String, sDatei as String
Dim TPName As String, komplett As String
ProjName = "X82"
TPName = Date
komplett = ProjName & " " & TPName & ".xlsm"

sPfad = ActiveWorkbook.Path & "\"

With ActiveWorkbook
.Save
.SaveAs sPfad & ProjName & " " & TPName & ".xlsm"
.Close
End With

'ActiveWorkbooks.Close
'Workbooks(komplett).Close
Application.Workbooks(ActiveWorkbook.Name).Close SaveChanges:=True
Application.Quit

End Sub


Wie ihr seht hab ich schon ein paar Varianten ausprobiert aber es ändert sich bisher leider nichts.

Danke.

Gruß Corellia

:)

 

Hallo Corellia,

wozu noch die Anweisung Close, wenn das Workbook ohnehin schon geschlossen wird? Du löst damit das gleiche Ereignis wieder und wieder aus.

Es sollte genügen:
Code:

Grüße
EarlFred

 

Funktioniert Super.
Du bist mein Held - vielen Dank.

 

Ok, zu früh gefreut.
Hab gerade den Auftrag bekommen, dass andere Excel Dateien offen bleiben sollen, nur diese soll schließen.
Also was muss ich da alternative zu Application.quit nehmen?

 

Hallo Corellia,

äh, nix?

Grüße
EarlFred

 

Wenn ich es richtig verstehe, schließt dein Code deine gesamten Geöffneten Mappen.
Ich habe das Problem bisher immer so gelöst.

Application.DisplayAlerts = False
Workbooks("Dein_Mappen_Name").Close
Application.DisplayAlerts = True

Versuch das mal anstatt Application.Quit einzusetzen und denk daran den Namen deiner Arbeitsmappe einzufügen *wink.gif* .
Grüße Jannik

 

Ja klar - danke *wink.gif*

 

Hallo,

Es war ausdrücklich erwünscht, dass Excel (die Anwendung/Instanz) geschlossen wird. Das ist also die logische Konsequenz.

Code:

wozu soll das gut sein?
Die Mappe hat doch schon den Befehl erhalten, sich zu schließen, sonst würde das Ereignis nicht starten.

Die Frage wäre also: Wenn es die letzte Mappe ist, die gerade geschlossen wird, soll dann die Excel-Instanz mit geschlossen werden oder soll sie offen bleiben?

Wenn man weiß, was gewünscht ist, kann man auch passende Lösungen anbieten. Andernfalls wird das eine lange Ratestunde.

Grüße
EarlFred