Office: UserForm X Schließen

server78 · 25. Dezember 2013

Hi
ich brauche Hilfe

ich will wenn Userform mit X Schließen Soll ein Msgbox mit Ja und Nein
und gleiche mit Button

Die Formel hab ich schön

Code für X
Code:

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("Wollen Sie Formular Schließen?", _
vbYesNo, "Formular Schließen")
If a = vbNo Then Cancel = 1
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code für Button
Code:

Private Sub SchließButton_Click()
Dim Private Sub SchließButton_Click()
Dim Antwort
Antwort = MsgBox("Wollen Sie Formular Schließen?", 4, "Formular Schließen")
If Antwort = vbYes Then
Unload Me
Else
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Es Funktioniert. Aber wenn ich SchließButon Drück kommt MsgBox von schließbutton und wenn ich Ja Drucke kommt gleich MsgBox von X mit Ja/Nein

Kann mir Helfen

:)

aloys78 · 27. Dezember 2013

Hallo,

Code wie folgt ergänzen
Code:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Dim appexcel As Object
Dim a As Integer
If CloseMode = vbFormControlMenu Then
Set appexcel = GetObject(, "Excel.Application")
a = MsgBox("Wollen Sie Formular Schließen?", _
vbYesNo, "Formular Schließen")
If a = vbNo Then Cancel = 1
end if
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß
Aloys

server78 · 27. Dezember 2013

Super DANKE

Funktioniert A1

Office: UserForm X Schließen

UserForm X Schließen

UserForm X Schließen

UserForm X Schließen - Similar Threads - UserForm Schließen

userform schliessen, Inhalt soll erhalten bleiben

Userform schließen, wenn man von Excel in ein anderes Programm/Fenster wechselt

Userform mit MsGBox schließen

mit Enter Userform schließen

Excel mittels Userform schließen

MsgBox mit Auswahl OK, UserForm Schließen, UserForm Neu

Userform sauber öffnen und schließen