Textfeld wird nicht zum Fokus
Jürgen
kleines Problem. Habe mir auf die schnelle eine Userform erstellt -- 1 Textfeld und einen Button zum Beenden.
Beim Starten des Makros wird die Userform geöffnet und Cursor ist in Textbox.
Nun wird über einen externen Handscanner eine Seriennummer eingelesen kurz bearbeitet und mit einer Excel datei dieser code gesucht. Alles funktioniert - nur nach dem ersten scannen ist der Cursor nicht mehr im Textfeld ich muß es immer neu anklicken. Hat einer auf die schnelle ne Lösung ?
folgender Code erstellt:
Private Sub TB1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
code = TB1.Value
codeneu = (Left(code, Len(code) - 5))
Sheets("AUSWERTUNG_PRIMARY u. Secondary").Select
Range("a1").Select
ActiveWindow.SmallScroll Down:=-12
Cells.Find(What:=codeneu, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
TB1.Value = ""
TB1.SetFocus
End Sub
Anzeige