Laufzeitfehler ‚1004‘ bei der Verwendung von „= IF

Question

die folgenden Formel Hinzufügen Zelle mit VBA nicht, und ich kann nicht herausfinden, warum:

"=IF($02,(IF(NOT($N2),$P1+1,1)),0)" 

ich die Linie etwas anderes zB ändern kann“ . = A2/B2" und es läuft gut

Voll Code:

Sub FillDown() 

Dim strFormulas(1 To 2) As Variant 

With ThisWorkbook.Sheets("Sheet1") 
    LRow = .Range("A99999").End(xlUp).Row 
    strFormulas(1) = "=IF($02,(IF(NOT($N2),$P1+1,1)),0)" 
    strFormulas(2) = "=A2/B2" 
    .Range("L2:T2").Formula = strFormulas 
    .Range("L2:T" & LRow).FillDown 
End With 

End Sub 

Answer 1

verwenden:

strFormulas(1) = "=IF($O2,(IF(NOT($N2),$P1+1,1)),0)" 

Statt dessen:

strFormulas(1) = "=IF($02,(IF(NOT($N2),$P1+1,1)),0)"