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
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
Um die Quersumme in Excel zu berechnen, kannst du eine benutzerdefinierte Funktion oder eine einfache Formel verwenden. Hier sind die Schritte:
Öffne Excel und drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.
Füge ein neues Modul hinzu: Klicke auf Einfügen > Modul.
Kopiere den folgenden Code in das Modul:
Function Quersumme(Zelle As Range) As Integer
Dim intI%
For intI = 1 To Len(Zelle)
Quersumme = Quersumme + CInt(Mid(Zelle, intI, 1))
Next
End FunctionSpeichere und schließe den VBA-Editor.
Gib in eine Zelle die Formel ein:
=Quersumme(A1)Ersetze A1 mit der Zelle, die die Zahl enthält, deren Quersumme du berechnen möchtest.
Fehler: Zellinhalt ist keine Zahl
Lösung: Stelle sicher, dass die Zelle, auf die du verweist, tatsächlich eine Zahl enthält.
Fehler: Zellinhalt ist einstellig oder leer
Lösung: Überprüfe, ob die Zelle eine mehrstellige Zahl enthält.
Die Funktion wird nicht erkannt
Lösung: Stelle sicher, dass du die Datei als Makro-fähige Arbeitsmappe (.xlsm) speicherst.
Falls du keine VBA-Funktion verwenden möchtest, kannst du auch eine Array-Formel nutzen. Hier ist eine Möglichkeit:
Gib die folgende Formel in eine Zelle ein:
=SUMME(TEIL(A2;ZEILE(INDIREKT("A1:A"&LÄNGE(A2)));1)*1)Drücke Strg + Shift + Enter, um die Formel als Array-Formel einzugeben.
Eine weitere Methode ist die Verwendung von SUMMENPRODUKT:
=SUMMENPRODUKT((0&TEIL(A1;SPALTE(1:1);1))*1)Quersumme von 112:
Die Quersumme von 112 ist 1 + 1 + 2 = 4. Verwende die Formel =Quersumme(112).
Quersumme von 19:
Die Quersumme von 19 ist 1 + 9 = 10. In Excel wird dies durch =Quersumme(19) berechnet.
Quersumme rückwärts berechnen:
Du kannst die Zahl rückwärts eingeben, z.B. 21 wird zu 2 + 1 = 3.
1. Was ist die Quersumme?
Die Quersumme ist die Summe der einzelnen Ziffern einer Zahl. Zum Beispiel: Die Quersumme von 123 ist 6, da 1 + 2 + 3 = 6.
2. Wie kann ich die Quersumme von 12 in Excel berechnen?
Du kannst die Formel =Quersumme(12) verwenden, um die Quersumme von 12 zu berechnen, was 3 ergibt.
3. Kann ich die Quersumme auch für mehrstellige Zahlen berechnen?
Ja, die Quersumme kann für jede mehrstellige Zahl in Excel berechnet werden, solange sie als Zahl eingegeben ist.
4. Gibt es eine Formel, um die Quersumme in Excel zu berechnen?
Ja, du kannst die benutzerdefinierte Funktion Quersumme oder die Array-Formel verwenden, um die Quersumme in Excel zu berechnen.