formule (tussen werkbladen) kopiëren met VBA

[brandernl]

Voor het voorbeeld heb ik 4 werkbladen (in werkelijkheid meer).
Op Blad 2 in A1 moet de formule komen Blad1!G1 +1, op blad3 in A1 Blad2!G1 +1 enzovoorts.

Waarom werkt deze code niet? Waar zit m'n denkfout?

Sub datumKopie()
    Dim i As Integer
    For i = 2 To 4 Step 1
        With Worksheets("sheet" & i)
            [a1].Value = "=sheet" & i - 1 & "!rc+7"
        End With
    Next
End Sub

 

[wampier]

Ongestest en uit het hoofd:

Sub datumKopie()
    Dim i As Integer
    For i = 2 To 4
        sheets(i).cells(1,1).value = sheets(1).cells(1,1).value + i 
    Next
End Sub

 

[brandernl]

dat is em. Dank

 

[brandernl]

toch niet; jouw formule kopieert steeds vanaf blad 1. Zie m'n oorspronkelijke vraag

 

[Haije]

brandernl,

wijzig:

sheets(i).cells(1,1).value = sheets(1).cells(1,1).value + i

in:

sheets(i).cells(1,1).value = sheets(i-1).cells(1,1).value + i

 

[brandernl]

bijna, maar jullie hebben we wel goed op weg geholpen

sheets(i).cells(1,1).value = sheets(i-1).cells(1,1).value + 1