ich habe den folgenden code zum filtern in Listbox nach Auswahl in combobox aber leider zeigt er mir keine Werte an. Wenn die Userform starte sind Namen drin. Dann will ich einen Namen raussuchen aber er zeigt mir dann gar nichts an in der Listbox.
Private Sub ComboBox1_Change()
Dim LST
Dim L As Long
Dim A As Long
Dim arr
LST = WS.Range("A1:F65536")
ReDim arr(WorksheetFunction.CountIf(WS.Range("B:F"), ComboBox1.Text), 1)
ListBox1.Clear
For L = 1 To UBound(LST, 1)
If LST(L, 1) = ComboBox1.Text Then
arr(A, 0) = LST(L, 1)
arr(A, 1) = LST(L, 2)
A = A + 1
End If
Next
ListBox1.List = arr
End Sub
Private Sub UserForm_Initialize()
Dim Quelle
Set WS = Worksheets("Schlüsselausgabe")
Quelle = WS.Range("B2:F10") 'Anpassen
ListBox1.ColumnCount = 5
ComboBox1.List = Quelle
End Sub
weiß jemand einen Rat für mich?