combine change event on 1 combobox

[DB73]

@Alex Blakenburg gave me today a code here on the forum for running a change event on a userform combobox
but now im tryin to work it out..
the code work perfectly but i need, almost the same code, to run on/in the same combobox
the first code works on CB 2 - 17, at value 1, value2 value3, value4
but the 2nd has to run from 11 - 17, only when another value is choosen in the combobox (value 5)
so i tought to combine these 2 code....but i think it doesnt work on a change event

code 1, from Alex;

Private Sub ComboBox1_Change()
    Dim i As Long

    Select Case Me.ComboBox1.Value
        Case "ziek", "verlof", "feestdag", "bijzonder verlof"
            For i = 2 To 17
                With Me.Controls("ComboBox" & i)
                   .Enabled = False
                   .Value = "-"
                   .BackColor = RGB(224, 224, 224)
                End With
            Next i
        
        Case Else
          For i = 2 To 17
             With Me.Controls("ComboBox" & i)
                .Enabled = True
                .Value = ""
                .BackColor = RGB(255, 255, 255)
             End With
          Next i
    End Select
End Sub

code 2 (to combine with 1)

Private Sub ComboBox1_Change()
    Dim i As Long

    Select Case Me.ComboBox1.Value
        Case "thuiswerk"
            For i = 11 To 17
                With Me.Controls("ComboBox" & i)
                   .Enabled = False
                   .Value = "-"
                   .BackColor = RGB(224, 224, 224)
                End With
            Next i
        
        Case Else
          For i = 2 To 17
             With Me.Controls("ComboBox" & i)
                .Enabled = True
                .Value = ""
                .BackColor = RGB(255, 255, 255)
             End With
          Next i
    End Select
End Sub

 

[rlv01]

Perhaps this?

Private Sub ComboBox1_Change()
    Dim i As Long
    
    Select Case Me.ComboBox1.Value
        Case "ziek", "verlof", "feestdag", "bijzonder verlof"
            For i = 2 To 17
                With Me.Controls("ComboBox" & i)
                    .Enabled = False
                    .Value = "-"
                    .BackColor = RGB(224, 224, 224)
                End With
            Next i
            
        Case "thuiswerk"
            For i = 11 To 17
                With Me.Controls("ComboBox" & i)
                    .Enabled = False
                    .Value = "-"
                    .BackColor = RGB(224, 224, 224)
                End With
            Next i
            
        Case Else
            For i = 2 To 17
                With Me.Controls("ComboBox" & i)
                    .Enabled = True
                    .Value = ""
                    .BackColor = RGB(255, 255, 255)
                End With
            Next i
    End Select
End Sub

 

[DB73]

Perhaps this?

Private Sub ComboBox1_Change()
    Dim i As Long
   
    Select Case Me.ComboBox1.Value
        Case "ziek", "verlof", "feestdag", "bijzonder verlof"
            For i = 2 To 17
                With Me.Controls("ComboBox" & i)
                    .Enabled = False
                    .Value = "-"
                    .BackColor = RGB(224, 224, 224)
                End With
            Next i
           
        Case "thuiswerk"
            For i = 11 To 17
                With Me.Controls("ComboBox" & i)
                    .Enabled = False
                    .Value = "-"
                    .BackColor = RGB(224, 224, 224)
                End With
            Next i
           
        Case Else
            For i = 2 To 17
                With Me.Controls("ComboBox" & i)
                    .Enabled = True
                    .Value = ""
                    .BackColor = RGB(255, 255, 255)
                End With
            Next i
    End Select
End Sub

Works perfectly
And now i see what i did wrong...
but can i add as much "case"as i want ?

 

[Alex Blakenburg]

Works perfectly
And now i see what i did wrong...
but can i add as much "case"as i want ?

Pretty much. But it is a form of hard coding, so if you have a lot of these, it may be worth considering having a mapping table in the workbook.

 

[DB73]

Pretty much. But it is a form of hard coding, so if you have a lot of these, it may be worth considering having a mapping table in the workbook.

ok...tx for the help.
i try to work ik out now.
im just a beginner...so got a lot to learn