Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
712to716
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
712to716
712to716
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Zahlen als Text
03.01.2006 09:18:02
Robbie
Hallo,
ich würde gerne eine Zahl als Text wiedergeben. Z.B.: in A1 steht 158€
in B1 soll stehen "eins" in C1 "fünf" und D1 "acht"
Danke für eure Hilfe!
Gruss
Robbie
PS: wenn die Zahl nur zwei stellig ist, soll in B1 "keine" stehen.

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

Betreff
Datum
Anwender
Anzeige
AW: Zahlen als Text
03.01.2006 09:25:49
ede
hallo robbie,
anbei mal eine function, die das in etwa macht:
Aufruf in Excel mit =ZahlenInWorte(a1)
Function ZahlenInWorte(rngZelle As Range) As String Dim bytZiffer As Byte Dim lngi As Long Dim strhelp As String strhelp = "In Worten " For lngi = 1 To Len(rngZelle.Text) If IsNumeric(Mid(rngZelle.Text, lngi, 1)) Then bytZiffer = CByte(Mid(rngZelle.Text, lngi, 1)) Select Case bytZiffer Case 0: strhelp = strhelp & "Null" Case 1: strhelp = strhelp & "Eins" Case 2: strhelp = strhelp & "Zwei" Case 3: strhelp = strhelp & "Drei" Case 4: strhelp = strhelp & "Vier" Case 5: strhelp = strhelp & "Fünf" Case 6: strhelp = strhelp & "Sechs" Case 7: strhelp = strhelp & "Sieben" Case 8: strhelp = strhelp & "Acht" Case 9: strhelp = strhelp & "Neun" Case Else End Select strhelp = strhelp & ", " Else If Mid(rngZelle.Text, lngi, 1) = "," Then strhelp = Left(strhelp, Len(strhelp) - 2) Exit For End If End If Next lngi ZahlenInWorte = strhelp End Function
gruss
rückmeldung wäre super
Anzeige
AW: Zahlen als Text
03.01.2006 09:33:08
AndreasG
und hier ne Formellösung:
https://www.herber.de/bbs/user/29652.xls
funktioniert aber nur für 1 bis 3 stellige Zahlen richtig. Ansonsten anpassen
Grüsse
Andreas
AW: Zahlen als Text
03.01.2006 09:56:05
Harald
Hi Robbie,
hier ein Lösungsvorschlag aus meinem Fundus.
Den Code in ein Standardmodul. Die Funktion =ISTWORT() steht dann unter benutzerdefinierten Funktionen zur Verfügung.
Function ISTWORT(dblZahl As Double) As String
Dim intRest As Integer, intCnt As Integer
Dim arr1 As Variant, arr2 As Variant, arr3 As Variant
Dim str As String, str1 As String, strBack As String, strRest As String
If dblZahl = 0 Then TextZahl = "null": Exit Function
intRest = Abs(dblZahl - Fix(dblZahl)) * 100
If intRest > 0 Then strRest = " " & Format(intRest, "00") & "/100"
arr1 = Array("", "tausend", "million", "milliarde", "billion")
arr2 = Array("s", "", "e", "e", "e")
arr3 = Array("", "", "en", "n", "en")
str = Right(Space(15) & Fix(dblZahl), 15)
For intCnt = 4 To 0 Step -1
str1 = Mid(str, 13 - (intCnt * 3), 3)
If Val(str1) 0 Then
If Val(Left(str1, 1)) 0 Then
strBack = strBack & TextZahl1(Left(str1, 1)) & "hundert"
End If
strBack = strBack & TextZahl3(Right(str1, 2), _
arr2(intCnt)) & arr1(intCnt)
If Val(str1) 1 Then strBack = strBack & arr3(intCnt)
End If
Next intCnt
ISTWORT = strBack & strRest
End Function
Private Function TextZahl1(intZahl As Integer) As String TextZahl1 = Array("", "ein", "zwei", "drei", "vier", "fünf", _ "sechs", "sieben", "acht", "neun")(intZahl) End Function
Private Function TextZahl2(intZahl As Integer) As String TextZahl2 = Array("", "", "zwanzig", "dreissig", "vierzig", "fünfzig", _ "sechszig", "siebzig", "achtzig", "neunzig")(intZahl) End Function

Private Function TextZahl3(intZahl As Integer, ByVal strAdd As String) As String
Dim str As String
If intZahl < 20 Then
If intZahl > 9 Then
str = Array("zehn", "elf", "zwölf", "dreizehn", "vierzehn", "fünfzehn", _
"sechszehn", "siebzehn", "achtzehn", "neunzehn")(intZahl - 10)
Else
str = TextZahl1(intZahl)
If intZahl = 1 Then str = str & strAdd
End If
Else
str = TextZahl1(Right(intZahl, 1))
If str <> "" Then str = str & "und"
str = str & TextZahl2(Left(intZahl, 1))
End If
TextZahl3 = str
End Function

Gruss Harald
Anzeige
AW: Zahlen als Text
03.01.2006 09:59:42
Josef
Hallo Robbie!
Vieleich so?
Formel aus B1 nach rechts und unten kopieren!
Tabelle1
 ABCDEF
11562EinsFünfSechsZwei 
2158EinsFünfAcht  
314,99EinsVierKommaNeunNeun
40,1NullKommaEins  
Formeln der Tabelle
B1 : =WENN(ISTFEHLER(SVERWEIS(TEIL($A1;SPALTE(A$1);1);{"0"."Null";"1"."Eins";"2"."Zwei";"3"."Drei";"4"."Vier";"5"."Fünf";"6"."Sechs";"7"."Sieben";"8"."Acht";"9"."Neun";","."Komma"};2;0));"";SVERWEIS(TEIL($A1;SPALTE(A$1);1);{"0"."Null";"1"."Eins";"2"."Zwei";"3"."Drei";"4"."Vier";"5"."Fünf";"6"."Sechs";"7"."Sieben";"8"."Acht";"9"."Neun";","."Komma"};2;0))
 
Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  
'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
AW: Zahlen als Text
03.01.2006 10:50:40
Robbi
Hallo, DANKE VIELMALS!!!!!!!!!
AW: Zahlen als Text
03.01.2006 10:54:39
Robbi
Hallo, DANKE VIELMALS!!!!!!!!!
AW: Zahlen als Text
03.01.2006 11:07:38
Robbie
Hallo ich bins nochmal,
habe jetzt alle Lösungen ausprobiert und alles funktioniert super (danke!)
die Lösung von Sepp ist genau die die ich benötige, ich hätte diesbezüglich
noch eine Frage, wenn ich z.B. von einer 3stelligen zur 2stelligen Zahl wechsle,
steht dann in B1 das Wort für den Zehner drin. Ist es möglich z.B. die Zelle 1 für
Zehntausender, C1 für Tausender, D1 für Hunderter, E1 für Zehner und F1 für Einer
zu "reservieren"?
z.B:
in A1: 1256€
in B1:keine
in C1:eins
in D1:zwei
in E1:fünf
in F1:sechs
Beispiel 2:
in A1: 56€
in B1: keine
in C1: keine
in D1: keine
in E1: fünf
in F1: sechs
Danke schonmal im Voraus!!!!
Gruss
Robbie
Anzeige
AW: Zahlen als Text
03.01.2006 11:52:30
robbie
Hallo nochmal,
habe alle Lösungsvorschläge ausprobiert und es funktioneren alle super (danke!!)
Die Lösung von Sepp ist die die ich benötige, diesbezüglich hätte ich noch eine Frage.
Wenn ich von 3stelligen Zahlen zu 2stelligen wechsle, dann steht in B1 das
Wort für die Anzahl der Zehner. Gibt es eine Möglichkeit z.B. die Zelle B1 für
Zehntausender, C1 für Tausender, D1 für Hunderter, E1 für Zehner und F1 für Einer
zu "reservieren"?
Wie z.B:
A1 1256
in B1: keine
in C1: eins
in D1: zwei
in E1: fünf
in F1: sechs
Beispiel 2:
A1 56
in B1: keine
in C1: keine
in D1: keine
in E1: fünf
in F1: sechs
Danke schonmal...
gruss
robbie
Anzeige
AW: Zahlen als Text
03.01.2006 13:29:07
HermannZ
Hallo Robbie;
ein Vorschlag;
Beispiel;
Versuch
 ABCDEFGHI
419         
420 ZehntausendTausendHundertZehnEins ZehntelHunderstel
4211234,61NullEinsZweiDreiVierKommaSechsEins
42212NullNullNullEinsZwei   
423123,5NullNullEinsZweiDreiKommaFünf 
42412345,67EinsZweiDreiVierFünfKommaSechsSieben
425         
426 Formel nach rechts       
427 und nach unten       
428 kopieren       
Formeln der Tabelle
B421 : =WENN(SPALTE(A1)<=LÄNGE(WIEDERHOLEN(0;WENN(ISTZAHL(FINDEN(",";$A421));5-(FINDEN(",";$A421)-1);5-LÄNGE($A421)))&$A421);WAHL(VERGLEICH(TEIL(WIEDERHOLEN("0";WENN(ISTZAHL(FINDEN(",";$A421));5-(FINDEN(",";$A421)-1);5-LÄNGE($A421)))&$A421;SPALTE(A1);1);{"0"."1"."2"."3"."4"."5"."6"."7"."8"."9".","};0);"Null";"Eins";"Zwei";"Drei";"Vier";"Fünf";"Sechs";"Sieben";"Acht";"Neun";"Komma");"")
 
Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  
gruß hermann
Anzeige
AW: Zahlen als Text
03.01.2006 13:47:55
robbie
Super vielen vielen Dank, funktioniert!
AW: Danke für die Rückantwort......oT.
03.01.2006 13:53:22
HermannZ
.

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige