VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Quersumme berechnen

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

    


Beiträge aus dem Excel-Forum zu den Themen UDF und Numerisch