Fehler beim erstellen von Matrixformeln per VBA

Hallo,
ich möchte in einige Tabellen (Checklisten) Matrixformeln für eine kumulierte Auswertung einfügen. Die Formel wird mittels For/Next von Spalte zu Spalte erweitert.
In den Spalten H bis O funktioniert es einwandfrei, ab Spalte P erscheint die Fehlermeldung "Die FormulaArray-Eigenschaft der Range-Objektes kann nicht festgelegt werden".
Hat jemand eine Idee/Hinweis woran das liegen könnte?
Mein Makro:

Sub ArrayFormel() 'ArrayFormel(Spalten)
Spalten = 10
iRowX = Cells(Rows.Count, 3).End(xlUp).Row - 4
' - Formel in 1. Spalte (H) einfügen
Cells(4, 8).FormulaArray = "=SUM(1*ISTEXT(R[6]C:R[" & iRowX & "]C))"
' - Formel in Folgespalten (I...) einfügen
For iCol = 1 To Spalten
sF = ""
For iC = iCol To 1 Step -1
sF = sF & "ISBLANK(R[6]C[-" & iC & "]:R[" & iRowX & "]C[-" & iC & "])*"
Next iC
'  bei FormulaArray erscheint ab iCol = 8 (Spalte P) die Fehlermeldung
'  "Die FormulaArray-Eigenschaft der Range-Objektes kann nicht festgelegt werden"
Cells(4, iCol + 8).FormulaArray = "=SUM(" & sF & "ISTEXT(R[6]C:R[" & iRowX & "]C))"
'  mit FormulaR1C1 funktioniert alles  und
'  ich kann diese anschließend mit [Strg]+[Alt]+[Enter] in MatrixFormeln umwandeln
'Cells(4, iCol + 8).FormulaR1C1 = "=SUM(" & sF & "ISTEXT(R[6]C:R[" & iRowX & "]C))"
Next iCol
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
es geht da nicht um feste Zellbezüge, sondern darum ob sie relativ sein müssen oder nicht.
dieser Teil

     iRowX = Cells(Rows.Count, 3).End(xlUp).Row - 4
Cells(4, 8).FormulaArray = "=SUM(1*ISTEXT(R[6]C:R[" & iRowX & "]C))"

wird mit absoluten Zellbezügen einfach kürzer:

     iRowX = Cells(Rows.Count, 3).End(xlUp).Row
Cells(4, 8).FormulaArray = "=SUM(1*ISTEXT(R10C:R" & iRowX & "C))"

das erste R10 kann man relativ lassen, wenn man ggf vorhat, noch weitere Überschriftenzeilen einzufügen, so dass sich die ganze Tabelle nach unten verschiebt, aber das iRowX als letzte Zeile ist als absolutwert sinnvoller (denn dieser ändert sich nicht, wenn du die Tabelle verschiebst)
anosonsten müsstest du die Datei mal hochladen, damit man sich besser vorstellen kann, was du vor hast.
da du mit VBA arbeitest, könntest du auch mit Hilfsspalten oder -zeilen arbeiten, was dir ggf ermöglicht, ohne Matrixformeln auszukommen.
Wenn ich das richtig verstehe, willst du zählen, wieviele Projekte an einem Tag gestartet wurden?
Gruß Daniel

Sub ArrayFormel() 'ArrayFormel(Spalten) Dim Spalten Dim iRowX, iCol, sF Dim SpalteAb, SpalteBis Spalten = 10 SpalteAb = 8 SpalteBis = SpalteAb + Spalten - 1 iRowX = Cells(Rows.Count, 3).End(xlUp).Row - 4 sF = "" For iCol = SpalteAb To SpalteBis Cells(2, iCol).FormulaR1C1 = _ "=SumProduct((R10C:R" & iRowX & "C"""")*(""""" & sF & "=""""))" sF = sF & "&R10C" & iCol & ":R" & iRowX & "C" & iCol Next iCol End Sub

Beliebteste Forumthreads (12 Monate)

Fehler beim erstellen von Matrixformeln per VBA

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Fehler beim erstellen von Matrixformeln per VBA

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

309 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread