Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
956to960
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
956to960
956to960
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Buchstaben in Zahlenumwandeln

Buchstaben in Zahlenumwandeln
10.03.2008 16:28:39
Limmer
Hallo,
ich möchte dem Alpabet Zahlen zuordnen. Z.b. a=1, b= 2,c=3...... usw.
Es soll so funktionieren: Wenn ich jetzt in A1 z.b. ein c eingebe,
soll in b1 die zahl 3 erscheinen, usw.
Sollte eigentlich einfach sein. Aber irgendwie komme ich nicht drauf.
Danke für eure Hilfe
Gruss Mario

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Buchstaben in Zahlenumwandeln
10.03.2008 16:30:16
Jens
Hi,
"...... usw..." Wie weit?
mfg Jens

AW: Buchstaben in Zahlenumwandeln
10.03.2008 16:37:00
Rudi
Hallo,
=CODE(GROSS(A1))-64
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

klar doch :-)
10.03.2008 16:40:52
WF
.

AW: klar doch :-)
10.03.2008 16:45:54
Rudi
Hallo Walter,
die Alternative finde ich noch besser.
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

=SUCHEN("R";"abcdefghijklmnopqrstuvwxyz")
10.03.2008 16:38:00
WF
.

oder: =SPALTE(INDIREKT(A1&"1"))
10.03.2008 16:40:00
Rudi

AW: Buchstaben in Zahlenumwandeln
10.03.2008 16:48:00
Mag
Hi,

ich möchte dem Alpabet Zahlen zuordnen. Z.b. a=1, b= 2,c=3...... usw.


Sollten die Zahlen nicht linear ansteigen, dann z.B.:


=INDEX(FINDEN(A1;"abcdefgh");{1;20;3;40;5;60;7;8})


oder


=SUMMENPRODUKT((A1={"a";"b";"c";"d";"e";"f";"g";"h"})*{1;20;3;40;5;60;7;8})


oder ...
Gruss

Anzeige
AW: Buchstaben in Zahlenumwandeln
10.03.2008 17:15:00
Tino
Hallo,
hier mal eine VBA Lösung für den Bereich A1:A100

Private Sub Worksheet_Change(ByVal Target As Range)
Dim a As Byte, Zelle As Range
On Error GoTo Fehler: 'Sicherheit wegen Evenst
For Each Zelle In Selection
If Selection.Columns.Count > 1 Then Exit Sub
If Selection.Rows.Count = 1 Then Set Zelle = Target
If (Intersect(Zelle, Range("A1:A100")) Is Nothing) Or _
(LCase$(Zelle)  "z") Then Exit Sub
Application.ScreenUpdating = False
Application.EnableEvents = False
For a = 1 To 26
Select Case Chr(a + 96)
Case LCase$(Zelle)
Zelle.Offset(0, 1) = a
Exit For
End Select
Next a
Next Zelle
Fehler:
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub


Gruß
Tino

Anzeige

326 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige