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