Problemen met mijn VB formule

[dndexceller]

Hoi,
Klein probleempje met mijn formule


De formule werkt goed als ik maar met 1 randbetween werk maar als ik er meerdere wil laten lopen dan geven ze niet de correcte uitkomst. Is er iemand die dit kan opklaren?

alvast bedankt jongens en meisjes

Bekijk bijlage Copy of Random percentage.xlsBekijk bijlage Copy of Random percentage.xls

 

[Niels28]

Het was even zoeken wat je bedoelde.

Sub tellen1()
Application.Calculation = xlManual
For i = 40 To 44
For j = 4 To 9 Step 5
Cells(i, j).Value = Cells(i, j).Value + Cells(i, j - 2).Value
Next
Next
For i = 50 To 54
For j = 4 To 9 Step 5
Cells(i, j).Value = Cells(i, j).Value + Cells(i, j - 2).Value
Next
Next
Range("H12").Value = Range("H12").Value + 1
Application.Calculation = xlAutomatic
End Sub

Niels