setfocus
17.09.2020 08:52:17
Tim
ich möchte gern erreichen, dass nach einer Eingabeprüfung der Fokus in der Testbox bleibt, wenn des Ergebnis negativ ist.
Die Prüfung des Ergebnis funktioniert problemlos, jedoch die Sache mit dem Setfocus nicht.
Wie kann man erreichen, dass wenn der Suchwert nicht gefunden wird, der Cursor in der Textbox bleibt und die Eingabe markiert wird?
Private Sub Textbox7_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim strSuch As String, raFund As Range
strSuch = TextBox7
Set raFund = Worksheets("Test").Range("C2:C12").Find(strSuch, LookIn:=xlValues, LookAt:=xlWhole) _
If KeyCode = 13 Then
If Not raFund Is Nothing Then
Cancel = False
Else
Cancel = True
TextBox7.SetFocus
TextBox7.SelStart = 0
TextBox7.SelLength = Len(TextBox7.Text)
MsgBox "geht nicht"
End If
End If
End Sub
Anzeige