Ikke absolute cellereference på vba-dannet formel

Benyt [ ] omkring offsettet:

=RC ' Samme celle
=R[1]C[1] ' Cellen 1 række under og 1 kolonne til højre
=R[-1]C[-1] ' Cellen 1 række over og 1 kolonne til venstre

Hvis Jeg f.eks. vil tilgå celle X23 fra celle V10, er formlen:
=R[13]C[9] ' 13 rækker under, 9 kolonner til højre.

/1

Hej kvadratrodenaf1

Tak for svar - jeg har nok ikke forklaret mig godt nok - jeg benytter ikke .offset nogen steder...det er $-tegnene i formlen jeg gerne vil have væk - og det er nok metoden jeg bruger til at danne formlen, som danner dem - men jeg ved ikke hvordan jeg skal få dem væk ;-)

Det er nok mig, der ikke forklarer mig godt nok :)

I denne linje:
strFormelCashflow = strFormelCashflow & "R" & intCashflowRk & "C" & Cells(1, intCashflowÅr + 1).Column & "+"

Skal du benytte [ ] omkring række- og kolonnenumrene.
Det ser ud til at du skal referere til celler i samme række - dvs. offset row = 0.
Skal kolonnen være absolut? for så ser formlen således ud:

strFormelCashflow = strFormelCashflow & "RC" & (intCashflowÅr + 1) & "+"

Jeg foreslår desuden, at du retter denne linje:
  Sheets("Estimat").Range(Cells(y, 10), Cells(y, 10)).FormulaR1C1 = strFormelCashflow
Til:
  Sheets("Estimat").Cells(y, 10).FormulaR1C1 = strFormelCashflow

Dvs. hele dit script kommer til at se sådan her ud:

Do Until Sheets("Estimat").Cells(y, 1).Value = "EST"
    intCashflowRk = y
   
        strFormelCashflow = "="
        For f = intStartår To intSlutår
            j = 1
            Do Until Sheets("Estimat").Cells(3, j).Value = f
                intCashflowÅr = j
                j = j + 1
            Loop
           
            strFormelCashflow = strFormelCashflow & "RC" & (intCashflowÅr + 1) & "+"
        Next
        strFormelCashflow = strFormelCashflow & "0"
       
        Sheets("Estimat").Cells(y, 10).FormulaR1C1 = strFormelCashflow
    y = y + 1
Loop

Var det ikke muligt at "replace" $ med "" inden formlen indsættes?

Sub Test()
x = "=$X$23+$AK$23+$AX$23+$BK$23+$BX$23+$CK$23+0"
MsgBox Application.ConvertFormula(Formula:=x, fromReferenceStyle:=xlA1, toReferenceStyle:=xlA1, toabsolute:=xlRelative)
End Sub

Sheets("Estimat").Cells(y, 10).Formula = Application.ConvertFormula(strFormelCashflow, xlA1, xlA1, xlRelative)

Hej - tak for jeres svar.

Løsningen fra kvadratrodenaf1 fungerer upåklageligt og er enkel og fin - så jeg har tildelt ham points! Han var også den hurtigste ;-))

Godt nytår til jer alle

Tak for point.. Og godt nytår til dig :)