FormulaArray langer dan 255 karakter

[Tweety1]

Ik heb een Matrix formule die iets langer is dan 255 karakters.
Alleen lukt het me niet om deze draaiend te krijgen.
Weet iemand hoe het wel kan

Sub LongArrayFormula12()

Dim frmla1 As String
Dim frmla2 As String
Dim LastRow As Long
    
With ActiveSheet
    LastRow = Sheets("Controle").Cells(.Rows.Count, "B").End(xlUp).Row
End With

'fullfrmla = "=IF(IFERROR(VLOOKUP(RC2&RC13,CHOOSE({1,2},Controle!R1C1:R1650C1&Controle!R1C12:R1650C12,Controle!R1C8:R1650C8),2,0),"""")=0,"""",IFERROR(TEXT(VLOOKUP(RC2&RC13,CHOOSE({1,2},Controle!R1C1:R1650C1&Controle!R1C12:R1650C12,Controle!R1C8:R1650C8),2,0),""D-M-JJJJ""),""""))"

frmla1 = "=IF(IFERROR(VLOOKUP(RC2&RC13,CHOOSE({1,2},Controle!R1C1:R" & LastRow & "C1&Controle!R1C12:R" & LastRow & "C12,Controle!R1C8:R" & LastRow & "C8),2,0),"""")=0,"""",XXXX)"

'frmla2 = "=IFERROR(TEXT(VLOOKUP(RC2&RC13,CHOOSE({1,2},Controle!R1C1:R" & LastRow & "C1&Controle!R1C12:R" & LastRow & "C12,Controle!R1C8:R" & LastRow & "C8),2,0),""D-M-JJJJ""),"""")"

frmla2 = "ALS.FOUT(TEKST(VERT.ZOEKEN($B1&$M1;KIEZEN({1\2};Controle!$A$1:$A$" & LastRow & "&Controle!$L$1:$L$" & LastRow & ";Controle!$H$1:$H$" & LastRow & ");2;0);""D-M-JJJJ"");"""")"

With ActiveSheet.Range("T1")
.FormulaArray = frmla1
.Replace What:="XXXX", Replacement:=frmla2, LookAt:=xlPart
End With

End Sub

mvg
Kasper

 

[VenA]

Doe er even een voorbeeldbestandje bij en leg ook even uit waarom je achterwaarts wil zoeken met Vlookup en ook wat het totale doel is want ik kan er geen logica in vinden.

 

[Tweety1]

De bedoeling is om verticaal te zoeken met 2 voorwaardes en zonder extra hulpkolom.
Kolom B+M zijn de zoekfunctie. de gegevens die gezocht moeten worden staan op het 2 tabblad.
Kolom T is de formule die ik nu gebruikt en werk alleen kan ik deze niet omzetten naar een macro

Bekijk bijlage Voorbeeld.xlsm