Mein UserForm wird normal wenn ich es [X] (Schließe) über
UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) beendet.
Nun möchte ich aber zusätzlich hinter einem extra Schließen-Button die UserForm_QueryClose aufrufen... aber irgendwie klappt es mit den Aufrufwerten nicht. Sobald ich den Abbruch Button clicke kommt zwar die MsgBox, aber er schließt es anschließend nicht!?
Quelltext:
Private Sub CommandButton_Abbruch_Click()
UserForm_QueryClose 0, 1
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If MsgBox("Möchten Sie wirklich Export beenden?", vbQuestion + vbYesNo, "Beenden?") = vbNo Then
If CloseMode <> 1 Then Cancel = 1
End If
End Sub
|