Quersumme (Ziffernsumme) einer Zahl berechnen

[LO-Joe]

Hallo,

in LibreOffice Calc gibt es leider keine eingebaute Formel zum berechnen der Quersumme.

Beispiel:
Die (dezimale) Quersumme der (Dezimal-)Zahl n = 1337 ist q = 1 + 3 + 3 + 7 = 14

Nach einer längeren Suche im Netz, bin ich im englischsprachigen OpenOffice Forum im Beitrag „[Solved] Calculating digit sum of integers in a column“ fündig geworden:
https://forum.openoffice.org/en/forum/v ... 02#p398580

Here's one way to add up all the digits of a number in cell A1:
=SUMPRODUCT(VALUE(MID(A1;ROW(INDIRECT("z1:z"&LEN(A1)));1)))

Da sich die Namen der Calc-Funktionen in Deutsch und Englisch unterscheiden, hier die Formel mit deutschen Funktionsnamen, um die Quersumme einer Zahl (in der Zelle A1) zu berechnen:

=SUMMENPRODUKT(WERT(TEIL(A1;ZEILE(INDIREKT("z1:z"&LÄNGE(A1)));1)))

Ich hoffe, dies erspart anderen eine langwierige Suche.

Gruß
LO-Joe

[echo]

Hallo zusammen
hier noch ein netter Link zur Quersumme.
https://www.herber.de/excelformeln/page ... tteln.html
Steht zwar Excel drüber, funktioniert aber auch in CALC.

Weiter unten dazu vielleicht interessant:

• Sollte die Quersumme der Quersumme berechnet werden, bis nur noch eine einstellige Zahl übrig bleibt.

PS: Beachtete die {geschweiften Klammern} als Zeichen einer Matrix-Formel

Gruß Holger

[blende8]

Interessant, danke!