|
Hallo zusammen,
ich möchte in einer Userform zwei von einander abhängigen Comboboxen aus einer Tabelle füllen. Ich habe mir hierzu auch schon einen Code aus dem Netz zusammen gebastelt, der leider nicht wie gewünscht funktioniert.
Der Aufbau ist wie folgt: In der ersten Zeile stehen die Begriffe für die erste Combobox, in den darunter liegenden Spalte die jeweiligen davon abhängigen Einträge für die zweite Combobox:
| Topic 1 |
Topic 2 |
| Unterthema 1 |
Unterthema 1 |
| Unterthema 2 |
Unterthema 2 |
| |
|
Leider liefert folgender Code nur die erste Zelle, nicht alle zellen der ersten Spalte in der Combobox 1.
Private Sub UserForm_Initialize()
With Worksheets("Tabelle1")
Me.cmbGrund1QMB.List = .Range(.Cells(1, 1), .Cells(1, Columns.Count).End(xlToLeft)).Value
End With
End Sub
Private Sub cmbGrund1QMB_Change()
Dim lngColumn As Long
cmbGrund2QMB.Clear
If cmbGrund1QMB.ListIndex > -1 Then
With Worksheets("Tabelle1")
lngColumn = Application.Match(cmbGrund1QMB, .Rows(1), 0)
cmbGrund2QMB.List = .Range(.Cells(2, lngColumn), .Cells(Rows.Count, lngColumn).End(xlUp)).Value
End With
End If
End Sub
Könnt Ihr mir bitte helfen?
LG Bobby
|