Keuzelijst toevoegen in Userform

[Budel]

Bekijk bijlage testmap_tabblad - kopie1.xlsmHallo allemaal,

Wie kan mij helpen met het volgende probleem.
Ik heb een bestandje met een Userform waar ik een keuzelijst heb toegevoegd maar krijg deze niet werkende.
wie kan mij helpen om deze te activeren.
Mijn opzet is dat in de keuzelijst de cellen van blad "inschrijven B5:B13"gebruikt worden, daarna dat op het Userform op invoeren word gedrukt dat de gegevens automatisch worden opgeslagen in de database kolom E.
Ik heb het bestand toegevoegd.

 

[HSV]

Het kan met:

ComboBox1.List = Sheets("inschrijven").Range("b5:b13").Value

Omdat de knop op het blad 'inschrijven' staat, mag je ook.....

ComboBox1.List = Range("b5:b13").Value

.....gebruiken.

Maar omdat het getallen zijn van 1 t/m 9 kan het ook zo:

ComboBox1.List = [row(1:9)]

 

[Budel]

Ik weet niet wat ik fout doe, maar ik krijg het niet werkende.
Als het niet te veel gevraagd is wil je het bestand werkende maken.
Bij voorbaat dank

 

[gast0660]

Hoi
Zoiets?

 

[HSV]

Vervang...

   If CheckBox1 = True Then .Cells(rij, "H") = CheckBox1.Caption
    If CheckBox2 = True Then .Cells(rij, "I") = CheckBox2.Caption
    If CheckBox3 = True Then .Cells(rij, "J") = CheckBox3.Caption
    If CheckBox4 = True Then .Cells(rij, "K") = CheckBox4.Caption
    If CheckBox5 = True Then .Cells(rij, "L") = CheckBox5.Caption
    If CheckBox6 = True Then .Cells(rij, "M") = CheckBox6.Caption
    If CheckBox7 = True Then .Cells(rij, "N") = CheckBox7.Caption
    If CheckBox8 = True Then .Cells(rij, "O") = CheckBox8.Caption
    If CheckBox9 = True Then .Cells(rij, "P") = CheckBox9.Caption
    If CheckBox10 = True Then .Cells(rij, "Q") = CheckBox10.Caption
    If CheckBox11 = True Then .Cells(rij, "R") = CheckBox11.Caption
    If CheckBox12 = True Then .Cells(rij, "S") = CheckBox12.Caption
    If CheckBox13 = True Then .Cells(rij, "T") = CheckBox13.Caption
    If CheckBox14 = True Then .Cells(rij, "U") = CheckBox14.Caption
    If CheckBox15 = True Then .Cells(rij, "V") = CheckBox15.Caption
    If CheckBox16 = True Then .Cells(rij, "W") = CheckBox16.Caption
    If CheckBox17 = True Then .Cells(rij, "X") = CheckBox17.Caption
    If CheckBox18 = True Then .Cells(rij, "Y") = CheckBox18.Caption

...door.

For i = 1 To 18
     .Cells(rij, i + 7) = IIf(Me("checkbox" & i), Me("checkbox" & i).Caption, "")
    Next i

 

[Budel]

Iedereen bedankt die er voor gezorgd hebben om het werkende te maken.
ik ben er in ieder geval mee geholpen