Syntax bei Evaluate / Public Function

Guten Abend
Mit untenstehender Funktionen habe ich versucht, 2 Matrixformeln in VBA zu lösen. Die Matrixformeln habe ich von Josef Ehrensberger erhalten.
Die UDF GRO resp. KLE geben mir jedoch den Fehlerwert 2015 zurück
Ich möchte in G1 das gleiche Ergebnis erhalten, wie in H1, resp. in G2 wie in H2 (vgl. Beispieldatei).
Mir ist nicht klar, weshalb das nicht funktioniert.
Danke für jeden Hinweis.
Gruss, Peter


Public Function GRO(Bereich As Range, Anzahl As Long)
Dim BName As String
BName = Right(Bereich.Name, Len(Bereich.Name) - 1)
'Evaluate("SUM(LARGE(Zahlen,ROW(INDIRECT(("1:"&D1)))))")
GRO = Evaluate("SUM(LARGE(" & BName & ",ROW(INDIRECT(( """ & "1:" & "&" & Anzahl & ")))))""")
End Function


Public Function KLE(Bereich As Range, Anzahl As Long)
Dim BName As String
BName = Right(Bereich.Name, Len(Bereich.Name) - 1)
'Evaluate("SUM(SMALL(Zahlen,ROW(INDIRECT(("1:"&D2)))))")
KLE = Evaluate("SUM(LARGE(" & BName & ",ROW(INDIRECT(( """ & "1:" & "&" & Anzahl & ")))))""")
End Function

https://www.herber.de/bbs/user/60142.xls

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Function ABIG(Bereich As Range, Anzahl As Long) Dim BName As String BName = Right(Bereich.Name, Len(Bereich.Name) - 1) '{=SUMME(WENN(Zahlen>=KGRÖSSTE(Zahlen;D1);Zahlen))} 'Evaluate("SUM(IF(Zahlen>=LARGE(Zahlen,D1),Zahlen))") ABIG = Evaluate("SUM(IF(" & BName & ">=LARGE(" & BName & "," & Anzahl & ")," & BName & "))") End Function

@ Franz,
das Ist Blödsinn!
EVALUATE wertet sehr wohl Matrixformeln aus, es erkennt sozusagen automatisch das es sich um Matrixformeln handelt.
@ Peter,
der Sinn, warum man eine einfache Formel unbedingt in VBA umsetzen muss, erschliesst sich mir zwar nicht, aber das muss es ja auch nicht;-))
Das INDIREKT() mag Evaluate nicht und ist auch unsinnig, weil der Formelstring so zusammengestellt wird, wie man ihn braucht.

Public Function GRO(Bereich As Range, Anzahl As Long) As Double
  Dim BName As String
  BName = Right(Bereich.Name, Len(Bereich.Name) - 1)
  'Evaluate("SUM(LARGE(Zahlen,ROW(INDIRECT(("1:"&D1)))))")
  GRO = Evaluate("SUM(LARGE(" & BName & ",ROW(1:" & Anzahl & ")))")

End Function

Public Function KLE(Bereich As Range, Anzahl As Long) As Double
  Dim BName As String
  BName = Right(Bereich.Name, Len(Bereich.Name) - 1)
  'Evaluate("SUM(SMALL(Zahlen,ROW(INDIRECT(("1:"&D2)))))")
  KLE = Evaluate("SUM(SMALL(" & BName & ",ROW(1:" & Anzahl & ")))")
End Function

Gruß Sepp

Beliebteste Forumthreads (12 Monate)

Syntax bei Evaluate / Public Function

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread