Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
516to520
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
516to520
516to520
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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
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

343 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige