Listbox toont geen waarden

[stefano]

Beste,

Ik krijg geen waarden te zien in mijn Listbox. Kan iemand helpen?

dank alvast !

Private Sub Menu_Initialize()

'Wissen Textbox
TBArtNum.Value = ""
TBArtNaam.Value = ""
TBBehoefte.Value = ""
TBStock.Value = ""
TBZieNr.Value = ""
TBZieNaam.Value = ""
TBVeilig.Value = ""
TBTHT.Value = ""

'Wissen Option Button
OB001.Value = False
OB002.Value = False

'Wissen Listbox
CBAfzak.Value = ""

'Opvullen Afzaklijnen
CBAfzak.List = Worksheets("SRN").Range("planner").Value

'Set Focus on TBArtNum
TBArtNum.SetFocus

End Sub

 

[edmoor]

En je voorbeeld document?

 

[stefano]

... Maandag ...

 

[edmoor]

Je blad heet niet SRN, er is geen benoemd bereik met de naam planner en je hebt userform_initialize gewijzigd in menu_initialize.
Die laatste wordt uiteraard nooit uitgevoerd.

 

[stefano]

Ik had tabblad SRN gedelete. Nu nieuwe bijlage, excuus. Op dit tabblad is een bereik planner actief.

Ik begrijp echter niet

'je hebt userform_initialize gewijzigd in menu_initialize'

 

[edmoor]

Wat ik al zei.
Fout:
Private Sub Menu_Initialize()

Goed:
Private Sub Userform_Initialize()

 

[gast0660]

CBAfzak.List = Split("MBA MCA MSC MECS CA")

is voldoende, de rest van de code is overbodig.

 

[stefano]

Prima, opgelost, dank je. Dat was wel even zoeken