habe mal wieder etwas womit ich mich an euch wende.
ich fülle combobox2 über combobox1 was auch funzt.
nun möchte ich das auch direkt nach dem füllen die liste von combobox2 aufgeht.
folgender code
Private Sub ComboBox1_change()
Dim iRow As Integer
iRow = 1
ComboBox2.Clear
Do Until IsEmpty(Sheets("Tabelle1").Cells(iRow, 1))
ComboBox2.AddItem Sheets("Tabelle1").Cells(iRow, ComboBox1.ListIndex + 2)
iRow = iRow + 1
Loop
ComboBox2.DropDown
End Sub
combobox2 funzt net
habe es auch schon so probiert
Private Sub ComboBox1_change()
Dim iRow As Integer
iRow = 1
ComboBox2.Clear
Do Until IsEmpty(Sheets("Tabelle1").Cells(iRow, 1))
ComboBox2.AddItem Sheets("Tabelle1").Cells(iRow, ComboBox1.ListIndex + 2)
iRow = iRow + 1
Loop
End Sub
Private Sub ComboBox1_Click()
ComboBox2.DropDown
End Sub
geht aber auch nicht
weiss jemand rat? würde mich über hilfe freuen
mfg
louis