Hallo zusammen!
Ich hänge leider schon seit Tagen an einem vielleicht sehr einfach lösbaren Problem.
Ich habe 4 Comboboxen, die voneinander abhängig sind. Für die erste und zweite, habe ich das ganze manuell erstellt, für die dritte habe ich folgenden Code verwendet (wobei ich eine Hilfstabelle nur mit Werten aus ComboBox 1 und 2 erstellt habe):
Private Sub ComboBox2_Change()
ComboBox3.Clear
With Worksheets(3).Range("A1:B291")
Set c = .Find(ComboBox2.Value, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
ComboBox3.AddItem c.End(xlToRight)
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Sub
Das klappt auch soweit ganz gut.
Nur jetzt ist ComboBox 4 anhängig von dem was in Combobox 2 UND 3 steht, und da hilft mir dieser Code leider nicht weiter, da ich .Find(...) nur für einen Wert machen kann. Habe auch hier eine Tabelle mit den Werten aus ComboBox2 , 3 und 4 erstellt.
Private Sub ComboBox3_Change()
ComboBox4.Clear
With Worksheets(6).Range("A1:C507")
Set d = .Find(ComboBox3.Value, LookIn:=xlValues)
If Not d Is Nothing Then
firstAddress = d.Address
Do
Set d = .FindNext(d)
Loop While Not d Is Nothing And c.Address <> firstAddress
End If
End With
End Sub
Könnte mir bitte jemand sagen, wie es schaffe, dass die vierte Combobox sowohl von 2 als auch 3 abhängt?
Vielen Dank!
Maggy
|