MessageBox mit Retry und ok
03.01.2006 15:00:54
Jan
ich brauche eure Hilfe.
Ich habe eine Userform programmiert und möchte nach einer Prüfung des Eingabewertes eine MsgBox erzeugen, falls der Wert nicht in Ordnung ist. Dabei soll es die Button "OK" und "Wiederholen" geben. Bei "OK" soll in die nächste Textbox gesprungen werden und bei "Wiederholen" soll in die TextBox1 zurückgegangen und der Zahlenwert markiert werden.
Hier mein Versuch - funktioniert aber nicht:
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1.Value < 0 or TextBox1.Value > 100 Then 'Wert soll zw. 0 und 100 sein
TextBox1.Value = 50 'Wertänderung bei Fehler auf 50
MsgBox "Geben Sie einen gültigen Prozentsatz zwischen 0 und 100 ein." _
& Chr(13) & Chr(13) & _
"Die Eingabe wurde auf 50% geändert.", vbRetry+vbOK,_
"Eingabefehler"
End If
If MsgBox = vbRetry Then
TextBox1.SetFocus
TextBox1.SelStart = 0
TextBox1.SelLength = Len(TextBox1.Value)
End If
End Sub
Ich hoffe ihr könnt mir helfen...
Gruß Jan
Anzeige