31.08.2020, 08:21
Guten Tag,
Vielleicht kann mir hier jemand helfen.
Ich versuche in einem Formular durch die Auswahl in der ersten Combobox die zweite Combobox mit Werten, die in der Tabelle in der Zeile des Wertes der ersten Combobox stehen, zu füllen.
Ich habe es bereits hinbekommen, dass sich die zweite Combobox mit allen Werten der Tabelle ohne Duplikate füllt. Jetzt muss es nur noch Klappen, dass nur die Werte in Verbindung mit dem Wert in der ersten Combobox in der Liste angezeigt werden.
Mein bisheriger Code:
Vielleicht kann mir hier jemand helfen.
Ich versuche in einem Formular durch die Auswahl in der ersten Combobox die zweite Combobox mit Werten, die in der Tabelle in der Zeile des Wertes der ersten Combobox stehen, zu füllen.
Ich habe es bereits hinbekommen, dass sich die zweite Combobox mit allen Werten der Tabelle ohne Duplikate füllt. Jetzt muss es nur noch Klappen, dass nur die Werte in Verbindung mit dem Wert in der ersten Combobox in der Liste angezeigt werden.
Mein bisheriger Code:
PHP-Code:
Private Sub ComboBoxKat3_Change(XY)
Dim Störungsartenliste As Object
Dim BereichStörungsarten As Variant
Dim loZaehler As Long
Set Störungsartenliste = CreateObject("Scripting.Dictionary")
BereichStörungsarten = Range("H7", Range("H10000").End(xlDown))
For loZaehler = LBound(BereichStörungsarten) To UBound(BereichStörungsarten)
' Eintrag wird nur übernommen wenn er im Störungsartenliste noch nicht enthalten ist
Störungsartenliste(BereichStörungsarten(loZaehler, 1)) = 0 And Störungsartenliste(BereichStörungsarten(loZaehler, 1)) = ComboBoxKat3.Text
Next
ComboBoxArt1.List = Störungsartenliste.Keys
Set Störungsartenliste = Nothing
End Sub