Range in Sumproduct
17.01.2019 15:07:13
Alex
in Excel wird diese Formel angezeigt und als wert steht #Name?. Wenn ich rngArea.Cells(lngRow; 1) mit dem Kriterium manuell ersetze, kommt das richtige Ergebnis.
=INDEX_
([M_.xlsm]MyTable!A1:AZ2000; SUMMENPRODUKT(([M_.xlsm]MyTable!A1:AZ2000=_
rngArea.Cells(lngRow; 1))*ZEILE([M_.xlsm]MyTable!1:2000));_
SUMMENPRODUKT(([M_.xlsm]MyTable!A1:AZ10="Kommentar")*SPALTE([M_.xlsm]MyTable!A1:AZ10)))
das ist der Code in VBAFoinKo = _
"=INDEX('[_XXX_]MyTable'!A1:AZ2000,SUMPRODUCT(('[_XXX_]MyTable'!A1:AZ2000=_YYY_)*ROW('[_XXX_] _
MyTable'!1:2000)),SUMPRODUCT(('[_XXX_]MyTable'!A1:AZ10=""Kommentar"")*COLUMN('[_XXX_]MyTable'!A1:AZ10)))"
BezZel = "rngArea.Cells(lngRow, 1)"
FoinKo = Replace(FoinKo, "_YYY_", BezZel)
FoinKo = Replace(FoinKo, "_XXX_", filename)