Ich habe mal
Private Sub ComboBox2_Enter()
On Error Resume Next
ComboBox2.List = SVERWEISSPECIAL(rngBereich, 2, Array(1), Array(ComboBox1))
On Error GoTo 0
End Sub
mit
Private Sub ComboBox2_Enter()
On Error Resume Next
' ComboBox2.List = SVERWEISSPECIAL(rngBereich, 2, Array(1), Array(ComboBox1))
If Me.ComboBox1.List(Me.ComboBox1.ListIndex, 0) = 54 Then
Me.ComboBox2.RowSource = "Tabelle1!B2:C4"
Else
Me.ComboBox2.RowSource = "Tabelle1!B6:C7"
End If
On Error GoTo 0
End Sub
ersetzt und schon funktioniert der Code problemlos.
Du mußt also Deinen Befüllungscode für die zweite Combobox überprüfen.
Severus
|