Probleem met mijn VB code ivm randbetween.

[dndexceller]

Hoi,

Ik geraak er ni aan uit. Als ik 1 randbetween neem dan maakt hij de juiste berekening maar als ik er meerdere maak dan is het resultaat niet juist.
Dit in een excell 2003 versie.
Kan iemand me hieruit helpen?Hieronder alvast mijn probleem.
Alvast bedankt.Bekijk bijlage TEST.xls

 

[Niels28]

Wat was er mis met dit antwoord?

http://www.helpmij.nl/forum/showthread.php/704631-Problemen-met-mijn-VB-formule?highlight=

dan nog maar een keer maar dan voor dit voorbeeld.

Sub tellen1()
    Application.Calculation = xlManual

    For i = 1 To 20
        Cells(i, 3).Value = Cells(i, 3).Value + Cells(i, 1).Value
    Next
    Range("H12").Value = Range("H12").Value + 1
       
    Application.Calculation = xlAutomatic
End Sub

Niels