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.
|