MaikBisschop
Gebruiker
- Lid geworden
- 19 mrt 2018
- Berichten
- 39
Ik heb een stukje code, waarin de waarde van ComboBox 1 t/m 10 verandert door de waarde van ComboBox.
Dit wordt steeds gecheckt door in elk 'change event' het kopje 'Change' op te roepen. Maar omdat hier mijn
'Additem' ook staat wordt de lijst van ComboBox 1 t/m 10 i.p.v. 2, 3, 4 5, 6 bijvoorbeeld 1, 2, 3, 4, 5, 6, 1, 2, 3, 4, 5, 6.
Dit komt omdat hij nog een keer bij het stukje langsloopt waar de waardes aan de combobox worden toegevoegd.
Hoe kan ik zorgen dat wanneer er weer bij dit stukje 'langsgelopen' wordt, de waardes niet nóg een keer aan de lijst worden toegevoegd?
Zie ook het voorbeeld bestand (hoop dat jullie het snappen)
Bekijk bijlage Voorbeeld.xlsm
Met vriendelijke groet,
Maik Bisschop
Dit wordt steeds gecheckt door in elk 'change event' het kopje 'Change' op te roepen. Maar omdat hier mijn
'Additem' ook staat wordt de lijst van ComboBox 1 t/m 10 i.p.v. 2, 3, 4 5, 6 bijvoorbeeld 1, 2, 3, 4, 5, 6, 1, 2, 3, 4, 5, 6.
Dit komt omdat hij nog een keer bij het stukje langsloopt waar de waardes aan de combobox worden toegevoegd.
Hoe kan ik zorgen dat wanneer er weer bij dit stukje 'langsgelopen' wordt, de waardes niet nóg een keer aan de lijst worden toegevoegd?
Code:
Private Sub Check()
'Visibility comboboxes and labels
For i = 1 To (sheet2.Range("D2"))
With Me.Controls("ComboBox" & i)
.Visible = True
End With
With Me.Controls("Label" & i)
.Visible = True
End With
Next i
For i = (sheet2.Range("D2") + 1) To 10
With Me.Controls("ComboBox" & i)
.Visible = False
End With
With Me.Controls("Label" & i)
.Visible = False
End With
Next i
For d = 1 To 10
For i = 2 To (sheet2.Range("B2") - 1)
With Me.Controls("ComboBox" & d)
.AddItem i
End With
Next i
Next d
End Sub
Private Sub UserForm_Initialize()
'ComboBox
For i = 1 To (sheet2.Range("B2") - 2)
ComboBox.AddItem i
Next i
Check
End Sub
Private Sub ComboBox_Change()
sheet2.Range("E2") = ComboBox.Value
Check
End Sub
Private Sub ComboBox1_Change()
sheet2.Range("E3") = ComboBox1.Value
Check
End Sub
Private Sub ComboBox2_Change()
sheet2.Range("E4") = ComboBox2.Value
Check
End Sub
Private Sub ComboBox3_Change()
sheet2.Range("E5") = ComboBox3.Value
Check
End Sub
Private Sub ComboBox4_Change()
sheet2.Range("E6") = ComboBox4.Value
Check
End Sub
Private Sub ComboBox5_Change()
sheet2.Range("E7") = ComboBox5.Value
Check
End Sub
Private Sub ComboBox6_Change()
sheet2.Range("E8") = ComboBox6.Value
Check
End Sub
Private Sub ComboBox7_Change()
sheet2.Range("E9") = ComboBox7.Value
Check
End Sub
Private Sub ComboBox8_Change()
sheet2.Range("E10") = ComboBox8.Value
Check
End Sub
Private Sub ComboBox9_Change()
sheet2.Range("E11") = ComboBox9.Value
Check
End Sub
Private Sub ComboBox10_Change()
sheet2.Range("E12") = ComboBox10.Value
Check
End Sub
Zie ook het voorbeeld bestand (hoop dat jullie het snappen)
Bekijk bijlage Voorbeeld.xlsm
Met vriendelijke groet,
Maik Bisschop
Laatst bewerkt: