Kategorien:
(Tipp 165)
Wie kann man die Quersumme einer Zahl in einer Zelle bilden?
Function Quersumme(Zelle As Range) As Integer Dim intI As Integer Application.Volatile Quersumme = 0 If IsNumeric(Zelle) Then For intI = 1 To Len(Zelle) Quersumme = Quersumme + CInt(Mid(Zelle, intI, 1)) Next End If End Function
In die Zellen braucht man dann nur die Formel einzugeben:
=Quersumme(A1)
Eine interessante Lösung per Formel, die die Zeilennummern verwendet, finden Sie hier: exceltricks.blog.