Wat is de formule voor het optellen van meerdere uitkomsten in één cel?

Open je excel werkboek met je 100+ tabbladen
Druk op alt+F11 om in de VBA editor te komen
Ga naar [Invoegen > module] en voeg een module toe.
Plak daarin onderstaande code
Sluit de VBA editor en ga daarmee terug naar je sheets.
In een cel die typ je de formule: =MijnOptelling()
' -------------------- de code ---------------
Function MijnOptelling() As Variant

Dim WS_Count As Integer
Dim WS As Worksheet
Dim SH As Sheets
Dim I As Integer
Dim J As Integer
Dim A As Long
Dim B As Long
Dim Totaal As Long

' Haal het aantal sheets op
WS_Count = ActiveWorkbook.Worksheets.Count

' Loop door elk sheet
For I = 1 To WS_Count
' Maak het sheet dat aan de beurt is aktief
Set WS = ActiveWorkbook.Worksheets(I)
' Haal de waarde uit cel A1 op
A = WS.Cells(1, 1)
' Doorloop de kolom B van rij 1 tot rij 250
For J = 1 To 250
' Als de cel in kolom B niet leeg is...
If WS.Cells(J, 2) <> "" Then
' ...bereken dan de waarde A - B en stop deze in de variable B
B = A - WS.Cells(J, 2)
'verhoog het totaal met de waarde in variabele B
Totaal = Totaal + B
End If
Next J
Next I

' Geef het berekende bedrag retour
MijnOptelling = Totaal

End Function