Hallo liebe W-W-W-Gemeinde,
gibt es in Excel (2003) eine Funktion, die mir die Quersumme aus einer Zahl berechnet?
Oder kann ich eine Funktion selbst erstellen?
Zur Zeit helfe ich mir mit „Teil(;1;1)+Teil(;2;1)+Teil(;n;1)“
Oft weiß ich aber die Anzahl der Ziffern meiner Zahl beim Erstellen meines Arbeitsblattes noch nicht und dann fange ich an, ganz groß drumrumzubauen mit der ‚Wenn‘-Funktion, mit der ich auf die mögliche Anzahl Ziffern eingehen kann. Aber das ist jedesmal sooooo umständlich, das ich mich riesig darüber freuen würde, wenn es eine Alternative geben würde.
Sabine sagt schon mal Danke!
Hallo Sabine,
Oft weiß ich aber die Anzahl der Ziffern meiner Zahl beim
Erstellen meines Arbeitsblattes noch nicht und dann fange ich
an, ganz groß drumrumzubauen mit der ‚Wenn‘-Funktion, mit der
ich auf die mögliche Anzahl Ziffern eingehen kann. Aber das
ist jedesmal sooooo umständlich, das ich mich riesig darüber
freuen würde, wenn es eine Alternative geben würde.
für die Anzahl der Ziffern gibt es die Funktion =LÄNGE()
Gruß
Marion
Hallo Marion,
vielen Dank für Deine Antwort.
Die ‚Länge‘-Funktion bau ich in die ‚Wenn‘-Funktion mit ein. Das sieht dann in etwa so aus:
=WENN(LÄNGE()=1;"=";WENN(LÄNGE()=2;TEIL(;1;1)+TEIL(;2;1);WENN(LÄNGE()=n;TEIL(;1;1)+TEIL(;2;1)+TEIL(;n;1);„Anzahl der Ziffern größer n“)))
Und wenn die Anzahl der Ziffern meiner Zahl nicht passt, muß ich nachbessern.
Hast Du eine Idee zur Verwendung der ‚Länge‘-Funktion zur Lösung meines Problems mit der Quersumme?
Hallo liebe W-W-W-Gemeinde,
gibt es in Excel (2003) eine Funktion, die mir die Quersumme
aus einer Zahl berechnet?
Hallo,
folgende VBA-Funktion kannst Du verwenden, um die Quersumme einer Ziffer unabhängig von der Länge der Zahl zu ermitteln:
Function Quersumme(Zahl As Long) As Long
While Zahl \> 0
Quersumme = Quersumme + Zahl Mod 10
Zahl = Zahl \ 10
Wend
End Function
Füge diesen Code im VBA-Editor in ein neues Modul ein.
Aufrufen kannst Du die Funktion, indem Du wie gewohnt folgende Formel im Tabellenblatt eingibst und jeweis eine Verweis auf die zu berechnende Zahl als Parameter angibst:
„=Quersumme(A1)“
Viele Grüße, tester
Hast Du eine Idee zur Verwendung der ‚Länge‘-Funktion zur
Lösung meines Problems mit der Quersumme?
vielleicht fällt mir in der Mittagspause was ein
Gruß
Marion
Hast Du eine Idee zur Verwendung der ‚Länge‘-Funktion zur
Lösung meines Problems mit der Quersumme?vielleicht fällt mir in der Mittagspause was ein
wieviel Stellen haben die Zahlen höchstens?
Formel scheint mir aufwendig zu sein, bin in der Pause nicht fertig geworden
Lösung über vba wäre wohl einfacher, es gibt einige Beispiele dafür, google mal
Gruß
Marion
Hallo Sabine, hallo Marion
Lösung über vba wäre wohl einfacher, es gibt einige Beispiele
dafür, google mal
VBA brauchts dazu nicht. Man muss einfach nur ins Zauberbuch schauen. 
Dieses sagt folgendes:
{=SUMME((TEIL(A1;ZEILE(INDIREKT(„1:“&LÄNGE(A1)));1)*1))}
Diese Matrixformel muss mit Strg+Shift+Enter abgeschlossen werden.
Gruß Alex
2 „Gefällt mir“
Moin, Alex,
{=SUMME((TEIL(A1;ZEILE(INDIREKT(„1:“&LÄNGE(A1)));1)*1))}
besternten Dank. Und wer denkt sich sowas perverses aus? Das kapiere ich beim dritten Hinschauen immer noch nciht.
Gruß Ralf
Moin, Ralf
,
{=SUMME((TEIL(A1;ZEILE(INDIREKT(„1:“&LÄNGE(A1)));1)*1))}
besternten Dank. Und wer denkt sich sowas perverses aus? Das
kapiere ich beim dritten Hinschauen immer noch nciht.
Das waren die Künstler von http://www.excelformeln.de. Die haben diese Formel in ihrem Zauberbuch veröffentlicht. (ISBN: 978-3-8272-4087-3 Buch anschauen). Die Formel schlüsselt die Zahl nach ihren Ziffern ín ein Array auf, was du der Teil-Formel entnehmen kannst und summiert diese Teile. Wenn du die genaue Erklärung lesen willst, schau ins angegebene Buch auf die Seiten 224 ff.
Gruß Alex
PS: Sowas nennst du pervers? Ich nenn das genial *gg*
Hi Alex,
danke für den Buchtipp.
PS: Sowas nennst du pervers? Ich nenn das genial *gg*
je nach Definition liegt das nicht sooo weit auseinander 
Gruß Ralf
owT kriegstdu stern