Hallo,
ich würde gerne eine Combobox - daten aus Spalte A, nach daten aus Spalte B filtern.
--> wenn in Spalte B Adhesive steht soll die Combobox die Bezeichnung aus Spalte A anzeigen, wenn was anderes in spalte B steht nichts anzeigen.
leider schaff ichs nicht!
bis ComboBox2.List = oDic1.keys gehts - ungefilterte combobox wird befüllt
bitte danke für eure hilfe im voraus!
Dim oDic1 As Object, meAr1
Dim A1 As Long
Dim lngIndex As Long
Set oDic1 = CreateObject("Scripting.Dictionary")
'Tabelle anpassen
With Sheets("Tabelle1")
'Bereich anpassen, hier ohne Überschrift
meAr1 = .Range("A2", .Cells(.Rows.Count, 1).End(xlUp))
End With
For A1 = 1 To UBound(meAr1)
oDic1(meAr1(A1, 1)) = 0
Next
ComboBox2.List = oDic1.keys
With ComboBox2.List
For lngIndex = ComboBox2.ListCount To 0 Step -1
If Tabelle1.Cells(2, ingIndex) <> "adhesive" Then _
Call .RemoveItem(lngIndex)
Next
End With
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP