Forums Neueste Beiträge
 

Arbeitsmappe per VBA beenden

20/04/2009 - 21:54 von Eberhard Funke | Report spam
Hallo,

ich möchte mit einem Makro, das durch einen Button ausgelöst wird, Excel
genau so beenden, wie das bei Klick auf das X oben rechts geschieht; vor
Beenden sollen die Aktionen in Workbook_BeforeClose ausgeführt werden.

Modul:
Sub Schluss()
Workbooks.Close
'Application.Quit
'Application.ActiveWindow.Close
End Sub

DieseArbeitsmappe:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
MsgBox "Bye Bye"
End Sub

Bei dieser Konstellation bleibt aber immer das leere Excel-Fenster stehen
(das mit Klick auf das X rechts oben gelöscht werden muss).

Auch die auskommentierten Zeilen im Sub Schluss sind wirkungslos.

Wie geht das?

Mit freundlichen Grüssen Eberhard
XP home XL 2000
Eberhard(punkt)W(punkt)Funke(at)t-online.de
 

Lesen sie die antworten

#1 Michael Franke
21/04/2009 - 05:47 | Warnen spam
Hallo Eberhard,

On 20 Apr., 21:54, Eberhard Funke wrote:
Hallo,

ich möchte mit einem Makro, das durch einen Button ausgelöst wird, Excel
genau so beenden, wie das bei Klick auf das X oben rechts geschieht; vor
Beenden sollen die Aktionen in Workbook_BeforeClose ausgeführt werden.

Modul:
Sub Schluss()
  Workbooks.Close
  'Application.Quit
  'Application.ActiveWindow.Close
End Sub

DieseArbeitsmappe:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
  MsgBox "Bye Bye"
End Sub

Bei dieser Konstellation bleibt aber immer das leere Excel-Fenster stehen
(das mit Klick auf das X rechts oben gelöscht werden muss).

Auch die auskommentierten Zeilen im Sub Schluss sind wirkungslos.

Wie geht das?

Mit freundlichen Grüssen Eberhard
XP home XL 2000
Eberhard(punkt)W(punkt)Funke(at)t-online.de



mit

Tabelle1:
Private Sub CommandButton1_Click()
Application.Quit
End Sub

DieseArbeitsmappe:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
MsgBox "Bye Bye"
End Sub

sollte es funktionieren.

Gruß, Michael

Ähnliche fragen