Excel, Formeln, VBA Programmierung, UDF, Tipps & Tricks

Quersumme

Benutzerdefinierte Funktion

Diese benutzerdefinierte Funktion ermittelt die Quersumme einer Zahl in einer Zelle

Tabelle2

Formeln der Tabelle

B1 : =quersumme(A1)
B2 : =quersumme(A2)

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen Excel Jeanie HTML 3.0 Download

Der Code für ein allgemeines Modul

Public Function quersumme(Zelle) As Long

Dim intI As Integer

If IsNumeric(Zelle) Then

For intI = 1 To Len(Zelle)

quersumme = quersumme + Mid(Zelle, intI, 1)

Next

End If

End Function