VBA: Matrixformel

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
vielleicht solltest du mal deine Formel zeigen.
bei Matrixformeln gibt es zwei Varianten:
einzeilige Matrixformeln und mehrzeilige Matrixformel
eine mehrzellige Matrixformel ist eine einzige Formel, welche aber mehrere Ergebnisse ausgibt.
so eine mehrzeilige Matrixformel muss dann in einen Zeilbereich geschrieben werden, welcher so gross ist wie Anzahl der Ergebnisse der Formel.
bei einer einzelligen matrixformel steht als Äusserste Funktion einen Funktion, welche mehrere Werte zu einem Wert zusammenfasst (Summe, Max, Min, KGrösste, KKleinste), so dass das Formelergebnis in eine Zelle passt.
eine einzellige Matrixformel muss mit

Range("B2").formulaarray="DeineFormel"
Range("B2").Copy Range("B2:B19")

per VBA geschrieben werden, eine mehrzellige mit

Range("B2:B19").formulaarray="DeineFormel"

auch gelten für Matrixformeln mehr Einschränkungen als für normale Formeln, dh solltest mal deine Formel zeigen.
Gruß Daniel

Hallo Daniel,
ich habe fast die Lösung. Mit folgendem Code trägt er auch die lange Matrixformel ein:

Dim Zb As Long
Dim formula_part_1 As String
Dim formula_part_2 As String
Dim formula_part_3 As String
Dim formula_part_4 As String
Zb = Sheets("data").Cells(Rows.Count, 1).End(xlUp).Row
formula_part_1 = "=IF(ISERROR(aaa),"""",IFERROR(INDEX('master data - 1'!B$2:INDIRECT(bbb), _
KKLEINSTE(WENN(ccc,ROW('master data - 1'!B$2:INDIRECT(""'master data - 1'!B$""&'event detection'!$B$7))-ROW('master data - 1'!B$2)+1),ROW(A1))),""""))"
formula_part_2 = "IFERROR(INDEX('master data - 1'!companies,SMALL(IF(ccc,ROW('master data - 1'! _
companies)-ROW('master data - 1'!B$2)+1),ROW(A1))),"""")"
formula_part_3 = """'master data - 1'!B$""&'event detection'!$B$7"
formula_part_4 = "INDIRECT(""'master data - 1'!""&'event detection'!$B$4&2):INDIRECT(""'master  _
data - 1'!""&'event detection'!$B$4&'event detection'!$B$7)=1"
With Range("B2:B" & Zb)
.FormulaArray = formula_part_1
.Replace "aaa", formula_part_2, LookAt:=xlPart
.Replace "bbb", formula_part_3, LookAt:=xlPart
.Replace "ccc", formula_part_4, LookAt:=xlPart
End With

Nur trägt er hiermit in alle Zellen im Bereich "B2:B" & Zb die gleiche Formel ein. Das heißt: Ich brauche die R1C1-Notation, mit der ich aber noch nie gearbeitet habe und deswegen auf Deine Unterstützung angewiesen bin.
Viele Grüße,
Kürsat

With Range("B2") .FormulaArray = formula_part_1 .Replace "aaa", formula_part_2, LookAt:=xlPart .Replace "bbb", formula_part_3, LookAt:=xlPart .Replace "ccc", formula_part_4, LookAt:=xlPart Range("B2").AutoFill Range("B2:B" & Zb) End With

Beliebteste Forumthreads (12 Monate)

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread