Cells.FormulaLocal giver fejl

Hvis a=6 skulle der gerne skrives følgende i cellen

=HVIS(C6<0;0;HVIS(OG(C6>0;OPG!C6<0);HVIS(ABS(OPG!C6)>C6;-C6;OPG!C6);0))

Og VBA-løkken skal rettelig se sådan ud:
For a = 6 To antal + 6 

Cells(a, 3).FormulaLocal = "=HVIS(C" & a & "<0;0;HVIS(OG(C" & a & ">0;OPG!C" & a & "<0);HVIS(ABS(OPG!C" & a & ")>C" & a & ";-C" & a & ";OPG!C" & a & ");0))"
       
Application.StatusBar = "Opretter, række: " & a & " af " & antal

Next a

Vba kan bedst lide engelsk

For A = 6 To Antal + 6

'Cells(A, 3).Formula = "=HVIS(C" & A & "<0;0;)HVIS(OG(C" & A & ">0;OPG!C" & A & "<0);HVIS(ABS(OPG!C" & A & ")>C" & A & ";-C" & A & ";OPG!C" & A & ");0))"

Cells(A, 3).Formula = "=IF(R[" & A & "]C[-1]<0,0,IF(AND(R[" & A & "]C[-1]>0,OPG!R[" & A & "]C[-1]<0),IF(ABS(OPG!R[" & A & "]C[-1])>R[" & A & "]C[-1],-R[" & A & "]C[-1],OPG!R[" & A & "]C[-1]),0))"
Application.StatusBar = "Opretter, række: " & A & " af " & Antal

Next A

den skal vist se sådan ud

Cells(A, 3).Formula = "=IF(R[" & A & "]C<0,0,IF(AND(R[" & A & "]C>0,OPG!R[" & A & "]C<0),IF(ABS(OPG!R[" & A & "]C)>R[" & A & "]C,-R[" & A & "]C,OPG!R[" & A & "]C),0))"

Hej kabbak. Tak for dit svar

Jeg har lidt travlt pt. Jeg vil teste dit forslag, men jeg kan nok først nå det til fredag.

Hej kabbak

Dit sidste forslag var det der gav den rigtige formel i cellerne. Dog med en enkelt lille ændring for at få rækkenr. til at passe. Den kom til at se sådan ud:
Cells(a, 3).Formula = "=IF(R[" & a - 6 & "]C[-1]<0,0,IF(AND(R[" & a - 6 & "]C[-1]>0,OPG!R[" & a - 6 & "]C[-1]<0),IF(ABS(OPG!R[" & a - 6 & "]C[-1])>R[" & a - 6 & "]C[-1],-R[" & a - 6 & "]C[-1],OPG!R[" & a - 6 & "]C[-1]),0))"

Det er i hvert fald med at holde tungen lige i munden. Det havde været nemmere med FormulaLocal.

Tak for hjælpen. Læg et svar så du kan få point.

et svar ;-))