Abfrage bei Schließen der Userform

Forumthread: Abfrage bei Schließen der Userform

02.05.2005 10:45:49

OceanAmerica

Guten Morgen alle zusammen,
brauche mal wieder Eure Hilfe. Es geht um folgendes:
Ich habe eine Userform, auf der sich ein Beenden Button befindet. Wird dieser angeklickt und die Abfrage, ob das Programm geschlossen werden, soll mit "Ja" bestätigt, wird das gesamte Excel-Programm geschlossen. Nun ist aber bei der Userform noch die Taskleiste mit dem "X-Button" oben rechts sichtbar. Ich habe es mit folgendem Code hinbekommen das bei anklicken des "X-Buttons" ebenfalls die "Schließen-Abfrage" gestartet wird.


Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Call CommandButton6_Click
End Sub

In Command-Button6 steht:


Private Sub CommandButton6_Click()
Set appExcel = GetObject(, "Excel.Application")
a = MsgBox("Möchten Sie das Programm schließen?", _
vbYesNo, "Schließen ?")
If a = vbYes Then appExcel.Quit
End Sub

Wenn ich die Abfrage mit "Ja" beantworte funktioniert alles normal und Excel wird geschlossen. Wenn ich diese Abfrage jedoch mit "Nein" beantworte, wird meine Userform trotzdem geschlossen und die Excelebene wird sichtbar. Genau dieses Schließen der Userform, bei "Nein-Antwort", möchte ich verhindern. Hat da vielleicht jemand einen Tip für mich?
Für Eure Bemühungen bin ich sehr dankbar.
Gruß OceanAmerica

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Abfrage bei Schließen der Userform

02.05.2005 10:50:27

Uwe

Hallo OA,


Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Call CommandButton6_Click
Cancel = True
End Sub

Gruß Uwe

AW: Abfrage bei Schließen der Userform

02.05.2005 10:52:54

OceanAmerica

Hallo Uwe,
tausend Dank für deine schnelle Hilfe. Funktioniert bestens.
Gruß OceanAmerica

AW: Abfrage bei Schließen der Userform

02.05.2005 10:51:22

Hajo_Zi

Hallo OceanAmerica,
Option Explicit
Dim A As Integer


Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Call CommandButton6_Click
If A <> 6 Then Cancel = True
End Sub


Private Sub CommandButton6_Click()
'    Set appExcel = GetObject(, "Excel.Application")
A = MsgBox("Möchten Sie das Programm schließen?", _
vbYesNo, "Schließen ?")
If A = vbYes Then MsgBox "Ja"   'appExcel.Quit
End Sub

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.

"Wer Rechtschreibfehler findet, darf sie behalten!"
Dies gilt auch für Bert.

AW: Abfrage bei Schließen der Userform

02.05.2005 10:54:53

OceanAmerica

Vielen Dank Hajo_Zi.
Habs hinbekommen.
Gruß OceanAmerica

AW: Abfrage bei Schließen der Userform

02.05.2005 11:01:01

Dani

Hallo
du musst die Cancel Eigenschaft auf ungleich Null stellen - etwa so:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Dim appexcel As Object
Dim a As Integer
Set appexcel = GetObject(, "Excel.Application")
    a = MsgBox("Möchten Sie das Programm schließen?", _
        vbYesNo, "Schließen ?")
    If a = vbNo Then Cancel = 1
End Sub

Gruss Dani

Beliebteste Forumthreads (12 Monate)

Abfrage bei Schließen der Userform

Forumthread: Abfrage bei Schließen der Userform

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread