ich habe in der Userform1 die combobox1.
in diese sollen alle zellen der tabelle 1 spalte a eingelesen werden welche nicht rot(colorindex3) eingefärbt sind. kann mir dazu jemand einen tip geben?
danke
Sub CB_fuellen()
Dim objList As Object, rngC As Range
Set objList = CreateObject("Scripting.Dictionary")
With Sheets("Tabelle1")
For Each rngC In .Range(.Cells(2, 1), .Cells(Rows.Count, 1).End(xlUp))
If rngC.Interior.ColorIndex 3 Then
objList(rngC.Value) = 0
End If
Next
End With
With UserForm1.ComboBox1
.Clear
.RowSource = ""
.List = objList.keys
End With
End Sub