Problem med ActiveCell.FormulaR1C1 notering

det er naturligvis ikke i74 men bare 74, der skal erstattes med variablen n

Sub test()
Dim n As Integer
    n = 5

    Set område = Worksheets("Ark5").Range("I3:i" & n)
    a = WorksheetFunction.sum(område)
End Sub

tusind tak for svar. Jeg tror dog ikke helt, det er, hvad jeg har brug for. Jeg har min variabel n på plads, og jeg har min henvisning til worksheet på plads

Jeg har optaget summeringen af en kolonnesom vba:
=SUM(I3:I74)

Det er kommet til at se således ud:
ActiveCell.FormulaR1C1 = "=SUM(R[-72]C:R[-1]C)"

Kolonnen er altid så lang som som variablen n, mens den altid starter i I3. Jeg skal derfor have lavet I74 om til I(+variablen n) i R1C1 noteringen..giver det mening?

Det skal altså være i R1C1 notationen...

præcis :)

ActiveCell.FormulaR1C1 = "=SUM(R[-" & n & "]C:R[-1]C)"

Tusind mange tak :D Det virker, men den starter i I1 istedet for I3. Hvad skal ændres, for at det bliver I3? Jeg giver dig pointsene. God aften :)

Selv tak - og i lige måde.
Ser på det og vender tilbage..

Når markøren er i I74 og med nedenstående værdier bliver formlen i I74 =Sum(I3:I71)

Sub test3()
n = 71
ActiveCell.FormulaR1C1 = "=SUM(R[-" & n & "]C:R[-3]C)"
End Sub

Public Sub test()
N = 3
ActiveCell.FormulaLocal = "=SUM(I" & N & ":I74)"
End Sub

Brug FormulaLocal, så er formelen ligesom i arket