Combobox lijst weergeven

[CamJacobus]

Goedemiddag allen,

Onderstaande code gebruik ik om een Combobox te maken voor een keuze uit verschillende variabelen.

Private Sub Combobox1_Initialize()
    Dim cLoc As Range
    Dim ws As Worksheet
    Set ws = Worksheets("Gegevens")
    
    For Each cLoc In ws.Range("TBKlanten")
        With Me.ComboBox1
            .AddItem cLoc.Value
        End With
    Next cLoc
End Sub

De Combobox geeft echter geen keuzes weer. Wat doe ik fout?

Zie bestand voor uitwerking voorbeeld:
Bekijk bijlage test met lijst combobox.xlsm

 

[jkpieterse]

verander

Combobox1_Initialize

in

Userform_Initialize

 

[edmoor]

Wijzig:
Private Sub Combobox1_Initialize()

In:
Private Sub Userform_Initialize()

*Botsing met jkpieterse

 

[CamJacobus]

Bedankt! Het kan soms zo makkelijk zijn

 

[snb]

Dat dacht je maar:

Private Sub Userform_Initialize()
    combobox1.list= sheets("Gegevens").Range("TBKlanten").value
End Sub

Zie ook: http://www.snb-vba.eu/VBA_Fill_combobox_listbox.html

 

[CamJacobus]

Haha het kan altijd makkelijker

 

[edmoor]

Vooral als snb meekijkt