Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Umwandeln von Zahlen in Buchstaben - CODE

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
Anzeige

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

Betreff
Datum
Anwender
Anzeige
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
 ABCDEFGHIJKL
1Zahl Code         
2112222,55112222,55AABBBBEE112222,55
313456,2213456,22ACDEFBB13456,22,
4123,55123,55ABCEE123,55,,,
5123,00123,00ABCJJ123,00,,,
6 0,00Wert fehlt0,00,,,,,
7Farbiger Bereich heißt Codes         
8, Die Lösung ist zwar nicht sehr elegant, funktioniert aber.      
91A      
102B      
113C      
124D      
135E          
146F          
157G          
168H          
179I          
180J          
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
Anzeige
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
 AB
122,50BBEJ
2125,75ABEGE
315,99AEII
4110,50AAJE
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
Anzeige
@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
Anzeige
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
Anzeige
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
Anzeige
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
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige