---

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

---

Hallo Thomas,

so besser?

Code:

---

Private Sub UserForm_Initialize()

    Dim oDic1 As Object
    Dim meAr1 As Variant
    Dim A1 As Long

    Set oDic1 = CreateObject("Scripting.Dictionary")
    'Tabelle anpassen
    With Tabelle1
        'Bereich anpassen, hier ohne Überschrift
        meAr1 = .Range(.Cells(2, 1), .Cells(.Rows.Count, 2).End(xlUp)).Value
    End With

    For A1 = 1 To UBound(meAr1)
        If meAr1(A1, 2) = "adhesive" Then oDic1(meAr1(A1, 1)) = vbNullString
    Next

    If oDic1.Count > 0 Then ComboBox2.List = oDic1.Keys

    Set oDic1 = Nothing

End Sub

---

------------------
Gruß
Nepumuk 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

genau das was ich brauche,

vielen dank!  

[Diese Nachricht wurde von ThomasTeoma am 20. Jan. 2021 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP