Hoe maak ik een formule voor kolom bij elkaar optellen, waarbij ook een som in cel staat.

Question

Hallo,

Ik wil graag een kolom automatisch laten optellen. Maar zit met het probleem dat in de cellen ook waardes als 1+1 of 2+1+1 staan. Dit moet zo blijven staan om dingen te kunnen herleiden. Is hier een som voor? Of moeten we blijven hoofd rekenen?

Bedankt

Answer 1

Richard,

Dat is een mooie aanvulling en het biedt daarbij de mogelijkheid om een aantal verschillen in gebruik te bekijken.

Jan

Answer 2

Een voorbeeld van het antwoord van jgkzdl is te vinden in dit voorbeeld.

Gr.

Richard Koolman

Click and Know

Answer 3

Samantha,

Mag of wil je geen VBA gebruiken, dan is er nog een mogelijkheid.

Excel kent een verborgen functie EVALUEREN.

Deze kun je verwerken in een Naam via 'Naam definiëren'

Zet de cursor in B1.

Ga in het lint naar Formules> 'Naam definiëren'

Zet bij 'Naam' : mijnEval

Zet bij 'Verwijst naar' deze functie: =ALS.FOUT(EVALUEREN(!A1);0)

Om nu bv de tekst 6+3 in A5 om te zetten naar 8, zet je in B5 de formule =mijnEval

(let wel: deze formule werkt in Excel onder Windows, of deze in Excel onder Mac ook bestaat weet ik niet)

Jan

Answer 4

Samantha,

Als het toch tekst is wat in de cellen staat, dan zou je m.b.v. een VBA-functie die, in een hulpkolom, eerst om kunnen zetten in de berekende waarde van die cellen en dan deze hulpkolom optellen.

Een simpele VBA-functie (EvalCel), geplaatst in een algemene module zou kunnen zijn:

Function EvalCel(strText As String)

    Dim var As Variant

    var = Evaluate(strText)

    If IsError(var) Then var = 0

    EvalCel = var

End Function

Deze functie roep je bv in B1 aan met:

=EvalCel(A1)

Hoofdrekenen is hiermee niet meer nodig.

Het is ook mogelijk om een dergelijke formule (EvalRange) te maken die direct op de hele op te tellen range werkt:

Function EvalRange(rngTest As Range) As Variant

    Dim rng As Variant

    Dim i, j As Long

    Dim r, c As Long

    Dim V As Variant

    Dim var As Variant

    r = rngTest.Rows.Count

    c = rngTest.Columns.Count

    ReDim V(r, c)

    For j = 1 To c

        For i = 1 To r

            var = Evaluate(rngTest.Cells(i, j).Value)

            If IsError(var) Then var = 0

            V(i - 1, j - 1) = var

        Next i

    Next j

    EvalRange = V

End Function

Deze roep je bv aan met:

=SOM(EvalRange(A2:A100)) waar je anders =SOM(A2:A100) gebruikte.

Jan

Answer 5

1+1 = geen formule. Dit is een tekst. Met tekst kan je niet rekenen. Dit zal altijd genegeerd worden door som.

Als het echter een formule is "=1+1" dan zal er 2 staan en kan je er wel mee rekenen.

Jan