Berechnung von Quersummen (Tipp_25) -
01.03.2007Mit der EXCEL-Funktion TEIL lassen sich Quersummen beliebiger Länge berechnen. Die folgende Formel berechnet die Quersumme einer vierstelligen Zahl:
=TEIL(A1;1;1)+TEIL(A1;2;1)+TEIL(A1;3;1)+TEIL(A1;4;1)
Der Nachteil liegt darin, daß für jede Zahl mit unterschiedlicher Anzahl Stellen eine andere Formel herhalten muß. Deshalb ist es günstiger, hier eine benutzerdefinierte Funktion zu verwenden:
Function Quersumme(Zahl)
Dim I As Integer
Quersumme = 0
For I = 1 To Len(Zahl)
Quersumme = Quersumme + Mid(Zahl, I, 1)
Next
End Function
Mit dieser Funktion können beliebig viele Stellen berücksichtigt werden.
