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)
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