Combobox keuzelijst

[MayNiak666]

Ik zoek naar de oplossing voor het volgende:

In kolom E heb ik vanaf rij 4 een lijst met namen. Die lijst met namen wordt iedere week langer, dus de laatste rij is onbepaald. In de lijst met namen komen duplicaten voor.
Hoe kan ik de unieke namen, die in de lijst voorkomen, in een combobox krijgen? Ik zoek dus eigenlijk een sub die een naam mbv combox.additem toevoegt aan de keuzelijst, tenzij die naam al in de keuzelijst voorkomt. Wie weet hoe dat gaat?

 

[Ingrid B]

Private Sub UserForm_Initialize()
Dim rij As Integer
  rij = 4
  While Cells(rij, 5) <> ""
    If Application.WorksheetFunction.CountIf( _
      Range([E4], Cells(rij, 5)), Cells(rij, 5)) = 1 Then
      ComboBox1.AddItem Cells(rij, 5)
    End If
    rij = rij + 1
  Wend
End Sub

 

[MayNiak666]

Dat is'm

Ingrid, je bent geweldig!:thumb: Maar ja, dat wist je vast al wel...