Summenzahlen in Auswahl -

Fasst alle Zahlen in der ausgewählten Region zusammen und setzt die Summe in "A1"

Sub sum_selection () Dim cell As Range Dim sum As Double 'Durch jede Zelle in der Auswahl iterieren Für jede Zelle in der Auswahl' Addiere den Wert zur Variablen sum sum = sum + cell.Value Nächste Zelle Cells (1, 1) = sum End Sub