Anzeige der Position im Alphabet mit Zahlen

Hallo Excel-Freunde!
Ich suche nach einer Lösung zu folgendem Problem.
In einer Zelle (A1) wird ein Wort eingegeben (z.B. Baum).
In der benachbarten Zelle oder in einer Msg-Box soll die Anzeige der Position im Alphabet der einzelnen Buchstaben mit Zahlen erfolgen.
In einer dritten Spalte oder in einer Msg-Box erscheint die Summe der emittelten Zahlen.
Beispiel:
Wort: Baum
Anzeige
B=2
A=1
U=21
M=13
Summe=37 (BAUM)
Kann mir hier jemand bitte helfen?
Bisher habe ich es hierher geschaft:
Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address = "$A$1" Then Dim dummy As String For zahlencode = 1 To Len(Range("A1").Value) dummy = dummy & Str(Asc(Mid(UCase(Range("A1").Value), zahlencode, 1)) - 64) Next Range("A2").Value = Replace(dummy, "-32", "") End If End Sub
Danke Euch!!!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim i As Integer, s As String, intSum As Integer With Target If .Column <> 1 Then Exit Sub For i = 1 To Len(.Text) s = s & Asc(Mid(LCase(.Text), i, 1)) & ", " intSum = intSum + Asc(Mid(LCase(.Text), i, 1)) Next i Cells(.Row, 2) = s & "Summe: " & intSum Columns(2).AutoFit End With End Sub

Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim i As Integer, s As String, intSum As Integer With Target If .Column <> 1 Then Exit Sub For i = 1 To Len(.Text) s = s & Asc(Mid(LCase(.Text), i, 1)) - 96 & ", " intSum = intSum + Asc(Mid(LCase(.Text), i, 1)) - 96 Next i Cells(.Row, 2) = s & "Summe: " & intSum Columns(2).AutoFit End With End Sub

Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim i As Integer, s As String, intSum As Integer, strTemp As String With Target If .Column <> 1 Then Exit Sub strTemp = LCase(WorksheetFunction.Substitute(.Text, " ", "")) For i = 1 To Len(strTemp) s = s & Asc(Mid(strTemp, i, 1)) - 96 & ", " intSum = intSum + Asc(Mid(strTemp, i, 1)) - 96 Next i Cells(.Row, 2) = s & "Summe: " & intSum Columns(2).AutoFit End With End Sub

Hallo Heiko,
es geht auch mit einer Formellösung, mit dem Nachteil, man müßte wissen, wieviele Buchstaben im String stehen, aber hier mal das Beispiel Baum/BAUM:

Tabelle1

	C	D
21	Baum	37
22	BAUM	37

Formeln der Tabelle

D21 : =CODE(TEIL(GROSS(C21);1;1))-64+CODE(TEIL(GROSS(C21);2;1))-64+CODE(TEIL(GROSS(C21);3;1))-64+CODE(TEIL(GROSS(C21);4;1))-64
D22 : =CODE(TEIL(GROSS(C22);1;1))-64+CODE(TEIL(GROSS(C22);2;1))-64+CODE(TEIL(GROSS(C22);3;1))-64+CODE(TEIL(GROSS(C22);4;1))-64

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen Excel Jeanie HTML 3.0 Download
Da Kleinbuchstaben Codemäßig jeweils 64 über ihren grossen Pendents liegen, habe ich, um Fehler abzufangen, Großbuchstaben sichergestellt mit der Funktion GROSS und dann jeweils 64 abgezogen. Dann das Ganze ausgelesen mit der Funktion CODE, die reagiert aber nur auf das erste Stringzeichen, deshalb habe ich die Funktion TEIL noch mit reingepackt und so die Buchstaben der Reihe nach angesprochen.
Boris Lösung ist ja perfekt - aber ich wollte mal formelmäßig die Möglichkeiten austesten und deshalb hier das Ergebnis.
Gruß,
Beate

Beliebteste Forumthreads (12 Monate)

Anzeige der Position im Alphabet mit Zahlen

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Anzeige der Position im Alphabet mit Zahlen

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread