Private Sub ComboBox1_Change()

ComboBox2.Clear
ComboBox3.Clear

'#### Elektrik #####
If ComboBox1.Value = "Elektrik" Then

    ComboBox2.AddItem "Sensor"
    ComboBox2.AddItem "Schalter"

Else
End If
  
'#### Hydraulik #####
If ComboBox1.Value = "Hydraulik" Then

    ComboBox2.AddItem "Pumpe"
    ComboBox2.AddItem "Ventil"
     
Else
End If


'#### Steuerung #####
If ComboBox1.Value = "Steuerung" Then

    ComboBox2.AddItem "SPS"
    ComboBox2.AddItem "Bus-Leitung"
    
Else
End If
End Sub

Private Sub ComboBox2_Change()

ComboBox3.Clear

If ComboBox2.Value = "Sensor" Then
        
    ComboBox3.AddItem "Hersteller Sensor 1"
    ComboBox3.AddItem "Hersteller Sensor 2"
    ComboBox3.AddItem "Hersteller Sensor 3"
                           
Else
End If

If ComboBox2.Value = "Schalter" Then

    ComboBox3.AddItem "Hersteller Schalter 1"
    ComboBox3.AddItem "Hersteller Schalter 2"
    ComboBox3.AddItem "Hersteller Schalter 3"

Else
End If

If ComboBox2.Value = "Pumpe" Then

    ComboBox3.AddItem "Hersteller Pumpe 1"
    ComboBox3.AddItem "Hersteller Pumpe 2"
    ComboBox3.AddItem "Hersteller Pumpe 3"
                           
Else
End If

If ComboBox2.Value = "Ventil" Then

    ComboBox3.AddItem "Hersteller Ventil 1"
    ComboBox3.AddItem "Hersteller Ventil 2"
    ComboBox3.AddItem "Hersteller Ventil 3"

Else
End If
        
If ComboBox2.Value = "SPS" Then
        
    ComboBox3.AddItem "Hersteller SPS 1"
    ComboBox3.AddItem "Hersteller SPS 2"
    ComboBox3.AddItem "Hersteller SPS 3"
                           
Else
End If

If ComboBox2.Value = "Bus-Leitung" Then

    ComboBox3.AddItem "Hersteller Bus-Leitung 1"
    ComboBox3.AddItem "Hersteller Bus-Leitung 2"
    ComboBox3.AddItem "Hersteller Bus-Leitung 3"

Else
End If
        
End Sub

Private Sub CommandButton1_Click()

UserForm1.Hide

MsgBox ComboBox1.Value & " - " & ComboBox2.Value & " - " & ComboBox3.Value

End Sub

Private Sub userform_initialize()

ComboBox2.Clear
ComboBox3.Clear

ComboBox1.AddItem "Elektrik"
ComboBox1.AddItem "Hydraulik"
ComboBox1.AddItem "Steuerung"

End Sub