Excel: Quersumme einer Zahl
Gepostet am: Jan 15, 2011 8:29:53 PM
Möglichkeit 1: eigene VBA-Funktion
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
Möglichkeit 2: komplizierte Excel-Formel
Exel-Funktion
{=SUMME(1*TEIL(B3;ZEILE(INDIREKT("1:"&LÄNGE(B3)));1))}