VBA: Array Formel eintragen und Fill down!

[HZ25]

Hallo,

ich habe eine Funktion in meinem VBA Projekt die eine Formel in eine Zelle einträgt und diese dann nach unten zieht.
Funktioniert soweit wie gewollt. 

iMax2 = Cells(Rows.Count, 1).End(xlUp).Row

      
    Range("D5").FormulaLocal = "=SVERWEIS(B5;Rüstung!$C$1:$C$65536;1;FALSCH)"
        
    Range("D5" & ":D" & iMax2).FillDown

Nun brauch ich aber eine neue Formel, eine Array und nun klappt es nicht mehr, da er immer "FormulaArray-Eigenschaft des Range-Objekts kann nicht festgelegt werden" bringt. Die Formel selber funktioniert wenn ich sie selber in die Zelle eintrage und nach unten ziehe.

Ich hab dabei das FormulaLocal gegen FormulaArray getauscht, das scheint er aber nicht zu mögen.

 Range("D5").FormulaArray = "=SVERWEIS(B5;WENN(Rüstung!$D:$D=$J$2;Rüstung!$C:$C;"");1;FALSCH)"



Was könnte das sein? Hab schon mal das Range gegen Cells getauscht und die Formel auch mal auf English geschrieben, da ja das Local nun fehlt, aber das ändert nichts.


Danke und Gruß

[Kuwer]

Hallo,

vieleicht so?

Range("D5").FormulaArray = "=VLOOKUP(B5,IF(Rüstung!$D:$D=$J$2,Rüstung!$C:$C,""""),1,FALSE)"

Gruß Uwe