Einleitung
Die Quersumme einer Zahl – die Summe aller ihrer Ziffern – ist ein häufig benötigtes Werkzeug in der Datenanalyse und anderen Berechnungen. In Excel gibt es zwei effektive Methoden, um die Quersumme zu berechnen: Eine benutzerdefinierte VBA-Funktion und eine native Excel-Formel.
VBA-Funktion zur Quersummenberechnung
Die benutzerdefinierte VBA-Funktion Quersumme
ermöglicht es, die Quersumme einer Zahl aus einer einzelnen Zelle zu berechnen:
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Public Function Quersumme(Zelle As Range) As Variant | |
If Zelle.Count <> 1 Then | |
Quersumme = "#Fehler" | |
Else | |
If IsNumeric(Zelle.Value) Then | |
Dim Summe As Integer | |
Summe = 0 | |
For i = 1 To Len(Zelle.Value) | |
Summe = Summe + Val(Mid(Zelle.Value, i, 1)) | |
Next i | |
Quersumme = Summe | |
Else | |
Quersumme = "#Fehler" | |
End If | |
End If | |
End Function |
Hinweise:
- Diese Funktion berechnet die Quersumme nur, wenn die Zelle eine einzige Zahl enthält.
- Bei nicht numerischen Werten oder bei Auswahl mehrerer Zellen gibt die Funktion
#Fehler
zurück.
Native Excel-Formel zur Quersummenberechnung
Für die Berechnung der Quersumme ohne VBA kann folgende Array-Formel verwendet werden:
{=SUMME(1*TEIL(B3;ZEILE(INDIREKT("1:"&LÄNGE(B3)));1))}
Anwendung:
- Diese Formel wird in einer Zelle als Array-Formel eingegeben (Abschluss mit Strg+Shift+Enter).
B3
ist die Zelle, deren Quersumme berechnet werden soll.