Evaluate - ArrayFormel
06.04.2016 20:15:18
Coco99
In meiner Tabelle möchte ich keine Array-Formel per VBA einfügen, um zum gewünschten Ergebnis zu gelangen. Folgende Formel steht bereits in den Zellen:
=MAX(WENN(($F$5:$F$300=A2)*($K$5:$K$300=C1);($R$5:$R$300;" - ")
Abschließend fehlt mir nur noch der Befehl für die geschweiften Klammern:STRG+SHIFT+RETURN
damit mir ein Wert angegeben wird und nicht #WERT in den Zellen steht.
Diesen würde ich gerne per VBA Code einfügen. Ich habe probiert den Befehl über die Evaluate Funktion auszuführen:
Set FormulaInCell = ActiveSheet.Evaluate("D5")
Sheets("Tabelle39").Cells(6, 4).Formula = FormulaInCell
Leider wird so nicht die Formel mit Geschweiften Klammern in der Zelle ausgegeben, sondern nur #Wert!.
Ist es möglich über Evaluate und Cells( zeile, spalte).Formula den Befehl auszuführen, sodass die Formel ausgewertet wird. Oder hat jemand eventuell einen anderen Vorschlag?
Vielen Dank!