ways to shorten some vbe text

[DB73]

how do i write the following in a shorter way, if possible.
i would like to have the possibility to change the subjects

If ComboBox1.value = "ziek" Or ComboBox1.value = "verlof" Or ComboBox1.value = "feestdag" Or ComboBox1.value = "bijzonder verlof" Then

the following comes after "then",is there also a way to make it shorter and the possibility to change the subject if necesary.
i mean, just name all the comboboxes that are needed and the the values and the color in one line.
now i write it for eacht combobox

   'project
        ComboBox2.Enabled = False
        ComboBox2.value = "-"
        ComboBox2.BackColor = RGB(210, 210, 210)
    'werklocatie
        ComboBox3.Enabled = False
        ComboBox3.value = "-"
        ComboBox3.BackColor = RGB(210, 210, 210)
    'normale of overuren
        ComboBox4.Enabled = False
        ComboBox4.value = "-"
        ComboBox4.BackColor = RGB(210, 210, 210)

 

[RoryA]

You can't do them in one go, but you can loop:

Select Case ComboBox1.value
   Case "ziek", "verlof" , "feestdag", "bijzonder verlof"
      Dim n as long
      for n = 2 to 4
        With Controls("ComboBox" & n)
            .Enabled = False
            .value = "-"
            .BackColor = RGB(210, 210, 210)
         End With
       next n
'... other cases as necessary
End Select

 

[DB73]

You can't do them in one go, but you can loop:

Select Case ComboBox1.value
   Case "ziek", "verlof" , "feestdag", "bijzonder verlof"
      Dim n as long
      for n = 2 to 4
        With Controls("ComboBox" & n)
            .Enabled = False
            .value = "-"
            .BackColor = RGB(210, 210, 210)
         End With
       next n
'... other cases as necessary
End Select

thanks, i can follow this one, .....in case of another combobox number thats not following up, like cb1,cb2,cb5,cb8..then its not possible this way...isnt it?

 

[RoryA]

You can still use a loop - you just set up an array of names (or number) of the controls first:

For each v in array("cb1", "cb2", "cb5", "cb8")
with controls(v)
'...

 

[DB73]

You can still use a loop - you just set up an array of names (or number) of the controls first:

For each v in array("cb1", "cb2", "cb5", "cb8")
with controls(v)
'...

ok...many thanks...solved my problem...

 

[RoryA]

Glad we could help.