Gruppe
Dialog
Problem
Wie kann ich verhindern, daß eine UserForm geschlossen wird, bevor ein Textfeld einen Eintrag erhält?
StandardModule: Modul1
Sub CallForm()
frmErzwingen.Show
End Sub
ClassModule: frmErzwingen
Private Sub cmdContinue_Click()
If txtZwang.Text = "" Then
Beep
MsgBox "Eintrag im Textfeld erforderlich!"
txtZwang.SetFocus
Else
Unload Me
End If
End Sub