queryclose funktioniert nicht ganz
18.08.2017 13:25:16
carmine
Ich habe eine Userform, die beim Drücken auf das Rote Kreuz nicht geschlossen werden soll wenn in Textbox 1 etwas drinsteht.
Mit dem unten stehenden Code wird aber beim klick auf nein immer die msgbox und die Userform geschlossen. Es soll aber nur die Msgbox geschlossen werden, sodass in der Userform noch weiter gearbeitet wrerden kann
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If TextBox1 "" Then
If MsgBox("Wirklich beenden?" & vbCrLf & vbCrLf & "Ihre Eingaben wurden noch nicht _
gespeichert!", vbYesNo, "Achtung!") = vbYes Then
Unload Me
Else
End If
Else
End If
End Sub
Vielen Dank schon mal Gruß Carmine