dreifache Combobox
18.10.2017 13:22:52
Andre
ich habe eine Frage zum Befüllen von Comboboxen in Abhängigkeit zueinander.
Folgender Aufbau:
Ich habe insgesamt 4 Spalten, die ab Zeile 4 Informationen beinhalten
Ich möchte aus Spalte A die Combobox 1 füllen (mehrfach vorkommende Begriffe werden gefiltert)
Combobox 2 wird dann in Abhängigkeit zum Inhalt Combobox 1 gefüllt
' ComboBox2.AddItem Description.Offset(, 1)
Jetzt möchte ich die 3. Combobox aus Spalte C füllen, in Abhängigkeit von der Auswahl der Comboboxen 1 & 2
Das bekomme ich irgendwie nicht hin. Welchen Code benötige ich, um die dritte Combobox zu füllen?
Ein weitere Frage: Ich möchte dann aus Spalte D in eine TextBox einen Wert wiedergeben, der alle zuvor genannten Kriterien (Auswahl der Comboboxen) erfüllt.
Das ist mein aktueller Code:
Private Sub UserForm_Initialize()
Dim ws As Worksheet
Dim rCell As Range
Set ws = Worksheets("Tabelle1")
With Worksheets("Tabelle1")
ComboBox1.List = .Range("A4:A" & .Range("A" & .Rows.Count).End(xlUp).Row).Value
End With
'//Clear combobox
'ComboBox1.Clear
'ComboBox2.Clear
'ComboBox3.Clear
With CreateObject("Scripting.Dictionary")
For Each rCell In ws.Range("A4", ws.Cells(Rows.Count, "A").End(xlUp))
If Not .exists(rCell.Value) Then
.Add rCell.Value, Nothing
End If
Next rCell
ComboBox1.List = .keys
End With
End Sub
Private Sub ComboBox1_Change()
Dim Description As Range
Dim Description_List As Range
Dim strSelected As String
Dim LastRow As Long
If ComboBox1.ListIndex -1 Then
strSelected = ComboBox1.Value
LastRow = Worksheets("Tabelle1").Range("A" & Rows.Count).End(xlUp).Row
' LastRow = ws.Range("A" & Rows.Count).End(xlUp).Row
Set Description_List = Worksheets("Tabelle1").Range("A4:A" & LastRow)
For Each Description In Description_List
If Description.Value = strSelected Then
ComboBox2.AddItem Description.Offset(, 1)
End If
Next Description
End If
End Sub
VG, Andre