AW: Quersumme
01.10.2005 17:19:12
Hajo_Zi
Hallo Katya,
Quersumme in Excel
Du könntest mit einer benutzerdefinierten Funktion arbeiten
Function Quersumme(Zelle As Range) As Integer
Dim intI%
For intI = 1 To Len(Zelle)
Quersumme = Quersumme + CInt(Mid(Zelle, intI, 1))
Next
End Function
In die Zelle kannst Du dann z. B. schreiben
=Quersumme(A1)
CInt =Integer Zahl
Mit Fehler abfrage
Sub quer()
qsumme = 0
If Len(ActiveCell.Value) > 1 Then
If IsNumeric(ActiveCell.Value) Then
For i = 1 To Len(ActiveCell.Value)
qsumme = qsumme + Mid(ActiveCell.Value, i, 1)
Next i
Else
MsgBox "Zellinhalt ist keine Zahl"
Exit Sub
End If
Else
MsgBox "Zellinhalt ist einstellig oder leer"
Exit Sub
End If
MsgBox qsumme
End Sub
oder
nimm die Array-Formel von WF
=SUMME(TEIL(A2;ZEILE(INDIREKT("A1:A"&LÄNGE(A2)));1)*1)
Eingabe der Formel mit Strg/Shift/Enter
http://www.excelformeln.de/formeln.html?welcher=112
=SUMMENPRODUKT((0&TEIL(A1;SPALTE(1:1);1))*1)
von Boris
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.