SetFocus
19.04.2017 09:34:37
Thomas
Wenn nicht soll eine Meldung kommen (Funktioniert) und soll dann (wenn kein Wert in Textbox1 steht) wieder zurück in Textbox1 "springen" (funktioniert nicht).
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Me.TextBox1.Value = "" Then
MsgBox "Kein Wert angegeben", vbCritical, " !! Bitte geben Sie die Materialstärke ein !!"
Duennzug.TextBox1.SetFocus
Exit Sub
Else
Me.Label4 = Me.TextBox1 * 0.75 & " mm"
End If
End Sub
Anzeige