If Else usw.
28.08.2014 14:21:52
MaddyHa
Ich habe ein ComboBox1 und 2 - wenn man in der 1 z.B. Haus auswählt möchte ich fix definierten, dass wenn Haus gewählt in der 2 z.B. Villa, Bungalow etc. auftaucht.
Habe mal einen Versuch gestartet, der leider so gar nicht funktioniert:
Private Sub ComboBox2_Change()
If Me.ComboBox1.Text = "Villa" Then Me.ComboBox2.AddItem ("Villa, Bungalow")
ElseIf Me.ComboBox1.Text = ("Gruppen!B5") Then Me.ComboBox2.AddItem ("Test")
ElseIf Me.ComboBox1.Text = "Gruppen!B6" Then Me.ComboBox2.AddItem ("Test")
ElseIf Me.ComboBox1.Text = "Gruppen!B7" Then Me.ComboBox2.AddItem ("Test")
ElseIf Me.ComboBox1.Text = "Gruppen!B86" Then Me.ComboBox2.AddItem ("Test")
End If
End Sub
Was genau mache ich hier falsch? Kann nicht so recht etwas finden.
Mir wäre so etwas wie die erste Elsif-Anweisung am liebsten, den Text der ersten Combo direkt aus der Tabelle in der sie vermerkt sind ziehen.
Vielen Dank für Hilfe :)