Gruppe
UDF
Bereich
Numerisch
Thema
Quersumme berechnen
Problem
Wie kann ich in Excel die Quersumme einer Zahl berechnen?
Lösung
Geben Sie die nachfolgende benutzerdefinierte Funktion in ein Standardmodul ein.
StandardModule: basMain
Function CheckSum(lValue As Long)
Dim iCounter As Integer, iSum As Integer
lValue = Fix(lValue)
For iCounter = 1 To Len(CStr(lValue))
iSum = CInt(iSum) + CInt(Mid(lValue, iCounter, 1))
Next iCounter
CheckSum = iSum
End Function