Komme mit einer Userform nicht weiter.
Nach Selektierung der Daten aus ComboBox lese ich weitere Daten aus Tabelle in nachfolgende Textboxen ein. Da ich nicht verhindern kann, dass nur die Werte aus der Combobox hinterlegt werden, prüfe ich diese mit der Variablen "x". Bei einem Fehler lösche ich alle Einträge wieder.
Nun möchte ich, dass der Cursor nochals letzte Step zur Combobox zurückspringt. Wie kann ich das bewerkstelligen?
Gruss Richi
____________________________________-
Private Sub ComboBox1_AfterUpdate()
'Dim rng As Range
Dim wb As Workbook
Dim wsE As Worksheet
Dim i, lzE, lsE
Set wb = ThisWorkbook
Set wsE = wb.Worksheets("Employee")
lzE = wsE.Cells(wsE.Rows.Count, 1).End(xlUp).Row
lsE = wsE.Cells(4, 256).End(xlToLeft).Column
For i = 4 To lzE
If Me.ComboBox1.Value = wsE.Cells(i, 15).Value Then
Me.TextBox1.Value = wsE.Cells(i, 1)
Me.TextBox2.Value = wsE.Cells(i, 2)
Me.TextBox3.Value = wsE.Cells(i, 3)
Me.TextBox4.Value = wsE.Cells(i, 4)
Me.TextBox8.Value = wsE.Cells(i, 5)
Me.TextBox10.Value = wsE.Cells(i, 6)
Me.TextBox11.Value = wsE.Cells(i, 7)
x = 1
End If
Next i
If x > 1 Then
MsgBox "Employee Data not found. Use Dropdown"
Me.ComboBox1.Value = ""
Me.TextBox1.Value = ""
Me.TextBox2.Value = ""
Me.TextBox3.Value = ""
Me.TextBox4.Value = ""
Me.TextBox8.Value = ""
Me.TextBox10.Value = ""
Me.TextBox11.Value = ""
End If
End Sub