Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Wenn kein Eintrag, UserForm nicht schließen

Gruppe

UserForm

Problem

Wie kann ich verhindern, daß eine UserForm geschlossen wird, bevor ein Textfeld einen Eintrag erhält?

Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.

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