wie kann man eine dritte ComboBox in Abhängigkeit der Auswahl in der zweiten ComboBox füllen lassen?
Wenn in der ComboBox1 gewählt wird aus Spalte A1, soll die ComboBox2 gefüllt werden mit Zahlen aus der Spalte B1 bis P1. Das sind Zahlen von 1 bis 15.
In der Zeile 2 sind es 16-30
In der Zeile 3 sind es 31-45
u.s.w.
Wenn in der ComboBox2 gewählt wird z.B. eine Zahl 5, dann soll die ComboBox3 nur
mit den restlichen Zahlen aus der endsprechenden Zeile gefüllt werden. Das heißt, zur Auswahl stehen dann nur die Zahlen 6, 7, 8...bis 15.
Beispiel: https://www.herber.de/bbs/user/84499.xls
Hier der Code für das einlesen in die ComboBox2.
Private Sub ComboBox1_Change()
Dim ar As Variant
Dim wks As Worksheet
Set wks = Worksheets("Tabelle1")
ar = wks.Range("B" & ComboBox1.ListIndex + 1 & ":P" & ComboBox1.ListIndex + 1)
ComboBox2.Column = ar
End Sub
Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "Trial1"
.AddItem "Trial2"
End With
End Sub
Hat jemand eine Idee und kann helfen?Vielen Dank im Voraus. chandler