Private Sub ComboBox1_Change()
On Error GoTo EERR
Dim AAAZ As Long
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
If ComboBox1.Value <> "" Then
AAAZ = CDbl(Tabelle2.Range("A2:A5002").Cells.Find(What:=ComboBox1.Value, lookat:=xlWhole).Row)
TextBox1.Value = Tabelle2.Cells(AAAZ, 2).Value
TextBox2.Value = Tabelle2.Cells(AAAZ, 3).Value
TextBox3.Value = Tabelle2.Cells(AAAZ, 4).Value
TextBox4.Value = Tabelle2.Cells(AAAZ, 5).Value
TextBox5.Value = Tabelle2.Cells(AAAZ, 6).Value
End If
Exit Sub
EERR:
ComboBox1.Value = ""
End Sub
Private Sub UserForm_Initialize()
On Error GoTo EERR
With UserForm1
.Height = 450
.Width = 650
End With
Tabelle2.Activate
With Tabelle2
ComboBox1.RowSource = .Range(.Cells(2, 1), .Cells(.Cells(Rows.Count, 1).End(xlUp).Row, 1)).Address(External:=True)
End With
Exit Sub
EERR:
End Sub