Umwandeln von Zahlen in Buchstaben - CODE

Forumthread: Umwandeln von Zahlen in Buchstaben - CODE

15.11.2004 22:36:12

Zahlen

Hallo,
wie kann ich in Excel eine bestimmte Position in einer Zelle ansprechen? Ich schreibe in A1 22,50 und in A2 soll er aus Position 1 (also 2) ein B machen. Aus Position 2 (wieder eine 2) ein B machen, aus Position 3 (Komma) nichts, aus Position 4 (also 5) ein E und aus Position 5 (also die 0) soll er ein J machen.
Zweck: Ich möchte in einer Zelle einen Eurobetrag eingeben um ihn in einer anderen Zelle als Buchstaben-Code wieder auszugeben (Verschlüsselter Einkaufspreis auf Warenetikett). Zum Beispiel 1=A; 2=B; usw.
Vielen Dank im voraus.
Alex. Kreth

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Umwandeln von Zahlen in Buchstaben - CODE

Zahlen

Hi Alex,
mal ganz schnell etwas gebastelt. Ist zwar nicht die eleganteste Lösung, funktioniert aber.

Tabelle1

	A	B	C	D	E	F	G	H	I	J	K	L
1	Zahl		Code
2	112222,55	112222,55	AABBBBEE	1	1	2	2	2	2	,	5	5
3	13456,22	13456,22	ACDEFBB	1	3	4	5	6	,	2	2	,
4	123,55	123,55	ABCEE	1	2	3	,	5	5	,	,	,
5	123,00	123,00	ABCJJ	1	2	3	,	0	0	,	,	,
6		0,00	Wert fehlt	0	,	0	0	,	,	,	,	,
7	Farbiger Bereich heißt Codes
8	,		Die Lösung ist zwar nicht sehr elegant, funktioniert aber.
9	1	A
10	2	B
11	3	C
12	4	D
13	5	E
14	6	F
15	7	G
16	8	H
17	9	I
18	0	J

Formeln der Tabelle

B2 : =TEXT(A2;"0,00")
C2 : =WENN(A2;SVERWEIS(D2;Codes;2;FALSCH)&SVERWEIS(E2;Codes;2;FALSCH)&SVERWEIS(F2;Codes;2;FALSCH)&SVERWEIS(G2;Codes;2;FALSCH)&SVERWEIS(H2;Codes;2;FALSCH)&SVERWEIS(I2;Codes;2;FALSCH)&SVERWEIS(J2;Codes;2;FALSCH)&SVERWEIS(K2;Codes;2;FALSCH)&SVERWEIS(L2;Codes;2;FALSCH);"Wert fehlt")
D2 : =WENN(TEIL($B2;SPALTE()-3;1)="";",";TEIL($B2;SPALTE()-3;1))
E2 : =WENN(TEIL($B2;SPALTE()-3;1)="";",";TEIL($B2;SPALTE()-3;1))
F2 : =WENN(TEIL($B2;SPALTE()-3;1)="";",";TEIL($B2;SPALTE()-3;1))
G2 : =WENN(TEIL($B2;SPALTE()-3;1)="";",";TEIL($B2;SPALTE()-3;1))
H2 : =WENN(TEIL($B2;SPALTE()-3;1)="";",";TEIL($B2;SPALTE()-3;1))
I2 : =WENN(TEIL($B2;SPALTE()-3;1)="";",";TEIL($B2;SPALTE()-3;1))
J2 : =WENN(TEIL($B2;SPALTE()-3;1)="";",";TEIL($B2;SPALTE()-3;1))
K2 : =WENN(TEIL($B2;SPALTE()-3;1)="";",";TEIL($B2;SPALTE()-3;1))
L2 : =WENN(TEIL($B2;SPALTE()-3;1)="";",";TEIL($B2;SPALTE()-3;1))
B3 : =TEXT(A3;"0,00")
C3 : =WENN(A3;SVERWEIS(D3;Codes;2;FALSCH)&SVERWEIS(E3;Codes;2;FALSCH)&SVERWEIS(F3;Codes;2;FALSCH)&SVERWEIS(G3;Codes;2;FALSCH)&SVERWEIS(H3;Codes;2;FALSCH)&SVERWEIS(I3;Codes;2;FALSCH)&SVERWEIS(J3;Codes;2;FALSCH)&SVERWEIS(K3;Codes;2;FALSCH)&SVERWEIS(L3;Codes;2;FALSCH);"Wert fehlt")
D3 : =WENN(TEIL($B3;SPALTE()-3;1)="";",";TEIL($B3;SPALTE()-3;1))
E3 : =WENN(TEIL($B3;SPALTE()-3;1)="";",";TEIL($B3;SPALTE()-3;1))
F3 : =WENN(TEIL($B3;SPALTE()-3;1)="";",";TEIL($B3;SPALTE()-3;1))
G3 : =WENN(TEIL($B3;SPALTE()-3;1)="";",";TEIL($B3;SPALTE()-3;1))
H3 : =WENN(TEIL($B3;SPALTE()-3;1)="";",";TEIL($B3;SPALTE()-3;1))
I3 : =WENN(TEIL($B3;SPALTE()-3;1)="";",";TEIL($B3;SPALTE()-3;1))
J3 : =WENN(TEIL($B3;SPALTE()-3;1)="";",";TEIL($B3;SPALTE()-3;1))
K3 : =WENN(TEIL($B3;SPALTE()-3;1)="";",";TEIL($B3;SPALTE()-3;1))
L3 : =WENN(TEIL($B3;SPALTE()-3;1)="";",";TEIL($B3;SPALTE()-3;1))
B4 : =TEXT(A4;"0,00")
C4 : =WENN(A4;SVERWEIS(D4;Codes;2;FALSCH)&SVERWEIS(E4;Codes;2;FALSCH)&SVERWEIS(F4;Codes;2;FALSCH)&SVERWEIS(G4;Codes;2;FALSCH)&SVERWEIS(H4;Codes;2;FALSCH)&SVERWEIS(I4;Codes;2;FALSCH)&SVERWEIS(J4;Codes;2;FALSCH)&SVERWEIS(K4;Codes;2;FALSCH)&SVERWEIS(L4;Codes;2;FALSCH);"Wert fehlt")
D4 : =WENN(TEIL($B4;SPALTE()-3;1)="";",";TEIL($B4;SPALTE()-3;1))
E4 : =WENN(TEIL($B4;SPALTE()-3;1)="";",";TEIL($B4;SPALTE()-3;1))
F4 : =WENN(TEIL($B4;SPALTE()-3;1)="";",";TEIL($B4;SPALTE()-3;1))
G4 : =WENN(TEIL($B4;SPALTE()-3;1)="";",";TEIL($B4;SPALTE()-3;1))
H4 : =WENN(TEIL($B4;SPALTE()-3;1)="";",";TEIL($B4;SPALTE()-3;1))
I4 : =WENN(TEIL($B4;SPALTE()-3;1)="";",";TEIL($B4;SPALTE()-3;1))
J4 : =WENN(TEIL($B4;SPALTE()-3;1)="";",";TEIL($B4;SPALTE()-3;1))
K4 : =WENN(TEIL($B4;SPALTE()-3;1)="";",";TEIL($B4;SPALTE()-3;1))
L4 : =WENN(TEIL($B4;SPALTE()-3;1)="";",";TEIL($B4;SPALTE()-3;1))
B5 : =TEXT(A5;"0,00")
C5 : =WENN(A5;SVERWEIS(D5;Codes;2;FALSCH)&SVERWEIS(E5;Codes;2;FALSCH)&SVERWEIS(F5;Codes;2;FALSCH)&SVERWEIS(G5;Codes;2;FALSCH)&SVERWEIS(H5;Codes;2;FALSCH)&SVERWEIS(I5;Codes;2;FALSCH)&SVERWEIS(J5;Codes;2;FALSCH)&SVERWEIS(K5;Codes;2;FALSCH)&SVERWEIS(L5;Codes;2;FALSCH);"Wert fehlt")
D5 : =WENN(TEIL($B5;SPALTE()-3;1)="";",";TEIL($B5;SPALTE()-3;1))
E5 : =WENN(TEIL($B5;SPALTE()-3;1)="";",";TEIL($B5;SPALTE()-3;1))
F5 : =WENN(TEIL($B5;SPALTE()-3;1)="";",";TEIL($B5;SPALTE()-3;1))
G5 : =WENN(TEIL($B5;SPALTE()-3;1)="";",";TEIL($B5;SPALTE()-3;1))
H5 : =WENN(TEIL($B5;SPALTE()-3;1)="";",";TEIL($B5;SPALTE()-3;1))
I5 : =WENN(TEIL($B5;SPALTE()-3;1)="";",";TEIL($B5;SPALTE()-3;1))
J5 : =WENN(TEIL($B5;SPALTE()-3;1)="";",";TEIL($B5;SPALTE()-3;1))
K5 : =WENN(TEIL($B5;SPALTE()-3;1)="";",";TEIL($B5;SPALTE()-3;1))
L5 : =WENN(TEIL($B5;SPALTE()-3;1)="";",";TEIL($B5;SPALTE()-3;1))
B6 : =TEXT(A6;"0,00")
C6 : =WENN(A6;SVERWEIS(D6;Codes;2;FALSCH)&SVERWEIS(E6;Codes;2;FALSCH)&SVERWEIS(F6;Codes;2;FALSCH)&SVERWEIS(G6;Codes;2;FALSCH)&SVERWEIS(H6;Codes;2;FALSCH)&SVERWEIS(I6;Codes;2;FALSCH)&SVERWEIS(J6;Codes;2;FALSCH)&SVERWEIS(K6;Codes;2;FALSCH)&SVERWEIS(L6;Codes;2;FALSCH);"Wert fehlt")
D6 : =WENN(TEIL($B6;SPALTE()-3;1)="";",";TEIL($B6;SPALTE()-3;1))
E6 : =WENN(TEIL($B6;SPALTE()-3;1)="";",";TEIL($B6;SPALTE()-3;1))
F6 : =WENN(TEIL($B6;SPALTE()-3;1)="";",";TEIL($B6;SPALTE()-3;1))
G6 : =WENN(TEIL($B6;SPALTE()-3;1)="";",";TEIL($B6;SPALTE()-3;1))
H6 : =WENN(TEIL($B6;SPALTE()-3;1)="";",";TEIL($B6;SPALTE()-3;1))
I6 : =WENN(TEIL($B6;SPALTE()-3;1)="";",";TEIL($B6;SPALTE()-3;1))
J6 : =WENN(TEIL($B6;SPALTE()-3;1)="";",";TEIL($B6;SPALTE()-3;1))
K6 : =WENN(TEIL($B6;SPALTE()-3;1)="";",";TEIL($B6;SPALTE()-3;1))
L6 : =WENN(TEIL($B6;SPALTE()-3;1)="";",";TEIL($B6;SPALTE()-3;1))

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen Excel Jeanie HTML 3.0 Download
Gruß Hübi

AW: Umwandeln von Zahlen in Buchstaben - CODE

16.11.2004 00:16:36

Zahlen

Hallo Alex!
Alternativ zu Hübis Lösung, eine Beispiel mit einer
Benutzerdefinierten Funktion!

Tabelle1

	A	B
1	22,50	BBEJ
2	125,75	ABEGE
3	15,99	AEII
4	110,50	AAJE

Formeln der Tabelle

B1 : =Zahl_ABC(A1)
B2 : =Zahl_ABC(A2)
B3 : =Zahl_ABC(A3)
B4 : =Zahl_ABC(A4)

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen Excel Jeanie HTML 3.0 Download
Und hier die Funktion.
(gehört in ein allgemeines Modul)
Function Zahl_ABC(ByRef Zelle As Range) As String Dim str As String Dim i As Integer str = Trim$(Replace(Zelle.Text, ",", "")) For i = 1 To Len(str) Zahl_ABC = Zahl_ABC & Choose(Mid(str, i, 1) + 1, "J", "A", _ "B", "C", "D", "E", "F", "G", "H", "I") Debug.Print Mid(str, i, 1) + 1 Next End Function
Gruß Sepp

@Sepp Zusatzfrage

16.11.2004 09:47:04

köbi

Hallo Sepp
Habe da noch eine Frage
Kann mann den Punkt (Schweizer Zahlenformat) auch darstellen, z.b. mit einem x
Deine Lösung finde ich super
grüessli
köbi

AW: @Sepp Zusatzfrage

Josef

Hallo Köbi!
Klar geht das!
Function Zahl_ABC(ByRef Zelle As Range, Optional Komma As Boolean) As String
Dim str As String
Dim i As Integer
Dim sKom As String
str = Trim$(Zelle.Text)
If Komma Then
sKom = "x"
End If
For i = 1 To Len(str)
If Mid(str, i, 1) = "," Or Mid(str, i, 1) = "." Then
Zahl_ABC = Zahl_ABC & sKom
Else
Zahl_ABC = Zahl_ABC & Choose(Mid(str, i, 1) + 1, "J", "A", _
"B", "C", "D", "E", "F", "G", "H", "I")
End If
Next
"=Zahl_ABC(A1;1)" = darstellung mit Dezimaltrennzeichen
"=Zahl_ABC(A1)" = darstellung ohne Dezimaltrennzeichen
Gruß Sepp

AW: @Sepp Zusatzfrage

16.11.2004 13:38:35

köbi

Danke Sepp
funzt nicht, leider
gebe "1.25" ein = ABE MÖCHTE AxBE
gebe "125" ein = ABE möchte ABE
was mache ich falsch?
grüessli
köbi

AW: @Sepp Zusatzfrage

16.11.2004 13:38:54

köbi

Danke Sepp
funzt nicht, leider
gebe "1.25" ein = ABE MÖCHTE AxBE
gebe "125" ein = ABE möchte ABE
was mache ich falsch?
grüessli
köbi

sorry: @Sepp Zusatzfrage

16.11.2004 13:47:18

köbi

bin zu blöd funzt ja prima
danke
köbi

AW: sorry: @Sepp Zusatzfrage

Hübi

Hi Köbi,
ich habe die Funktion von Sepp ein bisschen umgestrickt. Da sparst du dir die Angabe der Nachkommastellen.
Function Zahl_ABC(ByRef Zelle As Range) As String Dim str As String Dim i As Integer Dim deztrenn As Integer For i = 1 To Len(Zelle) If Mid(Zelle, i, 1) = "." Or Mid(Zelle, i, 1) = "," Then deztrenn = i Next i If Mid(Zelle, deztrenn, 1) = "." Then str = Trim$(Replace(Zelle.Text, ".", "")) Else str = Trim$(Replace(Zelle.Text, ",", "")) End If deztrenn = Len(Zelle) - deztrenn For i = 1 To Len(str) Zahl_ABC = Zahl_ABC & Choose(Mid(str, i, 1) + 1, "J", "A", _ "B", "C", "D", "E", "F", "G", "H", "I") If i = Len(str) - deztrenn Then Zahl_ABC = Zahl_ABC & "x" Debug.Print Mid(str, i, 1) + 1 Next End Function
Gruß Hübi

und zurück!

Josef

Hallo Köbi!
Mit dieser Funktion geht's in die andere Richtung!
Function ABC_Zahl(ByRef Zelle As Range) As Double Dim str As String Dim i As Integer For i = 1 To Len(Zelle) If LCase(Mid(Zelle, i, 1)) = "x" Then str = str & "," ElseIf Mid(Zelle, i, 1) = "J" Then str = str & "0" Else str = str & Asc(UCase(Mid(Zelle, i, 1))) - 64 End If Next ABC_Zahl = CDbl(str) End Function
Gruß Sepp

Beliebteste Forumthreads (12 Monate)

Umwandeln von Zahlen in Buchstaben - CODE

Forumthread: Umwandeln von Zahlen in Buchstaben - CODE

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Umwandeln von Zahlen in Buchstaben - CODE

Forumthread: Umwandeln von Zahlen in Buchstaben - CODE

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread