VBA-Beispiel 021
mail schreiben
mail schreiben

mit VBA Werte einer Spalte addieren

Addiert die Werte in Spalte A und schreibt die Summe in die letzte Zelle. Die Einträge müssen lückenlos sein.
Sub Do_Loop_Summe()
'addiert Werte in Spalte A bis zur ersten leeren Zelle
'und schreibt unten drunter die Summe
Dim i As Integer
Dim sum As Long
    sum = 0
    i = 1
    Do Until IsEmpty(Cells(i, 1))
    sum = sum + Cells(i, 1)
    i = i + 1
    Loop
    Cells(i, 1) = sum
    Range("A:A").Interior.ColorIndex = xlNone
    Cells(i, 1).Interior.ColorIndex = 36
End Sub
Sinnvoller und schneller ist aber die Verwendung der schon in Excel eingebauten Summenfuntion:
Sub Funktion_Summe()
MsgBox WorksheetFunction.Sum(Range("A:A")), , "Summe Spalte A:"
End Sub

Download:   vba021.zip