Mijn vraag is helemaal niet belangrijk of noodzakelijk.
Ik ben alleen nieuwsgierig of het mogelijk is in vba?
Afhankelijk van welke optionbutton men kiest, wordt de list van een ComboBox gevuld.
Bij optionbutton1 is de ListRows ingesteld op 12
Bij optionbutton 2 en 3 is de ListRows ingesteld op 6
Toch blijft bij optionbutton 2 en 3 de schuifbalk van de combobox zichtbaar.
Hoe kan die overbodige schuifbalk weg?
Ik ben alleen nieuwsgierig of het mogelijk is in vba?
Afhankelijk van welke optionbutton men kiest, wordt de list van een ComboBox gevuld.
Bij optionbutton1 is de ListRows ingesteld op 12
Bij optionbutton 2 en 3 is de ListRows ingesteld op 6
Toch blijft bij optionbutton 2 en 3 de schuifbalk van de combobox zichtbaar.
Hoe kan die overbodige schuifbalk weg?
Code:
Private Sub OptionButton1_Click()
With Sheets(2)
ComboBox1.List = .Range("A2:A" & .Cells(.Rows.Count, 1).End(xlUp).Row).Value
ComboBox1.ListRows = 12
End With
End Sub
Private Sub OptionButton2_Click()
With Sheets(2)
ComboBox1.List = .Range("B2:B" & .Cells(.Rows.Count, 1).End(xlUp).Row).Value
ComboBox1.ListRows = 6
End With
End Sub
Private Sub OptionButton3_Click()
With Sheets(2)
ComboBox1.List = .Range("C2:C" & .Cells(.Rows.Count, 1).End(xlUp).Row).Value
ComboBox1.ListRows = 6
End With
End Sub
Bijlagen
Laatst bewerkt: