Excel: Quersumme einer Zahl

Gepostet am: Jan 15, 2011 8:29:53 PM

Möglichkeit 1: eigene VBA-Funktion

Quersumme

Public Function Quersumme(Range As Range) As Variant'(c) Erhard RainerIf Range.Count <> 1 Then     Quersumme = "#Fehler"Else     If IsNumeric(Range.Value) Then         Quersumme = 0         For i = 1 To Len(Range.Value)             Quersumme = Quersumme + Mid(Range.Value, i, 1)         Next i     Else         Quersumme = "#Fehler"     End IfEnd IfEnd Function

Möglichkeit 2: komplizierte Excel-Formel

Exel-Funktion

{=SUMME(1*TEIL(B3;ZEILE(INDIREKT("1:"&LÄNGE(B3)));1))}

Quelle der VBA freien Lösung