Userform Combobox Excel 2010 automatisch openklappen

[mczwen]

Ik heb van iemand onderstaande code gekregen voor een combobox op een userform.
Het werkt op zich prima, maar ik zit met 1 klein dingetje...

Als ik het userform open en ik klik in de combobox op het pijltje naar beneden gebeurt er niets.
Ik moet eerst een letter intikken voordat ik kan zoeken in de range.
Ik heb het hele forum afgezocht en verschillende google zoekopdrachten gegeven, maar helaas nog zonder het gewenste resultaat.
Mijn hoop is op jullie gevestigd.

Hoe kan ik zonder dat ik een letter hoef in te toetsen zoeken in de combobox ?

Private Sub CBODebiteurnummer_Change()
'zoek de en toon de bijbehorende gegevens.
CBODebiteurnummer.List = Sheets("Debiteuren").Cells(2, 1).Resize(10000).Value
txtdebnaam = CBODebiteurnummer.Value
With Range("Debiteuren!A2:A60000")
Set c = .Find(txtdebnaam, LookIn:=xlValues)

txtdebnr = Range("Debiteuren!" & c.Address).Offset(0, 1)
txtdebplaats = Range("Debiteuren!" & c.Address).Offset(0, 5)
txtdebstraat = Range("Debiteuren!" & c.Address).Offset(0, 3)
txtdebpostcode = Range("Debiteuren!" & c.Address).Offset(0, 4)
txtdebbtwnr = Range("Debiteuren!" & c.Address).Offset(0, 2)

End With

End Sub

 

[HSV]

Zet in de "UserForm_Initialize()" gebeurtenis van het Userform.

with Sheets("Debiteuren")
 CBODebiteurnummer.List = .range("a2:a" & .cells(rows.count,1).end(xlup).row).value
end with

en verwijder deze coderegel uit de "Change()" gebeurtenis.

CBODebiteurnummer.List = Sheets("Debiteuren").Cells(2, 1).Resize(10000).Value

 

[mczwen]

Dank je wel voor je reactie Harry,
maar helaas... lost het niet mijn "probleem " op.

Mvg
Frank

 

[Warme bakkertje]

Je moet altijd een waarde in je CB aanklikken voordat er een Change-event plaatsvindt.

 

[mczwen]

Dank je wel Rudi,
Het probleem is alleen dat er geen waarden verschijnen in mijn ComboBox.
Pas als ik een letter intyp komt er een lijstje.
Ik zou zo graag de eerste waarde standaard tonen zodat de pull down van de combobox werkt zonder dat ik eerst iets hoef in te tikken.

 

[OctaFish]

Waarom vul je de keuzelijst niet bij de Initialize van het formulier? Nu vul je hem pas bij het klikken in de lijst. En dan heeft hij nog geen waarden, en valt er dus ook niks open te klappen.

 

[Warme bakkertje]

Herlees Post #2 van Harry eens.

 

[mczwen]

Ik heb alle posts gelezen en uitgevoerd, of geprobeerd, maar ik denk dat ik gewoonweg niet in de wieg ben gelegd voor dit werk.

Ook als ik de regels verplaats naar de initialize () gebeurt er pas iets als ik een letter in tik in het veld.

 

[OctaFish]

Zonder bestandje kunnen we uiteraard nooit zien waar het mis gaat.

 

[snb]

maar ik denk dat ik gewoonweg niet in de wieg ben gelegd voor dit werk.

Ik ken niemand die daarvoor wel in de wieg is gelegd.

 

[mczwen]

Poging om bestand te uploaden

Hierbij een overzicht van het debiteuren blad waar de input voor de ComboBox vandaan zou moeten komen.
Ik krijg het Excel bestand om een of andere reden niet geupload, dus ik hoop dat dit ook een beetje kan verduidelijken.

 

[HSV]

Aan een plaatje hebben we niets.
Zip, Rar of upload het via "Mijn Bestand.nl".
Succes.