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