beim Abarbeiten folgender Prozedur gehorcht der Befehl SetFocus einfach nicht. Immer springt die Steuerung in ein anderes Eingabefeld. In der Recherche habe ich gesucht und alles mögliche probiert. Bis jetzt ohne Erfolg. Vielleicht hat jemand von Euch noch einen Tipp.
Vielen Dank
Detlef
Private Sub ComboBox1_AfterUpdate()
Dim frm As UserForm
Dim index As Long
Frame1.Caption = FreamName
Set frm = frmEingabe
index = frm.ComboBox1.ListIndex
On Error Resume Next
BenName = Cells(index + 3, 2).Value
Frame1.Caption = Frame1.Caption & "; " & BenName
If BenName = "" Then
MsgBox "Bitte richtigen Barcode eingeben!", vbCritical, "Barcode einlesen!"
frm.TextBox18.SetFocus
End If
'Frame1.Caption = Frame1.Caption & "; " & Cells(index + 3, 2).Value
'If ComboBox1.Text <> "" Then frmUserPassw.Show
End Sub