Hallo Ihr lieben,

ich benötige einen VBA Code für einen Commandbutten in Excel, der mir beliebig viele Zahlen aus einer Spalte aufsummiert. Ich habe nun einen Code geschrieben, aber aus irgendeinem Grund, ist das Ergebnis um 1 zu groß.

Mein Code:

Private Sub cbFläche_Click()

Dim i As Integer
Dim sum As Long

i = 1
sum = 0

Do Until Cells(3 + i, 4) = ""
    sum = sum + Cells(3 + i, 4)
    i = i + 1
Loop
    
    Cells(6, 10) = sum
   
End Sub

Vielleicht könnt ihr mir weiterhelfen. Ich freue mich über eure Antworten!

PS.: Ich kann leider keine Bilder anfügen, dann wäre es anschaulicher.