Option Explicit
Private Sub UserForm_Initialize()
Dim i As Long
With Worksheets("Tabelle2")
For i = 2 To .Cells(.Rows.Count, "A").End(xlUp).Row
If .Cells(i, "A") <> "" Then
Me.ComboBox1.AddItem .Cells(i, "A").Text
End If
Next i
End With
End Sub
Private Sub ComboBox1_Change()
Dim raFund As Range
With Worksheets("Tabelle2")
Set raFund = .Columns("A").Find(what:=Me.ComboBox1.Value, LookIn:=xlValues, lookat:=xlWhole)
Me.TextBox1 = raFund.Offset(, 1).Text
Me.TextBox2 = raFund.Offset(, 2).Text
Me.TextBox3 = raFund.Offset(, 3).Text
End With
Set raFund = Nothing
End Sub