FormulaArray funktioniert nicht

[Kuwer]

Hallo,

FormulaArray erwartet englische Schreibweise, wie schon geschrieben.
Ein FormulaArrayR1C1 gibt es bei mir nicht.  

So klappt es bei mir:

Sub aaa()
 Dim Formel As String
 Dim lngRow As Long
 lngRow = 2
 Formel = "=INDEX('Vertrieblerliste(neu)'!$A$6:$A$54,MIN(IF('Vertrieblerliste(neu)'!$C$6:$C$54>E" & lngRow & ",ROW('Vertrieblerliste(neu)'!$C$6:$C$54)))-6)"
 Cells(lngRow, 11).FormulaArray = Formel
End Sub

Gruß Uwe

[snb]

Code:

Sub M_snb()
 Cells(2, 11).FormulaArray = Replace("=INDEX(~$A$6:$A$54,MIN(IF(~$C$6:$C$54>E2,ROW(1:49))))", "~", "'Vertrieblerliste(neu)'!")
End Sub

[fullevent]

@Uwe, Ralf und Castor: Vielen Dank!! Es funktioniert nun einwandfrei  :15: