Zahlwort ohne VBA und AddOns
08.12.2020 09:29:03
AkaTosh
ich benötige eine Möglichkeit, ohne Addons und VBA eine Zahl in ein Zahlwort zu übersetzen.
Nach Recherchen habe ich eine Möglichkeit von Leila Gharani gefunden, sowie eine Testdatei vorbereitet.
Allerdings ist diese für das amerikanische Zahlensystem erstellt worden. Kann mir jemand beim Übersetzen helfen?
Gegeben sein folgendes: In der Zelle H2 steht mein Betrag von 429,00
Meine Formel ergibt folgendes: Vierhundertzwanzigneun Euro - Soll aber Vierhunderneunundzwanzig Euro ausgeben.
Formeltext:
=WENN(ODER(LÄNGE(UNTERGRENZE(H2;1))>=13;UNTERGRENZE(H2;1)<=0);"Ungültig"; GROSS2(WECHSELN(VERKETTEN(WAHL(TEIL(TEXT(GANZZAHL(H2);WIEDERHOLEN(0;12));1;1)+1;"";"einhundert"; "zweihundert";"dreihundert";"vierhundert";"fünfhundert";"sechshundert";"siebenhundert"; "achthundert"; "neunhundert");WAHL(TEIL(TEXT(GANZZAHL(H2);WIEDERHOLEN(0;12));2;1)+1;""; WAHL(TEIL(TEXT(GANZZAHL(H2); WIEDERHOLEN(0;12));3;1)+1;"zehn";"elf";"zwölf";"dreizehn";"vierzehn"; "fünfzehn";"sechtzehn"; "siebzehn";"achtzehn";"neunzehn");"zwanzig";"dreißig";"vierzig";"fünfzig"; "sechtzig";"siebzig"; "achtzig";"neunzig");WENN(WERT(TEIL(TEXT(GANZZAHL(H2);WIEDERHOLEN(0;12));2;1)) >1; WAHL(TEIL(TEXT(GANZZAHL(H2);WIEDERHOLEN(0;12));3;1)+1;"";"-eins";"-zwei";"-drei";"-vier"; "-fünf"; "-sechs";"-sieben";"-acht";"-neun");WENN(WERT(TEIL(TEXT(GANZZAHL(H2);WIEDERHOLEN(0;12));2; 1))=0; WAHL(TEIL(TEXT(GANZZAHL(H2);WIEDERHOLEN(0;12));3;1)+1;"";"eins";"zwei";"drei";"vier";"fünf"; "sechs"; "sieben";"acht";"neun");""));WENN(H2>=10^9;" milliarde ";"");WAHL(TEIL(TEXT(GANZZAHL(H2) ; WIEDERHOLEN(0;12));4;1)+1;"";"einhundert";"zweihundert";"dreihundert";"vierhundert";"fünfhundert"; "sechshundert";"siebenhundert";"achthundert";"neunhundert");WAHL(TEIL(TEXT(GANZZAHL(H2); WIEDERHOLEN(0;12));5;1)+1;"";WAHL(TEIL(TEXT(GANZZAHL(H2);WIEDERHOLEN(0;12));6;1)+1;"zehn";"elf"; "zwölf";"dreizehn";"vierzehn";"fünfzehn";"sechtzehn";"siebzehn";"achtzehn";"neunzehn");"zwanzig"; "dreißig";"vierzig";"fünfzig";"sechtzig";"siebzig";"achtzig";"neunzig"); WENN(WERT(TEIL(TEXT(GANZZAHL(H2);WIEDERHOLEN(0;12));5;1))>1;WAHL(TEIL(TEXT(GANZZAHL(H2); WIEDERHOLEN(0;12));6;1)+1;"";"-eins";"-zwei";"-drei";"-vier";"-fünf";"-sechs";"-sieben";"-acht"; "-neun");WENN(WERT(TEIL(TEXT(GANZZAHL(H2);WIEDERHOLEN(0;12));5;1))=0;WAHL(TEIL(TEXT(GANZZAHL(H2); WIEDERHOLEN(0;12));6;1)+1;"";"eins";"zwei";"drei";"vier";"fünf";"sechs";"sieben";"acht";"neun");"") ) ; WENN(WERT(TEIL(TEXT(GANZZAHL(H2);WIEDERHOLEN(0;12));4;3))>0;" Millionen ";""); WAHL(TEIL(TEXT(GANZZAHL(H2);WIEDERHOLEN(0;12));7;1)+1;"";"einhundert";"zweihundert";"dreihundert"; "vierhundert";"fünfhundert";"sechshundert";"siebenhundert";"achthundert";"neunhundert"); WAHL(TEIL(TEXT(GANZZAHL(H2);WIEDERHOLEN(0;12));8;1)+1;"";WAHL(TEIL(TEXT(GANZZAHL(H2);WIEDERHOLEN(0; 12));9;1)+1;"zehn";"elf";"zwölf";"dreizehn";"vierzehn";"fünfzehn";"sechtzehn";"siebzehn"; "achtzehn"; "neunzehn");"zwanzig";"dreißig";"vierzig";"fünfzig";"sechtzig";"siebzig";"achtzig"; "neunzig"); WENN(WERT(TEIL(TEXT(GANZZAHL(H2);WIEDERHOLEN(0;12));8;1))>1; WAHL(TEIL(TEXT(GANZZAHL(H2); WIEDERHOLEN(0;12));9;1)+1;"";"-eins";"-zwei";"-drei";"-vier";"-fünf"; "-sechs";"-sieben";"-acht"; "-neun");WENN(WERT(TEIL(TEXT(GANZZAHL(H2);WIEDERHOLEN(0;12));8;1))=0; WAHL(TEIL(TEXT(GANZZAHL(H2); WIEDERHOLEN(0;12));9;1)+1;"";"one";"two";"three";"four";"five";"six"; "seven";"eight";"nine");"")); WENN(WERT(TEIL(TEXT(GANZZAHL(H2);WIEDERHOLEN(0;12));7;3));" tausend "; ""); WAHL(TEIL(TEXT(GANZZAHL(H2) ;WIEDERHOLEN(0;12));10;1)+1;"";"einhundert";"zweihundert"; "dreihundert"; "vierhundert";"fünfhundert"; "sechshundert";"siebenhundert";"achthundert"; "neunhundert"); WAHL(TEIL(TEXT(GANZZAHL(H2); WIEDERHOLEN(0;12));11;1)+1;""; WAHL(TEIL(TEXT(GANZZAHL(H2);WIEDERHOLEN(0; 12));12;1)+1;"zehn";"elf"; "zwölf";"dreizehn";"vierzehn"; "fünfzehn";"sechtzehn";"siebzehn"; "achtzehn";"neunzehn");"zwanzig"; "dreißig";"vierzig";"fünfzig"; "sechtzig";"siebzig";"achtzig"; "neunzig"); WENN(WERT(TEIL(TEXT(GANZZAHL(H2);WIEDERHOLEN(0;12));11;1) )>1;WAHL(TEIL(TEXT(GANZZAHL(H2); WIEDERHOLEN(0;12));12;1)+1;"";"eins";"zwei";"drei";"vier"; "fünf";"sechs";"sieben";"acht";"neun"); WENN(WERT(TEIL(TEXT(GANZZAHL(H2);WIEDERHOLEN(0;12));11;1)) =0;WAHL(TEIL(TEXT(GANZZAHL(H2); WIEDERHOLEN(0;12));12;1)+1;"";"eins";"zwei";"drei";"vier";"fünf"; "sechs";"sieben";"acht";"neun");"") ) );" ";" ")&WENN(UNTERGRENZE(H2;1)>1;" Euro";" Euro")))
Danke im Voraus