SetFocus
24.08.2020 16:35:23
Rainer
Werte sollen geprüft werden: Feld1: kein Text, kein Dezimalzeichen (Punkt oder Komma); Feld 2: _
kein Text, kein Dezimalpunkt. Feld 1 soll beim Verlassen (Exit) auf Korrektheit geprüft werden. _ Leider wird der SetFokus-Befehl ignoriert, und ich habe keine Ahnung, warum. Hier der Code:
Private Sub txtFaktor1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim i As Integer
Dim iFaktor1 As Integer
If InStr(txtFaktor1.Value, ".") 0 Or InStr(txtFaktor1.Value, ",") 0 Then
MsgBox "In diesem Feld bitte nur ganze Zahlen eingeben!", , "Eingabefehler"
i = Len(txtFaktor1.Value)
With txtFaktor1
.SelStart = 0
.SelLength = i
.SetFocus
End With
Exit Sub
End If
If IsNumeric(txtFaktor1.Value) = False Then
MsgBox "Hier bitte nur Zahlen eingeben!", , "Eingabefehler"
i = Len(txtFaktor1.Value)
With txtFaktor1
.SelStart = 0
.SelLength = i
.SetFocus
End With
Exit Sub
End If
iFaktor1 = CInt(txtFaktor1.Value)
End Sub
Ich war lange nicht hier, erinnere mich aber an einige Koryphäen (Geist ist geil), die vielleicht einen Tip haben.
Danke für Hilfe