Cijfers optellen

[Phill]

Bijgaand een excel-bestand waarbij in kolom A diverse cijfers staan die soms gesplitst zijn met spaties.
Ik wil graag dat als in kolom A diverse cijfers staan deze worden opgeteld en in kolom B gezet worden.
Is er slechts 1 cijfer dan dit cijfer ook in kolom B zetten.
Hoe zou dit kunnen?

 

[edmoor]

Dus 1 1 2 in kolom A wordt 4 in kolom B?

 

[Phill]

Ja dat is de bedoeling.

 

[VenA]

Zoiets?

=SUMPRODUCT(IFERROR(--MID(A2;ROW($1:$50);1);0))

 

[Phill]

Bij het vermelden van deze code krijg ik dit te zien: #NAAM?

 

[edmoor]

Even naar NL vertalen:

=SOMPRODUCT(ALS(--DEEL(A2;RIJ($1:$50);1);0))

 

[Phill]

Nu krijg ik #WAARDE! te zien

 

[edmoor]

Mijn fout.
ALS moet zijn ALS.FOUT

 

[VenA]

=SOMPRODUCT(ALS.FOUT(--DEEL(A2;RIJ($1:$50);1);0))

Waarschijnlijk afsluiten met <Ctrl> + <Shift> + <Enter> als je geen Excel365 gebruikt.

 

[Phill]

Ja het werkt nu. Dank je wel.

 

[edmoor]

De dank is aan VenA.
Ik deed alleen de vertaling.

 

[Phill]

Loop ik toch nog tegen een probleem aan. Op het moment dat er meerdere cijfers vermeld zijn, waarvan er een boven de 9 is, bijvoorbeeld 10 , dan telt hij niet 10, maar 1.
Dus 1 10 wordt dan 2, terwijl het 11 zou moeten zijn.

 

[JEC.]

Je spaties lijken geen gewone spaties te zijn

Zet deze eens achter een module.

Function jveer(cell)
 ar = Split(Replace(cell, Chr(160), "-"), "-")
  For i = 0 To UBound(ar)
    jveer = jveer + (ar(i) * 1)
  Next
End Function

Daarna functie invoeren als =jveer(A2)

 

[JEC.]

Of met een Excel formule. Deze moet je ook afsluiten met control shift enter (matrix)
""

=SOMPRODUCT(ALS.FOUT(--SUBSTITUEREN(DEEL(SUBSTITUEREN(TEKEN(160)&A3;TEKEN(160);HERHALING("@";20));21*RIJ($1:$20);20);"@";"");0))

 

[Phill]

Ik krijg helaas weer #Waarde! te zien bij de cellen met cijfers boven de 9

 

[JEC.]

Plaats je bestand eens waar het misgaat

 

[Phill]

Bij de excel-formule krijg ik een 0. bij de cijfers boven de 9

 

[JEC.]

Dan is je voorbeeldbestand niet representatief

 

[Phill]

Bij deze het excel-bestand

 

[JEC.]

Het probleem is de aanwezigheid van verschillende type "spaties". Soms is het Chr(32) en soms Chr(160)

Function jveer(cell)
 ar = Split(Replace(Replace(cell, Chr(160), "-"), Chr(32), "-"), "-")
  For i = 0 To UBound(ar)
    jveer = jveer + (ar(i) * 1)
  Next
End Function