Option Explicit
Private Sub ComboBox1_Change()
Dim raFund As Range, i As Long
With Worksheets("Tabelle2")
If Me.ComboBox1.ListIndex > -1 Then
Me.TextBox1 = ""
Me.TextBox2 = ""
Me.TextBox3 = ""
Set raFund = .Columns("A").Find(what:=Me.ComboBox1, LookIn:=xlValues, lookat:=xlWhole)
If Not raFund Is Nothing Then
Me.ComboBox2.Clear
Me.ComboBox2.AddItem raFund.Offset(, 1)
For i = raFund.Offset(1).Row To .Cells(.Rows.Count, "B").End(xlUp).Row
If .Cells(i, "A") = "" And .Cells(i, "B") <> "" Then
Me.ComboBox2.AddItem .Cells(i, "B")
Else
Exit For
End If
Next i
End If
Else
Me.ComboBox2.Clear
End If
End With
Set raFund = Nothing
End Sub
Private Sub ComboBox2_Change()
Dim raFund As Range
With Worksheets("Tabelle2")
If Me.ComboBox2.ListIndex > -1 Then
Set raFund = .Columns("B").Find(what:=Me.ComboBox2, LookIn:=xlValues, lookat:=xlWhole)
If Not raFund Is Nothing Then
Me.TextBox1 = raFund.Offset(, 1)
Me.TextBox2 = raFund.Offset(, 2)
Me.TextBox3 = raFund.Offset(, 3)
End If
End If
End With
Set raFund = Nothing
End Sub
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")
Next i
End With
End Sub