Mit Excel die Quersumme einer Ganzzahl berechnen lassen?

Hier kann eine eigene Funktion helfen. Diese muss mann mit Hilfe von VBA erstellen. Die Funktion koennte so aussehen:

Public Function Quersumme(Bereich As Range) For I = 1 To Len(Bereich) Quersumme = Quersumme + CInt(Mid(Bereich, I, 1)) Next End Function

In dem Arbeitsblatt kann die benutzerdefinierte Funktion aufgerufen werden. =Quersumme(A1)