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