Private Sub ComboBoxKat3ws()
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(xlUp))
For loZaehler = LBound(BereichStörungsarten) To UBound(BereichStörungsarten)
If Not Störungsartenliste.exists(BereichStörungsarten(loZaehler, 1)) And _
combobox1 = Cells(loZaehler + 6, "A") Then
Störungsartenliste(BereichStörungsarten(loZaehler, 1)) = ComboBoxKat3.Text
End If
Next
ComboBoxArt1.List = Störungsartenliste.Keys
Set Störungsartenliste = Nothing
End Sub