Supportnet / Forum / Tabellenkalkulation
Excel2007: Umwandlung Buchstaben - Zahlen
Frage
Hallo!
Ich habe in Excel2007 eine Feld mit Buchstaben, z.B. "ERFTY". ich möchte jedem Buchstaben eine Zahl zuordnen (z.B. E=3, R=5 ...) und dann die Summe der Buchstaben des Feldes ermiteln.
Wer kann mir helfen?
Danke, Flo
Antwort 1 von nighty
hi flo :-)
eine benutzerdefinierte formel
gruss nighty
einzufuegen
alt+f11/einfuegen/Modul
einfuegen/function/benutzerdefiniert/SummeZeichen
beinhaltet zur zeit grossbuchstaben dessen zugewiesene werte angepasst werden sollte
eine benutzerdefinierte formel
gruss nighty
einzufuegen
alt+f11/einfuegen/Modul
einfuegen/function/benutzerdefiniert/SummeZeichen
beinhaltet zur zeit grossbuchstaben dessen zugewiesene werte angepasst werden sollte
Function SummeZeichen(Zellen As Range) As Variant
Application.Volatile
Dim wert(90)
Dim zaehler As Integer
wert(65) = 1: wert(66) = 122: wert(67) = 12: wert(68) = 122: wert(69) = 12: wert(70) = 122: wert(71) = 12: wert(72) = 122
wert(73) = 12: wert(74) = 122: wert(75) = 12: wert(76) = 122: wert(78) = 12: wert(79) = 122: wert(80) = 12: wert(81) = 122
wert(82) = 12: wert(83) = 122: wert(84) = 12: wert(85) = 122: wert(86) = 12: wert(87) = 122: wert(89) = 12: wert(90) = 122
For zaehler = 1 To Len(Zellen)
SummeZeichen = SummeZeichen + wert(Asc(Mid(Zellen, zaehler, 1)))
Next zaehler
End Function
