3 ComboBoxen voneinander abhängig wählbar gestalte
04.02.2013 14:08:38
Heinz
ich würde gerne in einem Formular 3 ComboBoxen so einfügen, dass sie die Werte in Abhängigkeit der Auswahl anzeigen.
Für die ersten beiden habe ich es manuell gemacht und das klappt auch. Bei dritten ComboBox _ habe ich es auf Grund der vielen Werte mit einer Schleife versucht.
Private Sub ComboBox2_Change()
ComboBox3.Clear
Dim i As Integer
For i = 3 To Sheets("Hilfsdaten").Range("A80000").End(xlUp).Row
If ComboBox1.Text = Cells(i, 1) And ComboBox2.Text = Cells(i, 3) Then
With Me.ComboBox3
.AddItem Cells(i, 5)
End With
End If
Next
End Sub
Seltsam ist nun das es für die ersten 35 Zeilen funktioniert und danach nicht mehr klappt. Es werden dann in der dritten Box keine Werte mehr angegeben.
Hoffe es kann mir jemand helfen. Danke schon mal.
Anzeige