Wie berechnet man die Quersumme in Excel?

1. Was versteht man unter der Quersumme?
2. Wie funktioniert die Berechnung der Quersumme in Excel?
3. Formelbasierte Lösung ohne Makros
4. Mit VBA eigene Funktion erstellen
5. Fazit

Die Berechnung der Quersumme ist eine gängige Aufgabe, bei der die einzelnen Ziffern einer Zahl addiert werden. In Excel gibt es keine direkte Funktion, die speziell für die Quersumme vorgesehen ist. Dennoch lässt sich die Quersumme mit Hilfe von Funktionen und Formeln leicht berechnen.

Was versteht man unter der Quersumme?

Die Quersumme einer Zahl ist die Summe aller einzelnen Ziffern, aus denen sich diese Zahl zusammensetzt. Zum Beispiel ist die Quersumme von 1234 gleich 1 + 2 + 3 + 4 = 10. Diese Berechnung wird oft in der Mathematik, beim Prüfen von Zahlen oder in der Numerologie angewendet.

Wie funktioniert die Berechnung der Quersumme in Excel?

Da Excel keine eingebaute Funktion für die Quersumme anbietet, muss man die Ziffern einer Zahl zuerst einzeln auslesen und dann zusammenaddieren. Dies kann man mit einer Kombination aus den Funktionen ABS, TEXT, TEIL, SPALTE und SUMME erreichen. Alternativ kann man auch mit VBA (Makros) eine eigens erstellte Funktion programmieren.

Formelbasierte Lösung ohne Makros

Eine Möglichkeit besteht darin, die Zahl zunächst als Text zu behandeln. Mit der TEXT-Funktion wird die Zahl in einen Textstring umgewandelt. Anschließend kann man mit TEIL und SPALTE die einzelnen Ziffern nacheinander extrahieren. Diese Ziffern werden dann mit WERT in numerische Werte umgewandelt und zuletzt mit der SUMME-Funktion addiert.

Ein Beispiel für eine solche Formel, die in der Zelle A1 die Quersumme berechnet, sieht so aus:

=SUMME(WERT(TEIL(TEXT(A1;"0");SPALTE(1:1);1)))

Diese Formel muss als Matrixformel eingegeben werden (in älteren Excel-Versionen mit Strg+Shift+Enter). Alternativ kann man die Formel mit der Funktion AGGREGAT oder NEUEREN Excel-Funktionen wie SEQUENZ und SUMMENPRODUKT kombinieren.

Mit VBA eigene Funktion erstellen

Für eine flexiblere Lösung empfiehlt sich das Schreiben einer benutzerdefinierten Funktion (User Defined Function, UDF) in VBA. Dadurch kann man die Quersumme wie eine normale Excel-Funktion direkt verwenden. Die VBA-Funktion liest die Zahl als Text ein, konvertiert jede einzelne Ziffer in eine Zahl und summiert diese anschließend.

Der Beispielcode für eine solche Funktion könnte folgendermaßen aussehen:

Danach kann man in Excel einfach =Quersumme(A1) verwenden, um die Quersumme der Zahl in Zelle A1 zu berechnen.

Fazit

Zusammenfassend gibt es verschiedene Wege, die Quersumme in Excel zu berechnen. Man kann sowohl mit komplexeren Formeln ohne Makros arbeiten als auch durch VBA eine eigene Funktion erstellen. Die Wahl hängt davon ab, wie häufig man diese Berechnung benötigt und wie komfortabel man im Umgang mit VBA ist.