Listbox mehr anzeigen

Private Sub ComboBox1_Change()
Dim objDic As Object, rngC As Range
Set objDic = CreateObject("Scripting.dictionary")
If ComboBox1.ListIndex = 0 Then Exit Sub
With Sheets(ComboBox1.Text)
For Each rngC In .Range(.Cells(7, 3), .Cells(Rows.Count, 3).End(xlUp))
objDic(rngC.Value) = 0
Next
End With
ListBox1.List = objDic.keys
ListBox1.Visible = True
End Sub

Private Sub ListBox1_Click()
Dim i As Integer
If ComboBox1.ListIndex = 0 Then Exit Sub
With Sheets(ComboBox1.Text).Columns(3)
Set Suchergebnis = .Find(ListBox1.Text, LookIn:=xlValues, lookat:=xlWhole)
If Not Suchergebnis Is Nothing Then
For i = 1 To 15
Controls("Textbox" & i).Value = Suchergebnis.Offset(0, i - 1).Value
Next
End If
End With
ListBox1.Visible = False
End Sub