rDestin ist ein Spaltenbereich und ich möchte mittels VBA eine komplexe Array-Formel (pro Zelle im Spaltenbereich) einsetzen
Die Formel habe ich im Excel eingetragen und funktioniert.
Dann habe ich im Direktbereich die Formel abgefragt und diese so übernommen
Ich setze die Formel in der ersten Zeile des Bereiches ein. In Ausnahmefällen ist der Bereich rDestin nur eine Zelle. Deshalb frage ich anschliessend ab, ob es sich um mehrere Zellen handelt. Wenn ja, fülle ich dann die Formel unten aus.
Nun erhalte ich folgende Fehlermeldung:
"Laufzeitfehler '1004': Die FormulaArray-Eigenschaft des Range-Objektes kann nicht festgelegt werden".
Wo liegt das Problem?
Gruss, Peter
With rDestin
.Cells(1, 1).NumberFormat = "#,##0.00;-#,##0.00;"
.Cells(1, 1).FormulaArray = "=SUMIF(R6C19:R55C19,RC[-86],R6C102:R55C102)" & _
"" & "+SUMPRODUCT((R6C[-86]:R55C[-86]=RC[-86])*(R6C[-71]:R55C[-71])" & _
"" & "*(R6C[-2]:R55C[-2])/IF(R6C[-72]:R55C[-72]=0,1,R6C[-72]:R55C[-72]))" & _
"" & "+SUMPRODUCT((R6C[-86]:R55C[-86]=RC[-86])*(R6C[-69]:R55C[-69])" & _
"" & "*(R6C[-1]:R55C[-1])/IF(R6C[-70]:R55C[-70]=0,1,R6C[-70]:R55C[-70]))"""
If rDestin.Rows.Count > 1 Then .FillDown
End With