Mehrere Combo-Boxen

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
Code:
Private Sub ComboBox_Change()
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:
Code:
Function ComboBox_Refill
For Each ComboBox In UserForm1
    If .event = Change Then
        .AddItem (inhalt)
     End If
Next ComboBox
End Function
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
Code:
Private Sub ComboBox_Change()
zu schreiben.
Danke schonmal für Eure Hilfe!
Gruß Outsider
 
Zuletzt bearbeitet:

Outsider77

Erfahrenes Mitglied
OK, ich formuliere meine Frage um:
Ich habe über 20 Combo-Boxen und bei jedem einzelnen
Click-Event wird immer der selbe Code ausgeführt.
Gibt es eine Möglichkeit in VBA, die Sache zu vereinfachen?
Ich müßte sämtliche Click-Events der Boxen abfangen, wie schaffe ich das?
Vielen Dank!
Gruß
 

Neue Beiträge