SetFocus
12.02.2014 13:13:16
Peter
Wieder einmal benötige ich Eure Hilfe
In einer UF sind mehere Textboxen nun möchte ich das in z.B. Textbox3 ein nummerischer Wert eingetragen wird. Sollte dies nicht der Fall sein soll eine Meldung erscheinen und die entsprechende Textbox editiert sein, so das mann dort sofort eine Eingabe machen kann.
Mit folgendem Code habe ich es Probiert. Aber SetFocus wird nicht ausgeführt.
Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(TextBox3.Text) Then
Call Stärke
Label12.Caption = intStärkeGesamt
Exit Sub
End If
MsgBox "Sie müssen einen numerischen Wert eingeben!", vbInformation, "Fehler"
TextBox3.Value = 0
TextBox3.SetFocus
End Sub
Es wird die nächste Textbox editiert.
Dieser Code ist exemplarisch für weitere Textboxen.
Gruß
Peter