Zahlen in Worten

[BoskoBiati]

Hi Ralf,

in meiner Version sieht das so aus:

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B
13	1001001001	eine Milliarde eine Million eintausend undeins

Zelle

Formel

B13

=WENN(A13>10^12-1;"Zahl zu groß!";WECHSELN(WENN(A13>10^9-1;WENN(RECHTS(KÜRZEN(A13/10^9;);3)*1>99;SVERWEIS(LINKS(RECHTS(KÜRZEN(A13/10^9;);3);1)*1;$A$1:$E$10;4;0)&"hundert";"")&WENN(RECHTS(KÜRZEN(A13/10^9;);2)*1>19;SVERWEIS(RECHTS(KÜRZEN(A13/10^9;);1)*1;$A$1:$D$10;4;0)&"und"&SVERWEIS(LINKS(RECHTS(KÜRZEN(A13/10^9;);2);1)*1;$A$1:$C$10;3;0);WENN(RECHTS(KÜRZEN(A13/10^9;);2)*1>9;SVERWEIS(RECHTS(KÜRZEN(A13/10^9;);1)*1;$A$1:$E$10;5;0);SVERWEIS(RECHTS(KÜRZEN(A13/10^9;);1)*1;$A$1:$D$10;4;0)))&WENN(KÜRZEN(A13/10^9)=1;"e";"")&WENN(RECHTS(KÜRZEN(A13/10^9;);3)*1=0;"";" Milliarde"&WENN(KÜRZEN(A13/10^9)>1;"n ";" "));"")&WENN(A13>10^6-1;WENN(RECHTS(KÜRZEN(A13/10^6;);3)*1>99;SVERWEIS(LINKS(RECHTS(KÜRZEN(A13/10^6;);3);1)*1;$A$1:$E$10;4;0)&"hundert";"")&WENN(RECHTS(KÜRZEN(A13/10^6;);2)*1>19;SVERWEIS(RECHTS(KÜRZEN(A13/10^6;);1)*1;$A$1:$D$10;4;0)&"und"&SVERWEIS(LINKS(RECHTS(KÜRZEN(A13/10^6;);2);1)*1;$A$1:$C$10;3;0);WENN(RECHTS(KÜRZEN(A13/10^6;);2)*1>9;SVERWEIS(RECHTS(KÜRZEN(A13/10^6;);1)*1;$A$1:$E$10;5;0);SVERWEIS(RECHTS(KÜRZEN(A13/10^6;);1)*1;$A$1:$D$10;4;0)))&WENN(KÜRZEN(RECHTS(A13;9)/10^6;)=1;"e";"")&WENN(RECHTS(KÜRZEN(A13/10^6;);3)*1=0;"";" Million"&WENN(KÜRZEN(RECHTS(A13;9)/10^6;)>1;"en ";" "));"")&WENN(A13>999;WENN(RECHTS(KÜRZEN(A13/1000;);3)*1>99;SVERWEIS(LINKS(RECHTS(KÜRZEN(A13/1000;);3);1)*1;$A$1:$E$10;4;0)&"hundert";"")&WENN(RECHTS(KÜRZEN(A13/1000;);2)*1>19;SVERWEIS(RECHTS(KÜRZEN(A13/1000;);1)*1;$A$1:$D$10;4;0)&"und"&SVERWEIS(LINKS(RECHTS(KÜRZEN(A13/1000;);2);1)*1;$A$1:$C$10;3;0);WENN(RECHTS(KÜRZEN(A13/1000;);2)*1>9;SVERWEIS(RECHTS(KÜRZEN(A13/1000;);1)*1;$A$1:$E$10;5;0);WENN(A13>1999;SVERWEIS(RECHTS(KÜRZEN(A13/1000;);1)*1;$A$1:$D$10;4;0);"")))&WENN(RECHTS(KÜRZEN(A13/10^3;);3)*1=0;"";"tausend ");"")&WENN((A13>1000)*(REST(A13;1000)<100)*(REST(A13;1000)<>0);"und";"")&WENN(RECHTS(A13;3)*1>99;SVERWEIS(LINKS(RECHTS(A13;3);1)*1;$A$1:$E$10;4;0)&"hundert";"")&WENN(RECHTS(A13;2)*1>19;SVERWEIS(RECHTS(A13;1)*1;$A$1:$D$10;4;0)&WENN(RECHTS(A13;1)*1<>0;"und";"")&SVERWEIS(LINKS(RECHTS(A13;2);1)*1;$A$1:$C$10;3;0);WENN(RECHTS(A13;2)*1>9;SVERWEIS(RECHTS(A13;1)*1;$A$1:$E$10;5;0);SVERWEIS(RECHTS(A13;1)*1;$A$1:$B$10;2;0)));"null";""))

Verwendete Systemkomponenten: [Windows (32-bit) NT 6.01] MS Excel 2010

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

[Rabe]

Hallo Edgar,

ich habe jetzt auch rumprobiert und folgendes rausbekommen:

Arbeitsblatt mit dem Namen 'Zahl-Wort'
	A	B
17	1001001001	eine Milliarde eine Million ein Tausend und eins

Zelle

Formel

B17

=WENN(A17>10^15-1;"Zahl zu groß!";WENN(A17>10^12-1;WECHSELN(WENN(RECHTS(KÜRZEN(A17/10^12;);3)*1>99;SVERWEIS(LINKS(RECHTS(KÜRZEN(A17/10^12;);3);1)*1;$A$1:$E$10;4;0)&"hundert";"")&WENN(RECHTS(KÜRZEN(A17/10^12;);2)*1>19;SVERWEIS(RECHTS(KÜRZEN(A17/10^12;);1)*1;$A$1:$D$10;4;0)&"und"&SVERWEIS(LINKS(RECHTS(KÜRZEN(A17/10^12;);2);1)*1;$A$1:$C$10;3;0);WENN(RECHTS(KÜRZEN(A17/10^12;);2)*1>9;SVERWEIS(RECHTS(KÜRZEN(A17/10^12;);1)*1;$A$1:$E$10;5;0);SVERWEIS(RECHTS(KÜRZEN(A17/10^12;);1)*1;$A$1:$D$10;4;0)))&WENN(KÜRZEN(A17/10^12)=1;"e";"")&WENN(RECHTS(KÜRZEN(A17/10^12;);3)*1=0;"";" Billion"&WENN(KÜRZEN(A17/10^9)>1;"en ";" "));"null";"");"")&WECHSELN(WENN(A17>10^9-1;WENN(RECHTS(KÜRZEN(A17/10^9;);3)*1>99;SVERWEIS(LINKS(RECHTS(KÜRZEN(A17/10^9;);3);1)*1;$A$1:$E$10;4;0)&"hundert";"")&WENN(RECHTS(KÜRZEN(A17/10^9;);2)*1>19;SVERWEIS(RECHTS(KÜRZEN(A17/10^9;);1)*1;$A$1:$D$10;4;0)&"und"&SVERWEIS(LINKS(RECHTS(KÜRZEN(A17/10^9;);2);1)*1;$A$1:$C$10;3;0);WENN(RECHTS(KÜRZEN(A17/10^9;);2)*1>9;SVERWEIS(RECHTS(KÜRZEN(A17/10^9;);1)*1;$A$1:$E$10;5;0);SVERWEIS(RECHTS(KÜRZEN(A17/10^9;);1)*1;$A$1:$D$10;4;0)))&WENN(KÜRZEN(A17/10^9)=1;"e";"")&WENN(RECHTS(KÜRZEN(A17/10^9;);3)*1=0;"";" Milliarde"&WENN(KÜRZEN(A17/10^9)>1;"n ";" "));"")&WENN(A17>10^6-1;WENN(RECHTS(KÜRZEN(A17/10^6;);3)*1>99;SVERWEIS(LINKS(RECHTS(KÜRZEN(A17/10^6;);3);1)*1;$A$1:$E$10;4;0)&"hundert";"")&WENN(RECHTS(KÜRZEN(A17/10^6;);2)*1>19;SVERWEIS(RECHTS(KÜRZEN(A17/10^6;);1)*1;$A$1:$D$10;4;0)&"und"&SVERWEIS(LINKS(RECHTS(KÜRZEN(A17/10^6;);2);1)*1;$A$1:$C$10;3;0);WENN(RECHTS(KÜRZEN(A17/10^6;);2)*1>9;SVERWEIS(RECHTS(KÜRZEN(A17/10^6;);1)*1;$A$1:$E$10;5;0);SVERWEIS(RECHTS(KÜRZEN(A17/10^6;);1)*1;$A$1:$D$10;4;0)))&WENN(KÜRZEN(RECHTS(A17;9)/10^6;)=1;"e";"")&WENN(RECHTS(KÜRZEN(A17/10^6;);3)*1=0;"";" Million"&WENN(KÜRZEN(RECHTS(A17;9)/10^6;)>1;"en ";" "));"")&WENN(A17>999;WENN(RECHTS(KÜRZEN(A17/1000;);3)*1>99;SVERWEIS(LINKS(RECHTS(KÜRZEN(A17/1000;);3);1)*1;$A$1:$E$10;4;0)&"hundert";"")&WENN(RECHTS(KÜRZEN(A17/1000;);2)*1>19;SVERWEIS(RECHTS(KÜRZEN(A17/1000;);1)*1;$A$1:$D$10;4;0)&"und"&SVERWEIS(LINKS(RECHTS(KÜRZEN(A17/1000;);2);1)*1;$A$1:$C$10;3;0);WENN(RECHTS(KÜRZEN(A17/1000;);2)*1>9;SVERWEIS(RECHTS(KÜRZEN(A17/1000;);1)*1;$A$1:$E$10;5;0);WENN(A17>1999;SVERWEIS(RECHTS(KÜRZEN(A17/1000;);1)*1;$A$1:$D$10;4;0);"")))&WENN(RECHTS(KÜRZEN(A17/10^3;);3)*1=0;"";" Tausend ");"")&WENN((A17>1000)*(REST(A17;1000)<100)*(REST(A17;1000)<>0);"und ";"")&WENN(RECHTS(A17;3)*1>99;SVERWEIS(LINKS(RECHTS(A17;3);1)*1;$A$1:$E$10;4;0)&"hundert";"")&WENN(RECHTS(A17;2)*1>19;SVERWEIS(RECHTS(A17;1)*1;$A$1:$D$10;4;0)&WENN(RECHTS(A17;1)*1<>0;"und ";"")&SVERWEIS(LINKS(RECHTS(A17;2);1)*1;$A$1:$C$10;3;0);WENN(RECHTS(A17;2)*1>9;SVERWEIS(RECHTS(A17;1)*1;$A$1:$E$10;5;0);SVERWEIS(RECHTS(A17;1)*1;$A$1:$B$10;2;0)));"null";""))

Verwendete Systemkomponenten: [Windows (32-bit) NT 6.01] MS Excel 2013

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

[Sulprobil]

Eine VBA Lösung ist InWorten:
http://www.sulprobil.com/Get_it_done/IT/...umber.html

Viele Grüße,
Bernd P

[coemm]

Hallo Ralf,

die Regeln für das Schreiben großer Zahlen ist eindeutig festgelegt.
Zahlen unter einer Millionen werden klein und zusammen geschrieben.
Zahlen über einer Millionen groß und getrennt.

Deine Zahl muss also lauten:
eine Milliarde eine Million eintausendundeins

[Rabe]

Hi Conny,

ok, danke.
Sieht zwar doof aus, aber wenn das so vorgeschrieben ist, dann werde ich das wieder ändern.

[coemm]

Hi Conny,

ok, danke.
Sieht zwar doof aus, aber wenn das so vorgeschrieben ist, dann werde ich das wieder ändern.

Hi Ralf,

schau u.a. mal hier bei Wikipedia, Absatz 6 nach: -> klick