Activex Controls Combo Box unique values
28.09.2016 01:10:43
Jens
ich habe in einem Excel Document eine Activex Controls Combo Box eingefügt mit einer Dropdown Liste. Diese wird über den folgenden Code befüllt. Leider werden dabei nicht unique values genutzt, sondern es erscheinen Werte in der Droplist mehrfach angezeigt. Wie kann ich den Code umstellen, damit ich nur unique values in der Droplist habe? Danke für eure Hilfe!
Sheets("Task").Select
i = Range("I3", Range("I3").End(xlDown)).Count
i = i + 2
Sheets("Overview Chart").Select
ActiveSheet.Shapes.Range(Array("ComboBox1")).Select
With Selection
.ListFillRange = "Task!I3:I" & i
.LinkedCell = "Task!A1"
End With
Range("Z13:AA37").ClearContents