|
Hallo,
habe eine UserForm mit zwei ComboBox(en) :-) - ComboBox1 und ComboBox2..
Ich möchte nun, dass das der Inhalt bzw. das Befüllen ein gegenseitiges Zusammenspiel (dynamisch) ist.
Der Pseudocode lautet wie folgt: Wenn in ComboBox1 "Obst" ausgewählt wird, steht in ComboBox2 nur "Apfel" und Birne zur Auswahl. Wenn in ComboBox1 "Gemüse" ausgewählt wird, steht in ComboBox2 nur "Salat" und "Tomate" zur Auswahl.
Mein Code lautet wie folgt (ursprünglich) für das initialisieren der UserFrom:
Private Sub UserForm_Initialize()
'KomboBox befüllen
With Me.ComboBox1
.AddItem "Obst"
.AddItem "Gemüse"
.ListIndex = -1
End With
With Me.ComboBox2 .AddItem "AMG"
.AddItem "Afpel"
.AddItem "Birne"
.AddItem "Salat"
.AddItem "Tomate"
.ListIndex = -1
End With
End Sub
Dieser Code funktioniert, jedoch nicht so, wie oben beschrieben und gewollt :-)
Der überarbeitete Code lautet (welcher jedoch nicht funktioniert):
Private Sub UserForm_Initialize()
With Me.ComboBox1
.AddItem "Obst"
.AddItem "Gemüse
.ListIndex = -1
End With
If ComboBox_Verfahren.Value = "Obst" Then
With Me.ComboBox2
.AddItem "Apfel"
.AddItem "Birne"
End With
Else
With Me.ComboBox_Groeße
.AddItem "Apfel"
.AddItem "Birne"
.AddItem "Salat"
.AddItem "Tomate"
.ListIndex = -1
End With
End If
End Sub
So, hoffe ihr habe es verständlich dargelegt und wäre über Hilfe sehr dankbar, da ich einfach nicht von dem Schlauch runter komme, trotz Platzwechsel :-)
|