VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Wenn kein Eintrag, UserForm nicht schließen

Gruppe

Dialog

Bereich

UserForm

Thema

Wenn kein Eintrag, UserForm nicht schließen

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

    


Beiträge aus dem Excel-Forum zu den Themen Dialog und UserForm