Startseite

Kombinationsfelder (ComboBoxen) in Abhängigkeit füllen

Drei Felder in Abhängigkeit

Offenbar ist es für Einsteiger doch nicht so einfach, mein erstes Beispiel auf weiter Kombinationsfelder auszubauen. Deshalb hier noch ein Beispiel mit drei Abhängigen Kombinationsfeldern.
Dazu legen wir zunächst ein UserForm mit drei Kombinationsfeldern an.
Der Quelltext aus dem ersten Beispiel wird um dieses Makro erweitert. Für jedes weitere Kombinationsfeld müsste dieser Quelltext, mit entsprechend angepassten Bezügen, eigefügt werden.
Private Sub ComboBox2_Change()
' geschrieben von Klaus-Dieter Oppermann
' ComboBox3 in Abhängikeit füllen
' Variablen deklarieren
Dim iSpalte As Integer                                                  ' aktuelle Spalte
Dim iZiel As Integer                                                    ' letzte gefüllte zelle in aktueller Spalte
Dim rng As String                                                       ' Range für Spaltendefinition
iSpalte = ComboBox2.ListIndex + 6                                       ' aktuelle Spalte definieren
rng = Chr(iSpalte + 64) & "65536"                                       ' Range definieren
iZiel = Worksheets("Beispiel 2").Range(rng).End(xlUp).Row               ' letzte gefüllte Zelle in aktueller Spalte
ComboBox3.Clear                                                         ' alte Inhalte löschen
ComboBox3.List = Range(Worksheets("Beispiel 2").Cells(1, iSpalte), _
Worksheets("Beispiel 2").Cells(iZiel, iSpalte)).Value                 ' neue Liste einlesen
End Sub

Code eingefügt mit: Excel Code Jeanie
Natürlich müssen die Inhalte für die weiteren Kombinationsfelder in das dafür vorgesehene Tabellenblatt eingefügt werden. Ich habe versucht, die Zusammenhänge durch farbliche Kennzeichnungen zu verdeutlichen.
Beispiel 2

  A B C D E F G H I J K L
1 Autos Audi Berlin Katze   A2 X5 C1 Ka Corsa B-Klasse Polo
2 Städte BMW Braunschweig Hund   A3 3er Touring C2 Fiesta Astra C-Klasse Golf
3 Tiere Citroen´ Bremen Vogel   A4 X6 C3 Mustang Zafira CLK Passat
4   Ford Celle Pferd   A6   Berlingo Mondeo   SLR Turan
5   Opel Hamburg Hase             Viano Tuarek
6   Mercedes Hannover Rind                
7   VW Lüneburg                  


Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  
Die Spalten F bis L, nehmen im Beispiel die Inhalte für das folgende Kombinationsfeld auf. Dabei muss die Reihenfolge der Inhalte zu Spalte B passen. Zeile 1 in Spalte B für Spalte F, Zeile 2 für Spalte G usw.
Abschließend noch eine Erläuterung zum ListIndex der Kombinationsfelder. Damit wird die Position der Inhalte in ihrer Reihenfolge definiert. ACHTUNG, die Nummerierung beginnt mit 0 (Null). Deshalb die Schreibweise ListIndex + 6, da im Beispiel die erste auszulesende Spalte die Spalte F (6) ist.
Mit Hilfe des ListIndex wird festgelegt, welche Spalte in der ComboBox3 dargestellt wird.