Benutzerdefinierte Funktion
12.02.2008 19:28:00
Christian
vielleicht kann mir jemand einen kleinen Tipp geben.
Folgende Formel soll in eine benutzerdefinierte Funktion überführt werden, um ein Parameter beliebig oft ändern zu können:
=SUMME((Blatt1!$C$1:$C$40000=INDEX(Blatt2!$A:$A;KKLEINSTE(WENN((Blatt2!$B$1:$B$40000=B3); ZEILE($1:$40000));1)))*(Blatt1!$BI$1:$BI$40000=C3)*Blatt1!$D$1:$D$40000)
Mein Versuch die UDF zu erstellen sieht folgendermaßen aus:
Function GREIFER(Nummer As Double) As Range
FormulaArray = _
"=SUM((Blatt1!R1C3:R40000C3=INDEX(Blatt2!C1,SMALL(IF((Blatt2!R1C2:R40000C2=RC[-13]),ROW(R1: _
R40000))," & Nummer &")))*(Blatt1!R1C61:R40000C61=RC[-12])*Blatt1!R1C4:R40000C4)"
GREIFER = FormulaArray
End Function
In einer Excelzelle soll dann folgende Formel stehen können:
=greifer(1)
Allerdings gibt die folgende Formel nur den englischen String, aber berechnet leider die Formel nicht.
Ich bin für jede Hilfe dankbar.
Viele Grüße
Christian