Combobox mit mehreren Spalten vergleichen
22.11.2019 12:42:29
Stefan
ich habe ein kleines Problem.
Ich hab eine Combobox in der Produkte stehen (ich nenn sie einfach mal 1,2,3,4,5,...)
Es soll von dieser Combobox eine Listbox gefüllt werden.
Meine Tabelle ist so aufgebaut:
A: Datum
B: Kunde
D-Z: Produkte
Jetzt möchte ich, dass wenn ich in der Combobox1 das Produkt 2 auswähle, alle Kunden angezeigt werden, die dieses Produkt gekauft haben.
With ListBox1
.Clear
.ColumnCount = 2
.ColumnWidths = "2,5cm;2cm"
With ThisWorkbook.Worksheets("verkauf") ' den Tabellenblattnamen ggf. anpassen!
For lZeile = 2 To .Cells(.Rows.Count, 3).End(xlUp).Row
If ComboBox1.Text = .Range("b" & lZeile).Value Then
ListBox1.AddItem " "
ListBox1.List(iLiBo, 0) = .Range("A" & lZeile).Value
ListBox1.List(iLiBo, 1) = .Range("b" & lZeile).Value
iLiBo = iLiBo + 1
End If
Next lZeile
End With
End With
Wie müsste ich den Code erweitern, dass es auf für Spalte D-Z funktioniert?
Grüße
Stefan Hiemer
ps. wenn eine Beispieldatei benötigt wird, lade ich gern eine hoch.