combobox vullen met unieke waarden uit een kolom

[Gerben84]

Hallo, ik heb een combobox gemaakt met daarin de waarden uit een kolom waar men nu een keuze uit kan maken;

Private Sub UserForm_Initialize()

    With ComboBox1 
        .RowSource = "nul_maaiveld!A2:A10000" 
    End With
  ComboBox1.Value = "Maak uw keuze:"

Probleem is nu echter dat ik een groot bereik heb opgegeven, aangezien deze kolom telkens automatisch aangevuld wordt. Hierdoor krijg ik nu vele witte keuzemogelijkheden in mijn lijst, omdat niet alle cellen van het bereik nog zijn gevuld.

Daarom mijn vraag: hoe kan kan ik aangeven dat alleen unieke waarden of waarden groter dan 0 in de keuzelijst mogen komen te staan?

 

[Gerben84]

Heb het probleem al opgelost :thumb:

Private Sub UserForm_Initialize()
Dim Lst As Variant
Application.ScreenUpdating = False
Application.DisplayAlerts = False

Call Tonen
Sheets("nul_maaiveld").Select
Lst = Range("A2", Range("A2").End(xlDown))
ComboBox1.List = Lst
End Sub

End(xlDown) toegevoegd om einde van de range te bepalen

 

[sis123]

Ik krijg echter geen unieke waarden in mijn listbox