hatte den gedanken das es in etwa so ausehen könnte klappt aber irgend wie nicht
Private Sub Userform_Initialize()
Worksheets("Rasse").Activate
ComboBox1.RowSource = ("A1:A14")
ComboBox1.ListIndex = "0"
Worksheets("Rasse").Activate
If ComboBox1.Value = Thorwaler Then
ComboBox2.RowSource = ("C1:C4")
ElseIf ComboBox1.Value = Trollzacker Then
ComboBox2.RowSource = ("c5:c6")
End If
End Sub ´aber es klappt nicht