Macro met Matrixformule

Status
Niet open voor verdere reacties.
Ik heb het opgelost doormiddel van volgende stukje macro

Code:
Dim LastRow As Long
Sheets(1).Range("U2").FormulaArray =  _
        "=IFERROR(VLOOKUP(RC[-3],IF(SUBTOTAL(3,OFFSET(Opleiding,ROW(Opleiding)-ROW(Filter2),0,1)),Filter1),2,FALSE),""Overige"")"
Columns("U:U").NumberFormat = "@"

LastRow = Sheets(1).Range("A65000").End(xlUp).Row
Sheets(1).Range("U2:U" & LastRow).FillDown
 
Verzoek de volgende keer gewoon tot verplaatsen via de meld misbruikknop. Deze gaat dicht.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan