Combobox, alleen keuze uit keuzelijst mogelijk

[Bokx]

Beste forumgebruikers,

Weet iemand hoe ik de keuzelijst in de combobox, zie bijgevoegd bestand, zichtbaar krijg. Nu dient er eerst iets in de combobox te gebeuren voordat de lijst verschijnt, dat wil ik voorkomen.

Heb al gezocht op het forum, maar kon geen gepast antwoord vinden.

Alvast bedankt

 

[Interface]

je maakt een klein foutje...

Jouw script was:

Private Sub ComboBox1_Change()

ComboBox1.List() = Array("Groep 1", "Groep 2", "Groep 3", "Groep 4", "Groep 5", "Groep 6", "Groep 7", "Groep 8", "Groep 9", "Groep 10", "Groep 11", "Groep 12", "Groep 13", "Groep 14", "Groep 15", "Groep A", "Groep B", "Groep C", "Groep D", "Groep E", "Groep F", "Groep G", "Groep H")

End Sub

Je ziet jouw twee haakjes na comobobox1.list() Haal deze haakjes weg en je code werkt perfect.

Waat je nog beter kan doen is:

Private Sub Document_Open()

'***************************************************
'****************    INTERFACE    ******************
'***************************************************

Dim strList(22), strAlfabet(7) As String
Dim bytTeller As Byte

For bytTeller = 1 To 15

    strList(bytTeller - 1) = "Groep" & bytTeller

Next

For bytTeller = 65 To 72

    strList(bytTeller - 50) = "Groep" & Chr(bytTeller)
    
Next

ComboBox1.List = strList

End Sub

Ik grbuikt niet het Event Combobox_change maar Document_Open, de lijst wordt geladen op het moment dat het bestand wordt geopend.

 

[snb]

Combobox1.list() is hetzelfde als Combobox1.list. Daarin maak je geen fout.
Het handigst is de combobox te vullen als het document geopend wordt.
Dat kan eenvoudig met:

Private Sub Document_Open()
  ComboBox1.List = Split(Replace("Groep 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,A,B,C,D,E,F,G,H", ",", ",Groep "), ",")
End Sub

De methode split maakt vanzelf een 1-dimensionele array aan.

 

[Interface]

Dat kan natuurlijk ook

Maar SNB hoe komt dat de orginele code wel werkt op het moment dat ik de haakjes weghaal?

 

[Interface]

Ik zie het al:$

Lijst wordt natuurlijk niet ingeladen:$.....


Dat ik dat niet eerder zag...

 

[Bokx]

Dank u allen

Forumgebruikers,

Super bedankt voor de geboden oplossingen, ze werken allemaal!:thumb:

Ik zal de vraag op beantwoord zetten.