eindeutige Werte in einer Comboboxauswahl
06.06.2005 18:30:15
mfunke
ich habe das Problem, daß ich aus einer Excelliste die schon vorhandenen Einträge für eine Comboboxauswahl in einer Userform nutze.
so sieht das Statement aus:
With Workbooks("testfreigabe.xls").Worksheets("Vertrieb")
ComboBox1.List = .Range(.Cells(3, 2), .Cells(.UsedRange.Rows.Count, 2)).Value
ComboBox2.List = .Range(.Cells(3, 3), .Cells(.UsedRange.Rows.Count, 3)).Value
ComboBox3.List = .Range(.Cells(3, 10), .Cells(.UsedRange.Rows.Count, 10)).Value
ComboBox4.List = .Range(.Cells(3, 16), .Cells(.UsedRange.Rows.Count, 16)).Value
ComboBox5.List = .Range(.Cells(3, 11), .Cells(.UsedRange.Rows.Count, 11)).Value
ComboBox6.List = .Range(.Cells(3, 18), .Cells(.UsedRange.Rows.Count, 18)).Value
ComboBox7.List = .Range(.Cells(3, 5), .Cells(.UsedRange.Rows.Count, 5)).Value
ComboBox8.List = .Range(.Cells(3, 19), .Cells(.UsedRange.Rows.Count, 19)).Value
ComboBox9.List = .Range(.Cells(3, 15), .Cells(.UsedRange.Rows.Count, 15)).Value
End With
ComboBox1.ListIndex = 0
Leider bekomme ich aber keine eindeutige Liste, sondern alle gleichen Mehrfacheinträge auch in der Combobox mehrfach gelistet. Wenn in einer Spalte der Liste z.B. die Einträge Herr, Herrn und Frau vorkommen, aber jeweils 300 mal, will ich nur drei Einträge untereinander beim aufklappen der Combobox sehen.
Kennt jemand einen eleganten Weg das Problem zu lösen?!?