Hello,

I try to fill a combobox with Text from an excelsheet. The code i wrote works fine, but when i select my combobox a second time, then the entries will appear a second time in my combobox and after clicking a third time on the arrow to open it, all entries are three times there and so on. I am not using an userform, i have inserted the an activeX element for combobox in the excel sheet from Developer tools. Here is the code:

Private Sub ComboBox2_Change()

Dim WS As Worksheet
Dim LastRow As Long
Dim aCell As Range
Dim lIndxA As Long
Dim lIndxI As Long
Dim sTemp As String

ComboBox2.Clear

Call FillCombobox("List", "B", Me.ComboBox2)

Set WS = ActiveWorkbook.Worksheets("List")

With WS


LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row

For Each aCell In .Range("B2:B500" & LastRow)
If aCell.Value <> "" Then
Me.ComboBox2.AddItem aCell.Value
End If
Next

For lIndxA = 0 To Me.ComboBox2.ListCount - 1
For lIndxI = 0 To lIndxA - 1
If Me.ComboBox2.List(lIndxI) > Me.ComboBox2.List(lIndxA) Then
sTemp = Me.ComboBox2.List(lIndxI)
Me.ComboBox2.List(lIndxI) = Me.ComboBox2.List(lIndxA)
Me.ComboBox2.List(lIndxA) = sTemp
End If
Next lIndxI
Next lIndxA

End With

End Sub

I hope someone can help me.

regards

Think you should post a sample workbook.

ok here is an example file. Sorry its a bit late, i tried so solve the problem by myself ... couldnt find a solution. Every entry will be copied in the combobox after clicking on the arrow for opening. I get each entry many times.

http://www.file-upload.net/download-...mple.xlsm.html

I'm not sure I follow what you're doing, and definitely don't follow when it's being done.
Using the _Change() event will fire the FillCombobox procedure every time any character is typed into the combo box.
I'd think you would want the drop downs to populate before entering anything.
Perhaps using the _GotFocus event instead of _Change.
and like this for the FillCombobox procedure

I will try it, thank you.