Hallo,
ich würde gerne mein Userform bei Fehlermeldung wieder öffnen. Wenn der eingegebene Wert aus der Textbox1 kleiner oder gleich 2018 gibt es eine Fehlermeldung. Das mit der Messagebox klappt auch super, aber generell schließt sich dann das Fenster. Anbei mein Code aus dem Codefensters des Formulars:
(code)Private Sub CommandButton1_Click()
If (TextBox1.Value <= 2018) Then
MsgBox "Please insert a year after 2018!"
End If
actYear = TextBox1.Value
Unload Me
End Sub(/code)
Besten Dank!
|