Hey, vielen dank für die Antwort, ich versuche den Code zu erweitern um noch eine dritte Combobox zu füllen mit einer weiteren Kategorie, hier z.B Autofarbe und habe es mit folgendem Code versucht, kriege aber andauernd den Fehler Argumenttyp ByRef unverträglich, weiß einer was ich ändern muss?
Private Sub ComboBox2_Change()
If UserForm1.ComboBox2.ListIndex < 0 Then Exit Sub
Dim vntValues As Variant
Call GetFarbe(UserForm1.ComboBox2.Value, vntValues)
UserForm1.ComboBox3.List = vntValues
UserForm1.ComboBox3.ListIndex = -1
End Sub
Public Function GetFarbe(Automarke As String, Modell As String, Optional Values As Variant) As Long
Dim rngTable As Excel.Range
Set rngTable = GetTableRange()
If rngTable Is Nothing Then
GoTo NoValuesFound
End If
Dim vntResult As Variant
vntResult = WorksheetFunction.Filter(rngTable, Tabelle2.Evaluate(rngTable.Columns(4).Address & "=""" & Automarke & """" & "=""" & Modell & """"))
If IsError(vntResult) Then
GoTo NoValuesFound
End If
vntResult = WorksheetFunction.Index(vntResult 0, 4)
vntResult = WorksheetFunction.Transpose(vntResult2)
vntResult = WorksheetFunction.Unique(vntResult, True)
Values = vntResult
GetFarbe = UBound(Values)
Exit Function
NoValuesFound:
Values = Split(vbNullString)
GetFarbe = 0
End Function
End Function
|