Outsider77
Erfahrenes Mitglied
Hallo!
Ich habe auf einer Userform eine Listbox plaziert,
die mit mehreren Werten gefüllt ist.
Ebenfalls auf der Userform befinden sich mehrere Combo-Boxen,
die im Anfangszustand den gleichen Inhalt wie die Listbox haben.
Jetzt soll der User bei den nötigen Combo-Boxen (müssen nicht alle sein)
eine Auswahl treffen.
Nach jeder Auswahl wird die Listbox um diesen Wert reduziert und die übrigen
Combo-Boxen sollen nun wieder mit diesem reduzierten Inhalt gefüllt werden.
Zuerst hatte ich mir vorgestellt, dass ich in jede einzelne
eine Art Refill-Funktion schreibe, welche den reduzierten Inhalt der Listbox
an die anderen ComboBoxen weitergibt.
Das ist zwar sicher machbar, aber doch mit erheblichem Schreibaufwand verbunden.
Ist es vielleicht möglich, diese vielen einzelnen Schritte zusammenzufassen?
Also in etwa so:
Mal abgesehen davon, dass der Code eher dem entspricht,
was ich mir im Kopf gerade vorstelle.
Wenn ich eine solche Funktion hätte, bräuchte ich nicht jede einzelne
zu schreiben.
Danke schonmal für Eure Hilfe!
Gruß Outsider
Ich habe auf einer Userform eine Listbox plaziert,
die mit mehreren Werten gefüllt ist.
Ebenfalls auf der Userform befinden sich mehrere Combo-Boxen,
die im Anfangszustand den gleichen Inhalt wie die Listbox haben.
Jetzt soll der User bei den nötigen Combo-Boxen (müssen nicht alle sein)
eine Auswahl treffen.
Nach jeder Auswahl wird die Listbox um diesen Wert reduziert und die übrigen
Combo-Boxen sollen nun wieder mit diesem reduzierten Inhalt gefüllt werden.
Zuerst hatte ich mir vorgestellt, dass ich in jede einzelne
Code:
Private Sub ComboBox_Change()
an die anderen ComboBoxen weitergibt.
Das ist zwar sicher machbar, aber doch mit erheblichem Schreibaufwand verbunden.
Ist es vielleicht möglich, diese vielen einzelnen Schritte zusammenzufassen?
Also in etwa so:
Code:
Function ComboBox_Refill
For Each ComboBox In UserForm1
If .event = Change Then
.AddItem (inhalt)
End If
Next ComboBox
End Function
was ich mir im Kopf gerade vorstelle.
Wenn ich eine solche Funktion hätte, bräuchte ich nicht jede einzelne
Code:
Private Sub ComboBox_Change()
Danke schonmal für Eure Hilfe!
Gruß Outsider
Zuletzt bearbeitet: