Somnummers in selectie -

Telt alle getallen in de geselecteerde regio op en plaatst de som in "A1"

Sub sum_selection () Dim cel As Bereik Dim sum As Double 'Herhaal elke cel in de selectie Voor elke cel in selectie' Voeg de waarde toe aan de variabele som som = som + cel Waarde Volgende cel Cellen (1, 1) = som Einde Sub