Function BRANCHENANTEILE(branchenliste As Range, verbraucherliste As Range)
BRANCHENANTEILE = Array(0, 0, 0, 0, 0)
For Each verbraucher In verbraucherliste
For i = 1 To branchenliste.Rows.Count
If verbraucher = branchenliste.Cells(i, 1) Then
BRANCHENANTEILE(branchenliste.Cells(i, 2)) = BRANCHENANTEILE(branchenliste.Cells(i, 2)) + 1
Exit For
End If
Next i
Next verbraucher
End Function
Vielen Dank für die Hilfe!
LG