combo-list items laden niet

[marloes72]

Het is vast en zeker iets heel knulligs , maar.......waarom laden de items van mijn combo-boxen niet?

Private Sub Nieuw_Initialize()

TBinitialen.SetFocus

With CBXtransactiemodus
    .AddItem "AAC"
    .AddItem "AUT"
    .AddItem "CNT"
    .AddItem "OVS"
End With

With CBXfrequentie
    .AddItem "jaar"
    .AddItem "half jaar"
    .AddItem "kwartaal"
    .AddItem "maand"
End With

End Sub

 

[gast0660]

Private Sub UserForm_Initialize()
CBXtransactiemodus.List = Split("AAC AUT CNT OVS")
CBXfrequentie.List = Split("jaar|half jaar|kwartaal|maand", "|")
end sub

 

[marloes72]

Ik moet dus verwijzen naar userform en niet naar de naam van het userform begrijp ik.......
Dank je wel!

 

[gast0660]

Ik moet dus verwijzen naar userform en niet naar de naam van het userform

Dit is inderdaad juist.
De code AddItem is traag,zeker voor grote lijsten.

 

[marloes72]

Het werkt goed nu idd

 

[gast0660]

Mooi zo.