kennt jemand ein Makro, das 1. Die Buchstaben eines Wortes in Zahlen umwandelt und 2. Die Quersumme dieser Zahlen berechnet? Beispiel: das Wort "Makro". 13+1+12+18+15=59
Die Umwandlung: a=1, b=2, c=3, ..., z=26.
Danke im Voraus
Erhard
| A | B | C | |
| 1 | Makro | 58 | |
| 2 | abc | 6 | |
| 3 | alifa | 29 | |
| 4 |
| Formeln der Tabelle | ||||
|
Rem Binärsumme einer Zeichenfolge
' Vs1.0a -LSr -CDate:2003|4 -1Pub:20170622h -LUpd:2004
Function SumBin(ByVal ZFolge As String)
Dim i As Integer
For i = 1 To Len(ZFolge)
SumBin = SumBin + Asc(Mid(ZFolge, i, 1))
Next i
End Function
Gruß, Luc :-?Um die Quersumme von Wörtern in Excel zu berechnen, kannst du die folgende Formel verwenden. Diese Formel wandelt jeden Buchstaben in eine Zahl um (a=1, b=2, ..., z=26) und berechnet dann die Quersumme:
Öffne Excel und gib ein Wort in die Zelle A1 ein (z.B. "Makro").
In die Zelle B1 gib die folgende Formel ein:
=SUMMENPRODUKT((CODE(TEIL(KLEIN(A1); ZEILE($A$1:INDEX(A:A; LÄNGE(A1))); 1))-96)*1)
Drücke Enter. Die Zelle B1 zeigt dir nun die Quersumme des Wortes an.
Diese Formel nutzt die Funktionen CODE, TEIL, KLEIN, SUMMENPRODUKT und LÄNGE, um die Umwandlung der Buchstaben in Zahlen und die anschließende Berechnung der Quersumme in Excel durchzuführen.
Fehler: Falsche Quersumme angezeigt
Fehler: Umlaute nicht berücksichtigt
Falls du lieber ein Makro verwenden möchtest, hier ist ein Beispiel, das du in den VBA-Editor einfügen kannst:
Function Quersumme(Wort As String) As Integer
Dim i As Integer
Dim Summe As Integer
For i = 1 To Len(Wort)
Summe = Summe + Asc(Mid(Wort, i, 1)) - 96
Next i
Quersumme = Summe
End Function
Um das Makro zu verwenden:
ALT + F11, um den VBA-Editor zu öffnen.=Quersumme(A1) verwenden, um die Quersumme zu berechnen.Hier sind einige Beispiele zur Berechnung der Quersumme:
Beispiel 1: Das Wort "Hallo"
Quersumme: 8 + 1 + 12 + 12 + 15 = 48
Beispiel 2: Das Wort "Test"
Quersumme: 20 + 5 + 19 + 20 = 64
Beispiel 3: Das Wort "Excel"
Quersumme: 5 + 24 + 3 + 5 + 12 = 49
ZUFALLSZAHL(), um zufällige Buchstabenkombinationen zu erstellen und deren Quersummen zu vergleichen.1. Wie kann ich die Quersumme von Wörtern mit Umlaute berechnen?
Du kannst Umlaute manuell in ä=ae, ö=oe und ü=ue umwandeln, bevor du die Quersumme berechnest.
2. Welche Excel-Version wird benötigt?
Die oben genannten Formeln und Makros sind mit Excel 2010 und späteren Versionen kompatibel.
3. Gibt es eine Möglichkeit, die Quersumme rückwärts zu berechnen?
Ja, du kannst die Buchstaben in umgekehrter Reihenfolge in eine Hilfsspalte einfügen und dann die Quersumme mit der oben genannten Formel berechnen.