combobox additem

[bartcorvers]

ik heb een lijst met namen en bijhorende gegevens. Via een userform met daarop een combobox wil ik de gegevens in een andere sheet plaatsen. Ik tracht de combobox te vullen met namen van de sheet "inschrijvingen" welke nog niet geplaatst werden op de sheet "Doelindeling". Dit probeer ik aan de hand van de waarden van kolom 13 op de sheet "inschrijvingen". Indien de waarden leeg zijn dan neem ik de naam op in een array naam(). Vervolgens probeer ik de waarden in de array te koppelen als lijst van de combobox, maar dit mislukt. Weet iemand wat ik fout doe?

Uiteindelijk is het de bedoeling dat ik elke naam in de lijst inschrijvingen op een bepaald doel plaatst in de lijst doelindeling, dat ik hierop controle uitvoer dat daadwerkelijk elke ingeschrevene op een doel is geplaatst en dat ik de flexibiliteit heb om nog wijzigingen uit te voeren in de sheet "doelindeling".(bv reeds geplaatste namen van doel verwisselen enz)
Wie kan mij hierbij helpen?

In bijlage een voorbeeld bestandje.

Alvast bedankt aan iedereen.Bekijk bijlage doelindeling opmaken.xlsm
Bart Corvers

 

[snb]

Speciaal voor jou daarvoor een pagina aangemaakt:

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

 

[bartcorvers]

snb ik heb de site reeds bekeken en heb zo getracht de code te schrijven. Maar in het voorbeeldbestandje loopt deze vast met foutcode "70".
grts bart

 

[snb]

Gebruik de codemodule van het userform waarvoor ie bedoeld is.

Private Sub UserForm_Initialize()
    ComboBox2.List = Sheets("inschrijvingen").Columns(1).SpecialCells(2).Offset(1).SpecialCells(2)
End Sub

NB. Overwin je angst om kolom A en Row 1 niet te gebruiken.
Verwijder die lege kolm/rij, opdat het eerste gegeven van iedere tabel in cel A1 staat.

 

[bartcorvers]

snb ik heb je tips opgevolgd, nl lege kolom verwijderd en van de tweede sheet de eerste lege rij.
Vervolgens heb ik uw code in de modulecode van de userform gekopieerd maar telkens krijg ik dezelfde fout, nl foutcode 381.
De foutcode "70" en "381" hebben denk ik, beiden te maken met gebrek aan machtiging om de actie uit voeren.

Waarom ik de eerste rij leeg laat: omdat in deze rij een aantal drukknoppen staan met verschillende functies. (althans in het oorspronkelijke en veel grotere bestand)

 

[snb]

simpele aanpassing:

Private Sub UserForm_Initialize()
    ComboBox2.List = Sheets("inschrijvingen").Columns(1).SpecialCells(2).Offset(1).SpecialCells(2).Value
End Sub

NB. Je kunt de eerste rij zo hoog maken dat er makkelijk een knop bij kan.

 

[bartcorvers]

snb, ook al begrijp ik je code niet helemaal, in het excelblad blijft de foutcode "70" verschijnen bij het oproepen van de userform.
Bekijk bijlage doelindeling opmaken.xlsm

 

[snb]

Maak de eigenschap rowsource leeg.