online 1
gast (50)

/ Forum / Tabellenkalkulation

TabellenkalkulationTabellenkalkulation

Fragevon FloXYZ vom 10.09.2019, 13:04 Options

Excel2007: Umwandlung Buchstaben - Zahlen

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 schreiben

Antwort 1 von nighty vom 10.09.2019, 17:50 Options

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

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

Ähnliche Themen

Autokennzeichen Kreis-QQ-Nummer. Bedutung von Buchstaben
Lurchi  27.04.2007 - 284 Hits - 6 Antworten

Wie kann man den Ziffernblock mit anderen Zahlen/Buchstaben belegen?
Californication  07.07.2007 - 63 Hits - 3 Antworten

Zwischenzeichen bei Zahlen entfernen
Partisan84  10.07.2007 - 70 Hits - 3 Antworten

buchstaben entfernen
adrian1  22.08.2007 - 63 Hits - 4 Antworten

Buchstaben und ziffern addieren und ausschließen
paelzer  07.04.2008 - 75 Hits - 7 Antworten

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Version: supportware 1.9.150 / 10.06.2022, Startzeit:Thu Jan 8 21:07:44 2026