Combobox ohne Duplikate füllen?
28.02.2007 12:35:08
Kasimir
ich sitze hier an einer Datei und komme nicht weiter. Ich soll eine Auswahlliste für PKWs erstellen. Nun habe ich eine UserForm, in der ich 2 Comboboxen habe und ein Listenfeld. Beim Öffnen der UserForm fülle ich die erste ComboBox mit Herstellerdaten, wie z.B. VW, BMW oder Opel, über den Code
For i = 2 To Workbooks("PKW.csv").Sheets(1).Range("A65536").End(xlUp).Row
If WorksheetFunction.CountIf(Workbooks("PKW.csv").Sheets(1).Range("D2:D" & i), _
Workbooks("PKW.csv").Sheets(1).Cells(i, 4)) = 1 Then _
ComboBox1.AddItem Workbooks("PKW.csv").Sheets(1).Cells(i, 4)
Next
Duplikate werden dabei herausgefiltert.
Nun möchte ich die zweite ComboBox ebenfalls mit Daten und zwar mit Modellnamen füllen und zwar bei z.B. VW mit Polo, Golf, Passat usw. und ebenfalls ohne Duplikate. Das wäre auch kein Problem. Allerdings stehen in der Spalte nicht nur der Modellname Polo, sondern noch die Motorisierung und Ausstattungshinweise (Beispiel: Polo 1.4i Olympic 5 Türig). Was ich also benötige ist, die 2. ComboBox soll mit den Namen Polo, Golf, Passat usw. gefüllt werden. Die Daten, die nach dem Wort Polo, Golf usw. folgen, benötige ich dann in einer Listbox, wenn man in der 2. ComboBox den Namen Polo, Golf usw. auswählt.
Kann mich dabei jemand unterstützen?
Danke schon mal,
Kasimir