Hallo Leute folgendes Problem :

Private Sub ComboBox1_Change()
Me.ComboBox2 = ""

Dim X As Long
 X = Worksheets("Tabelle1").Range("B2").Value
 

Select Case Me.ComboBox1
    Case "Firmen"
        Me.ComboBox2.RowSource = "Firmen"
    
    Case "Firma1"
        Me.ComboBox2.RowSource = "X" 
    'wenn oben "Firma1" statt "X" steht und das DIM X raus ist funktioniert der Code einwandfrei
    Case "Firma2"
        Me.ComboBox2.RowSource = "Firma2"
            
    Case "Firma3"
        Me.ComboBox2.RowSource = "Firma3"
              
    Case "Firma4"
        Me.ComboBox2.RowSource = "Firma4"
        
    Case "Firma5"
        Me.ComboBox2.RowSource = "Firma5"

End Select

End Sub


"Firma1" ist der Name der Gruppe im Namensmanger . Allerdings ist Firma1 auch der Zelleninhalt von B2 . 

Hintergrund ist, falls ich die Firma 1 - 5 umbennene muss ich im jetzigen Zustand in den Code eingreifen und dort auch die RowSource ändern.