Hallo,
danke für die Antwort! Das Problem ist, dass wenn ich mit Semikolon trenne, die Meldung "Argument ist nicht optional" kommt. Deswegen ging ich davon aus, dass das Trennen mit Semikolon nur zu einem Range Objekt führt. Der Code ist unten (ich glaube nicht, dass dieser relevant ist, da der Fehler im Aufruf passiert... branchenliste ist eine m x 2 Range und verbraucherliste n x 1..):
'BRANCHENANTEILE(branchenliste As Range, verbraucherliste As Range)
'
'Zählt die verschiedenen Branchentypen aus branchenliste in verbraucherliste und gibt Anzahl der 5 Typen als Array aus
'
Function BRANCHENANTEILE(branchenliste As Range, verbraucherliste As Range)
'Initialisiere Variablen um Branchentypen zu zählen:
BRANCHENANTEILE = Array(0, 0, 0, 0, 0)
'For loop durch alle Range mit allen Verbrauchern:
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
|