Gegevens laden in userform dmv combobox keuze

[vds01]

hoi

ik heb volgende probleem.
In een userform heb ik een combobox staan. deze combobox heeft 4 keuze mogelijkheden.
Als ik keuze 1 kies moet in de userform in de tekstboxen de waardes van keuze 1 verschijnen. Selecteer ik keuze 2 de waardes van keuze 2.
Dit doet hij allemaal prima zolang ik maar geen 10 waardes langs elkaar wil laden.
Van moment dat ik een 10de waarde erbij wil laden geeft hij een foutmelding.

dus van moment dat ik volgende code aanpas
Const Part2Range As String = "H2023"

naar
Const Part2Range As String = "H20:Q23"

dan is er een fout.

iemand een idee?

grtjs

 

[ExcelAmateur]

vds01,


In je verhaal heb je het over Const Part2Range.

Const Part2Range As String = "H20:Q23"

Maar in de code ga je maar tot P23

Const Part2Range As String = "H20:P23"

Zou dat het probleem kunnen zijn?

 

[Warme bakkertje]

Private Sub UserForm_Initialize()
    myarray = [Calibration!F20:Q23]
    With Me.cbo_channel
        .List = myarray
    End With
    cbo_channel = Worksheets("Calibration").Range("I17")
End Sub

Private Sub cbo_channel_Change()
'--------------------------------------
'Tekst in tekstbox.
'--------------------------------------
'Tekstbox TextBox1
  With Me.cbo_channel
    Me.TextBox1.Value = .List(.ListIndex, 2)
    'Tekstbox TextBox2
    Me.TextBox2.Value = .List(.ListIndex, 3)
    'Tekstbox TextBox3
    Me.TextBox3.Value = .List(.ListIndex, 4)
    'Tekstbox TextBox4
    Me.TextBox4.Value = .List(.ListIndex, 5)
    'Tekstbox TextBox5
    Me.TextBox5.Value = .List(.ListIndex, 6)
    'Tekstbox TextBox6
    Me.TextBox6.Value = .List(.ListIndex, 7)
    'Tekstbox TextBox7
    Me.TextBox7.Value = .List(.ListIndex, 8)
    'Tekstbox TextBox8
    Me.TextBox8.Value = .List(.ListIndex, 9)
    'Tekstbox TextBox9
    Me.TextBox9.Value = .List(.ListIndex, 10)
    'Tekstbox TextBox10
    Me.TextBox10.Value = .List(.ListIndex, 11)
  End With
End Sub

 

[vds01]

hoi

merci voor de info.
het heeft mij goed vooruit geholpen.

grtjs

 

[Warme bakkertje]

Zet je de vraag dan nog even op opgelost