| VBA-Beispiel 021 | |
|
|
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 |
|
relevante Links:
|
|
| |