|
Danke Gast 76392
Hat bestens geklappt.
Noch eine Frage: Wenn ich in der ComboBox1 eine dritte und vierte und ev. fünfte Eingabe mache (also zu "warm" / "Regen") nochzb. Kalt und Schnee dazufüge und dann in der Combobox2 zu den beiden Werten Kalt und Schnee ebenfalls spezifische Werte eingeben will, wie fahre ich weiter?
Private Sub UserForm_Initialize()
Me.ComboBox1.AddItem "Warm"
Me.ComboBox1.AddItem "Regen"
Me.ComboBox1.AddItem "Kalt"
Me.ComboBox1.AddItem "Schnee"
Me.ComboBox1.AddItem "Weitere" (neue)
End Sub
Private Sub ComboBox1_Click()
Me.ComboBox2.Clear
If Me.ComboBox1.ListIndex = 0 Then
Me.ComboBox2.AddItem "T Shirt"
Me.ComboBox2.AddItem "kurze Hose"
Me.ComboBox2.AddItem "Sandalette"
Me.ComboBox2.AddItem "Strohut"
Else
Me.ComboBox2.AddItem "Regenschirm"
Me.ComboBox2.AddItem "Gummistiefel"
Me.ComboBox2.AddItem "Mütze"
Me.ComboBox2.AddItem "Handschuhe"
Else - habs so versucht, geht nicht?
Me.ComboBox2.AddItem "Pullover"
Me.ComboBox2.AddItem "Warmestiefel"
Me.ComboBox2.AddItem "Ohrwärmer"
Else
Me.ComboBox2.AddItem "Skis"
Me.ComboBox2.AddItem "Stöcke"
Me.ComboBox2.AddItem "Skischuhe"
Me.ComboBox2.AddItem "Wachs"
End If
Danke für deine geduld und Hilfe
Gruss
jojue
|