ࡱ> !# ~Ibjbj ],,,,, 8 ,PPPPrrrrrr=1 4rrPgPRP,,"T,D @P.,, . A!"#$n% [0@0Standard OJQJmHBA@BAbsatz-Standardschriftart D0?$2${;'hkrw$ 2$SCqGP#B @0( <n B S  ?SCH(C:\microsoft office\Vorlagen\_zahlen.dotwr)E:\1und1_domains\rendar\word\_zahlenx.dotVVVV)Project.Modul11.BetragIn3erWorteUmwandeln&Project.Modul11.BetragInWorteUmwandelnProject.Modul1.getTrenner%Project.Modul1.WorteinBetragUmwandelnPROJECT.MODUL1.GETTRENNER%PROJECT.MODUL1.WORTEINBETRAGUMWANDELN&PROJECT.MODUL11.BETRAGINWORTEUMWANDELN)PROJECT.MODUL11.BETRAGIN3ERWORTEUMWANDELN@@@G:Times New Roman5Symbol3& :Arial"0"Ra"Ra!0dySCHwr Oh+'08    (0ssSCHCH _zahlen.dotwrh2hMicrosoft Word 8.0@dj+@dj+ ՜.+,D՜.+,, hp|      Titel 6> _PID_GUIDAN{2C5B4ED1-56D2-11D5-BDA0-444553540001} ")%&'(+:-./0123456789*;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}Root Entry Fʸ@P.$1TableWordDocumentSummaryInformation(DocumentSummaryInformation8Macros`.@P.VBA`.@P.ThisDocument e  !#$&'()*+,-/012345678:;<=>?@ABCDEFGHIJKLMNOPQRSTUWXYZ[\]_abcdefgji#VDEST Fx7=# PSLSS<<<<<N0{00020906-0000-0000-C000-000000000046}8($HP`@x $ $ $i 8`h$$$@@8$$$$i p8`|P$$0@MEx in Betrag ( B@eMICRl in Worten ( B@l( lph@l in Betrag ( in Worten (XAttribute VB_Name = "ThisDocument" Bas0{00020P906-0C$0046} |CreatablFalse ^PredeclaIdTru "@ExposeTemplateD0eriv$eCustomiz2rU~} 1CrU $`$`(`a0` Modul11 ,FModul1 v__SRP_4"__SRP_5%( 2 &@ .h $ 0  J H "P x J  < B .` D P ( F0 .x < < J( "x  -,. ':^ ,0H " N (N0N 8N,HNxNN N:N 8OPO P J` H &   @ `   * " &  0  P Bp J J X B xPZhM B NPXNN Jx7;P<<<<< <<< X H `@$` x`"tt+. `L@>i0 +4`DQ i6 0#HI8 XI:  I<  F@I>  0#HI@H ,@*5IB$  h <+ ID( Hne WorIF,  n Pro`Hv Glat`JppRest`LXlmen,@NBBeinf@PBer k RTnkun  Td T @D @4 @$ p @  @  @  @ 0 @ x(t p @` (P L ( xXpXH0`Hp`xQp*X @ 0 @ 0 `p( @ @p @` @P L J 05@H/ p5(D @B <@ => A(8 @6 (G84 PM`2 xS0 X. fX @ ( @  x`tHX@p @l @\  x ` P(8l T D @4 @$   0 hxd @T @D @4 @$   @ h ME J @ H P X @` 0    J J8 BLD J R 2x "    2 $(  P  ` *p    8  6 P "X                    (@H VX  " . *  6P 2   0 "H Jp B   L@  R ( 08  X@  D  <8 x J     08HX B` ( T *@p   >*@*@*X*& F*J*8J**  8Ph(H`(@ H` J     J( x  *6   2$8P `:&x &    J'Xp  &3    &3     .( Xh  p,3 4   8 RH!  ( : $( P  h x  ( B & !  <! X!h!!!  ,!&!  (! " (" @" X" p" " " " " "2#.8#.h# ,#0,# (# $($ @$ X$ x$*:$ $,.$00%0% 8%P% h% %00% % %% & 0&00P& & >&& &</'00@' p'x' '</'00'  (((0(  68( $p((  ( (l\( 8)P) p)x) )f_) * * @*H* h*p* * * * H*@N+ X+ h+p+x++  +d=+ , &M ,$@H,p,  :x, J,  - -  (0- X-  .x--  $-(-  ".0.8.*1P..  .'. ...  &/(/(0/6;X/  &/$2/  /  )/ 0 (0@0H0P0X0  4`000 0 00  $0 11 0 1 P1X1x1 :`1 11 $1 2 2 J(2 x2 <2 2 J2 3 0 3 $P3 x3 :3 .3 4 J4 B `4 "4444 44 4444 4 55 (50585@5H5 P5 <h5$5 T5T(6T6 >6(7 @7$P7x7,7 7 7 77 77,8 @8 P8 X8$x8 882888 (9 89 @9P9 X9h9,9 9 9 999`OhO0pOO : : :(: 0:@:P:X:*`: :::::: J: 0; 8; X; J`; ; ; 4; ,< 4@< x< J< B < "<= = (=0=8=@=H= P= X=p=x= = ====="=>4 > X>x>> >&>>>>>? ?? . ?4P? ? :?,?@@@ J @ p@ Fx@ @ J@ A ( A HA hA 4A A A A &A $B .0B *`B B JB B$$ B "C8C@C HCPCXC`ChC pCCC CCCC CD D8D@DHDPDXDpDD(D0DDEE E0EV8E,EHEFF(F J0F F FF F JF (G 0G (PG $xG G G G &G G JG BHH "`HH H HH "CH'H I JI XI >`I I JI B I J J0J0J J8J J JJ >J < K .`K K JK BKL LL L L(L  0L8LPL `L ,xLL LLLL L LLL M$8M8M!XMpMxMMM Ox++ FR WORD 97 angepate Excel 97 Anwendung! + entwickelt von Winfried RadnerG(+ e-mail: Wolf.W.Radzinski@onlinehome.de+ Benutzung frei - ohne Gewhr:\)+ Excelversion siehe http://www.rendar.de+C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++`++ BetragInWorteUmwandeln():E~1+C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++sE+6+ NUR DIESE EINE Funktion "BetragInWorteUmwandeln" ist:\<+ im weitesten Sinne angelehnt an eine Word 97/2k Lsung vones_und(+ Ren Probst / eku / CH-8152 Glattbrugg=+ der Rest wurde NICHT bernommen, da ich meinen Code einfachdI+ besser kenne und die Beschrnkungen (s.u.) nicht in Kauf nehmen wollte.+@+ Unterschiede: max. Wertebereich jetzt = 1000 Dekilliarden -1 !(+ Silbentrennung eingebaut6+ Trennung in Hundertergruppen eingebautws6+ (d.h. je 3 Ziffern in einer Textzeile)C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++Z@ZX $!n &Markieren Sie einen Betrag. A@(d(h  $!f'" "$* $,F " " $'"g "$. $(flHINWEIS:C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++A+ SO KANN MAN sich seine eigene Umwandlungsfunktion zurechtbiegen+ z.B. mit folgenden Standards:+ mit Nachkommaanteil+ ohne "undeins" nderung+ alles kleingeschrieben+ Trennzeichen "-"#+ Vorzeichen "+" und "-" ignorieren+ "ss" und nicht "" gewhlt + Zeilenbegrenzung mittels "***"+)+ aufgerufen wird jetzt ganz einfach z.B.+ =Zahl_in_Wort(i)<+ die restlichen Parameter sind hierbei individuell angepatC+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++D+ FR WORD WERDEN NUR DIE PARAMETER DER FOLGENDEN FUNKTION AN EIGENE+ WNSCHE ANGEPASST!p+ keine Trennung/fC+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++:+ inWorten(): wandelt eine Zahl (oder einen Ziffernstring)*+ in einen (Zahlwort)String um+++C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++  !&+-CZahlen mit mehr als 16 Ziffern (inkl Nachkommaanteil) mssen in derLEingabezelle als Text markiert werden (nur in EXCEL; einfhrendes Hochkomma)+da sie sonst fehlerhaft dargestellt werden!lokale VariablendeklarationZpZZ, von fixen 24 u. 7 auf 66 und 21 gendert max 999 Dekilliarden...uswZBZ$ Arrays fr ZahlstringdefinitionenZ Z  Z PX2 Array fr die einzelnen Ziffern der EingabezahlZ N/ statt vbnewline wird nur nl=chr$(10) benutztZ Schleifenvariable;ZhlerZZZZ(Z@ZXZpZZZZZZZZ0ZHZ`ZxXInitialisierung'H $ ,'ZOIsNull eingefgt, damit im Aufruf auch ";;;" ohne Fehler angenommen wird!Nachkommaformat =0 ohne Nachkommaanteil' =1 mit " und " und Nachkommaanteil# =-1 mit " " und Nachkommaanteil0 =2 mit " und " und Nachkommaanteil wenn > 0, =-2 mit " " und Nachkommaanteil wenn > 0 8$~F'8gundtrue ndert =true =1 --> "undeins" =false =0 --> "eins" :$~F':gerster_Buchstabe_gross=trueCschreibt den Ersten Buchstaben gross auch bei Trennung wird NUR der<Erste Buchstabe gro geschrieben im Unterschied zu GROSS2()! <$~F'<gSilbentrennung_ein=trueFdann wird der Ausgabestring wenn mglich bei max_Stringlaenge getrennt >$~F'>gmax_StringlaengeKfehlt die Variable oder ist NULL gesetzt, dann wird in 3er-Gruppen getrennt @$~'H'>h@ QTrennzeicheninitialisierung, wenn nicht schon ber optionalen Parameter definiert B$~F-'BgVorzeichenformat= wie soll ein evtl vorhandenes Vorzeichen behandelt werden? 0= ignorieren5 1= beachten, wenn erstes Zeichen im String 2= immer suchenC -1 bzw -2= wie oben aber "Plus " und "Minus " vor dem Textstring D$~F'Dg D + 'J - 'LaH Plus 'JMinus 'Lh <ss_ein steuert den Aufruf der Funktion aendere_sz und damit,!ob "" oder "ss" ausgegeben wird? F$~F'FgMto do list: wie wird ziffer() schon bei der Definition mit Startwert gefllt?#Kann hier eigentlich auch wegfallen \ N \+X \ Number defsnull+Rein+REzwei+REdrei+Rvier+REfnf+REsechs+Rsieben+REacht+REneun +Rsech +TSonderfall fr 16sieb +T Sonderfall 17zehn+TEzwanzig+TEdreiig+Tvierzig+TEfnfzig+TEsechzig+Tsiebzig+TEachtzig+TEneunzig +Telf +TEzwlf +Thundert+Vtausend+Vmillion+V milliarde+Vbillion+V billiarde+Vtrillion+V trilliarde+V quadrillion+V quadrilliarde +V quintillion +V quintilliarde +V sextillion +V sextilliarde +V septillion+V septilliarde+V oktillion+V oktilliarde+V nonillion+V nonilliarde+V dekillion+V dekilliarde+VAQuelle: http://www.rhrk.uni-kl.de/~jonietz/jufo/1999a/node16.htmlC+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Berechnung starten+C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++'^ 6,~'h 6U '0 h F 6U h $'0g'j Vorzeichen? D+wenn Vorzeichen erster Buchstaben im StringHHQE 0$-HQE L'b 0 0 $*'0,nicht unbedingt notwendig+HQE J'b 0 0 $*'0PE'bkxDalternativ, wenn vor "+" oder "-" noch andere Zeichen vorhanden sindHHQE 0-~  L'b 0 0 0-~ $*'0 0 + ~ b J'b 0 0 0+~ $*'0aE'bhX'oder "+" und "-" wird einfach ignoriertPE'bk Sonderfall 0 00 8F$R'^g-spalte die Zahl in ihre (max bereich) Ziffern 0 j 'j2ziffer(j) = i Mod 10 (gendert, da sonst berlauf)Lziffer(j) = i - Fix(i / 10) * 10 (gendert, da sonst berlauf ab 17 Stellen) 0$*'`!Tausendertrennung etc. ignorieren4nur die Ziffern "0" bis "9" werden im Array abgelegt `09IQE `U j+XPE j+X j 'jk"i = i \ 10 (gendert, da berlauf);i = Fix(i / 10) (gendert, da sonst berlauf ab 17 Stellen) 0 0 $'0h5Zahl ist fr die Umwandlung in einen String zu gross! j N Eingabezahl zu gro!'4sh%Bestimmung der Anzahl der 3er Gruppen j 'n 0,1,2,..."arbeite die Zahl in 3er Gruppen ab usw l=7 trilliarde l=6 trillion l=5 billiarde l=4 billion l=3 milliarde l=2 million l=1 tausend l=0 =sechzehnPE ^ v$Rund t$T'^kHQE tHQE ^ v$R'^HQE ^ $T t$T'^> =siebzehnPE ^ v$Rund t$T'^kXPEkH0wenn temp>0 mu eventuell noch was an den stringangehngt werden, sonst nicht! r t v 'p p lHHH H H HHHHHQE/#...trilliarde, billiarde, milliarde v t ^e l$V'^a ^ l$Vn'^hHHHH H HHHHHQE/...trillion, billion, million v t ^e l$V'^a8 ^ l$Ven'^hHQEtausend ^ l$V'^HQE v tAwer die nderung nicht will setzt oben die Variable undtrue=False ^ein :F ^ ^ $undein'^g ^s'^hPEkhTrennen in 3er Gruppen? H l  p F ^ B Z'^gb(einfach noch ein Trennzeichen anfgen :) l ^ B Z $* B Z ^ ^ B Z $'^h4soll auch noch ein Nachkommaanteil angezeigt werden?C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 8 HF ^ Z'^g!wie lang ist der Nachkommaanteil? 6U  6U ,~ 'x(gibt es berhaupt einen Nachkommaanteil? x 6U F'xghol ihn aus der Ursprungszahl 6U x$*'dschneide fhrende Nullen ab\H d0~'z zF d d $*'dg z d  xF d0'dg x 80'd'xh mit oder ohne "und" dazwischen?'f x F 'fg%Standard 8 x  ^F und 'fg gibt es einen Vorkommaanteil >0? 6$*0,F'fg ^ f'^ d0 8mach 100stel draus d/100'da8'd'xh -hatte der Nachkommanateil mehr als 2 Ziffern?'| x |  d0'd | '|Ergebnis inkl. Nachkommaanteil ^ d'^h`*wie lang ist der Ergebnisstring berhaupt? > ^U @U B$'^h <F ^$$ ^ ^ $*'^g oder ss? FF ^$'^gErgebnis an Funktion bergeben b ^'4fX C++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++6+ trenneString(): Silbentrennung eines Zahlwortstrings+C++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*+ Funktion absichtlich OHNE Rekursion etc.+ noch nicht ganz fehlerfrei?+ und auch nicht optimal!3+ WENN maxStringlaenge zu klein, dann erscheint nur(+ eine Fehlermeldung in der Ausgabezelle+C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -lokale VariablendeklarationZ8ZpZZZZZ initialisierung $,'Z''''  F 'g6Initialisierung der Suchstrings fr die Silbentrennungig+Elf+ein+Ewei+Erei+Eier+nf+Echs+Eben+Echt +eun +Eehn +Eion +Eund +dert+Esend+Eilli+arde+Eonen+       0    $ 0$   ''h 0 0    $ 0$   ' 0HQE  $tHhHuHQE'PE'k HQE  $enF'g HQE   $hF'gPE'k@ Fgh( 0 0    $ 0$   ' 0HQE   $n''PE'kh FghP 0  '(     $ B Z'     $*'''  'fC+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ in_einzel_worten()+C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ erweitert am 10.1.2001.+ z.B. A1= "4-7stck8OBENtausend400" dann wird%+ in_einzel_worten(A1) ausgegeben als-+ vier-siebenstckachtOBENtausendvierhundert"+C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++! !lokale VariablendeklarationZZZZZZ(( 8$F'8g' 8F,'g' 6'l' 0 l 6 0$' 09IQE  '' HQE!Vorkommaanteil in ausgabe ablegen  U <$4' 'PEirgendein Zeichen   U <$4 ''a  'hkx 0 'letzte Ziffer Null ohne Nachkommaanteil0HQE  U <$4 '?HQE3letzte Ziffer <> Null oder auch mit NachkommaanteilPE  U 8 <$4 'kp? 'f`?C++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++@+ in_ziffern(): wandelt die Zahl ziffernweise in einen String um+C++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++"+ sei A1= 3.681.147,80 dann ergibt+ =in_ziffern(A1;"~";2;1) + die Ausgabe.+ Drei~Sechs~Acht~Eins~Eins~Vier~Sieben 80/100+++ Nachkommaformat+ =0 ohne Nachkommaanteil+ =+-1 mit Nachkommaanteil'+ =+-2 mit Nachkommaanteil wenn > 0$+ es wird hier kein und eingefgt+C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++   @lokale VariablendeklarationZ Z0 ZH Z` Zx Z Initialisierung f$F 'fg 8$F'8g'' 6,~'  6  $' 6 6   $*'a@; 6''h(; 0   0$' 09IQE   f'.HQEignoriert Tausendertrennung+H-HQE 'PE'k`: 0 +H-HQE  ')+Vorkommaanteil fehlt bis auf das VorzeichenNQE   $ 'PE '4nur Nachkommaanteil oder falsches Zeichen dazwischenkp9 U 8 <$'fP9C++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++@+ Zeilen_einrahmen(): Einrahmung jeder Zeile des bergabestrings+C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ erweitert am 28.5.2001"+ fge bei Trennung in jeder Zeile+ noch spezielle Anfangs- und+ Endzeichen hinzu++ + Standard: Rahmenstring = "***"+C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++!*** lokale VariablendeklarationZ0 6Initialisierung $,'Z Z  Z  $'   '2fx6C++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++8+ aendere_sz(): ndert in Eingabestring alle "" in "ss"+C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++H x5 'ss $'fH5C++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++D+ ersatz_text(): ndert in Eingabestring alle "altText" in "neuText"8+ mu ich halt doch meine eigene Funktion verwenden, die5+ Funktion soll Worksheetfunction.Substitute ersetzen(+ (zu finden unter http://www.rendar.de)+C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++  x3ZH 'Z` Zx Z '       $'     $*'a2 's2h2h2 ' '\2  ~'     $ '     '  $*'h2    'f11$/ / //////' 0-$4 $2'.HN H Z8 Z $!n &Markieren Sie einen Betrag. A@('dfM$/ / //////' 0-$4 $2'"hHM $!f'" "$* $,F " " $'"g "$" $(flLLaXO'  $neunF  'ghOOҶAttribute VB_Name = "Modul11" Option Explicit '+ FR WORD 97 angepaAExcel$Anwendung!Zentwic@kelt vWinfried @Radner"-mail: Wo lf.W.zinski@onlinehome.de*Benutz\ frei - ohne G0ewhKverssiehe http:// www.rar;LP+>" BetragInWorteUmwandeln():5NUR DIESE EINE Funk"B0" isހim weitesten SinOp lehnts e[ard@r/2kp Ls[@n8Ren Probst / eku@CH-8152 Glattbrugg der R wurde NICHT bernommen, da ich mn CoC fachbHesske(u@nd dieXschrnk%0(s.u.) nt in Kauf  wo`llte.U$nt@che: max. We @j@$e!jetzt1000 Dekillia@.n -1 SilbnH.gebauY 6T (H2rg0rupp1(d.h. je 3 ZiffO9@ @FTextzei8le)7?{Sub`,XDGTG@l As S`n =x  If@ SelecR.Type <> wdfNormal Then a%MsgBox``arkie%SeQn.", ,F CEnd If x7#Right(x, 1)ChrP(13)B !LefLen(x) 1) Zahl_in_{  %&3er-?'E)?'?'?'?'X@8?'?'('3Q''HINWEI:S+<B}SO KANN MAhN sa{s!fIgeCl`vsfzurechtb ie@bz.B. mit fole`duSt@@s+bNkaa٠il"""|h" r balles kldgeAie`Bk_b%B@|cd "- VorF+" A igno gB"sscc"" g lÓZnbegttels p"***rRTgerufwi0aa3Rganz9Z qP<=:2irIb[rp`a Par`WX@]h>b|individuell6a &WERDEN s PARAMETEt0FOLGENFUNK TION $EI@EbWNSCHEPGEPASSTpa Pub AxN ZByVNiQ)RO 2_ rahl(i3n(i, _3O_ 2O_Falseߏ_ O0o 4oo?True)""3ep"%d_&h3RUo&o&u)&%&O &_OooNull_&? &O&O&2/URQ=!/): SthberT (otn}5shиs(%1wp)S um]Y _?@/gbEingabez@_+U Optional Nachkommaformat = 0, 8_  undtruebT $herster_Buchstabe_grossC False$DSilbentrennung_ein,@max_StringlaengaNull$?T<@zeiche<"-"$Vor.ss s) As ` 'ZahlEmit mehr 16 Ziffern (inkanteil) mss@ @Oder@ECdzelleTexarkiert werd (nur EXCEL; _fh@Ddes Ho)da sie sonst fe@(rhaft darge)@ll!1lokaVariab3deklara Dim |e_in_3`grupp#@BB@ooleanC s`gplus HsPgmin'v@on fix24 u. 7 a@uf 66 @ 21 gen@Gt3 999 DekilliaAD...usw C:berA66d_@@21Array@s fr AnsBdefiniA;beD2e(9 z1z(13d(BwA7db@jvnw:B > H'zF(b IFgBD` vtt vbnewline wird aBnl=chr$(10)b sutz&an&l1ScAifenv=;ZC$8vmy_% i ztempsgnmmf "|er'vKAWejw.jknthzPNnk_langleft_zero/- On Error ResumXe NtISalizr r$= b >= 6CDB#sagefgt,{PAufr oa @";;;P" oh`LF en0@XNÆ #l=0 UBv1"|3-7@#2 nn > 0D-` If I'(F) TAЬ`  )=B =1 --> " `As"4 fAx d/}}2sAeib`En n  bei 28`&FNUR JoPwa`ZiepG $UKried zu GROSS2()# -pOudabQVAusgPuKw0` mglЃPRi geb5S t : ` f4S`v oa i@zNULLe[9e 3~w-Gw l(_ coBq{=ueo g 5 End If0 !+2sGI,s3nt k }wo'Py@meP%!wpF S ( /.휐 wsollQN evtl voPn7YhaPV?0=2ignoras1bepten*s Z/D 0աq2(mmpmsPVENbzwl -@ o!4*r "PqSO"Mғ" `m #-m0J@>bMĜ= " + PJ`1-4E Dd bE%`Եp}u  n h1Funk q e_sz)bcda[,ob "ߠj"ss"0sgegHq@%&st o do Pvt:wOD)$-QD6 dStarte`t@80@eun " 'TSo 7ra 1/0# pb+17zehnz anzig  z(7 5g  Q 5_  Q1l  dh {-" d(1) = "tausend2milPlionD3DardeL4LbJ5"J6&trL7$'8quad *9 -10(intY1qu/sex .Dž msepo qok r snonZr E2qdek2p 'Quelle: http://www.rhrk.uni-kl.de/~j9etz/jufo/1999a/node16.html '+?A Berechnung starten?+my_sKommastA@InStr(1, Eingabezahl, ",")i@CHIf I> 0 Then Left( , - 1@j0A'Vorzeic? Select Case format 'wenn er3@r Buch@Pb"m @-@4 8x-1: B,i,$ "-"@: sgnm@*sgminusRight(Len(i) a 'nt unbedt notdigC +I pl? , ( Els\D">aEnd b'alternativ, +vor` "+" @^-"`ch andT Z4 hAn sind" `2, -2,D(L@#)) E)Ev,3+m I  + "3w. %) {/If'+,u2# wird einfa-ignorier#^B+ 9 So5fall `k!A"0" A N@ kiZcwie(0@ spaC die Z i|hre (max bA`[@) ZiffH @ While@>V M|j@/1#='zB(ji Mod 10 (geAt, da sonst a lauf+ - Fix(i /) * abX 17!nD ztempv`7m$TC/r`Aetc. U!Z=,urC bi s "9"4rdAHArray`gMg$8SNPToq: iCInt( !,#I.$'Q#i \XMWp ((!Df#UmwHl)p33_ zu gross! : 0jG*hGinlWov0 "m!$SExit Funct3B<P Bestimm/AQ06s 3er Grupp"kP(j#a\ 3 l0,1,2,... arbei|te6uswl=7 @}`564o!l=5 RI4#73 92#71 T0 <P F@clPk P+06p -s?thp)l:3AФ'HO6erposi@=/m'0z'Zehn'euge 6anteil# Q& e(th) & dR?&  te"?0:*Atz$E UAp z(tzD|@3, 4, 5, 8, 9 gO = Re[r1:__ "P'"s \'prfe h "113A r`?WO a$& |z(!//& /"22 %u0>9 2oc 6" und "17" sechzehnnich tsL:-( Case 6: Select8tz4:N0: my_string =& e(te)l16z(10) & z(tz) '=IElsek&""*$Et j7y~3 ~ieb YTQ~F@'wenn temp>0 mu eventuell noch was an den B'angehngt wer, sonst Ÿ!@th + tzeIf > 0 ThenGlFBF3, 5, 7, 9, 111@11B2@'...llia%, bim\ "@*1 A*= %' U"ed(l]L n" lIfB2, 4, 6, 8 0`1 j1@1`2`xG!on! o#. e yL e e =tause "ein"R`e*HLeft(, Len) - baa S0"sP NJ  DVB'Tr!in 3er Gruppen?A._in_٠_glb"sπh ze @& nl 'f.a` jan(fg`:wNext ERig6h.,))`.nl)) !G;=`5|7 K -+ format P,%^ Q_O2QB'w07lh ig7 ,S%nk_Ban(C Str(Eabezah- InQd, ","\3gibt es berhaupinP# 0W0bhol iMwr UrspE~s "V&) Y schneide fh7Null` abr,Dob l`E_zxeroff01CJ? -QJ1c Loop Unt*WP$01 Or/x< ~2 BZOW"Av0 M:0GAbs(&C,)Q,2b P "`1 9 "' mi+aq+o Y" dazwi5QR?R= " EsLC " 'Stand`b \ >=~ 3U U7Ip""c4 0T#VorF>08G )x7, 2AR"0,oiR&%"G b"t 'ma100stel drP7L& "/ 'V*!3> h0atte>naAZmehr 2 ZifferslvP'WhiP- >D1 >hR/ @+ +W'Ergebnis inxkl.V2& pj.\TGfV$Silt{Ap_2|RYe]^), CDInP|ax_lae pb.0H7 `er0!r_Btstcoss1UU(1&n 0 O $ o1Ass#ssfZqp `se_sz(my_string) 'Ergebnis an Funktion beXen inWorten = sgnm &  Endhch+?+ trenneS(): S ilbenung eines `Zahlwsm6o(Not A\(8- 4 - C +CwF@Oi !0 0To 1z@DMid,F- 2 , B&2i)I ? Q$IZTrNuZcGodas_warăIf#g ic%2"3 _qb- 3I?S  #Select Case%{21,< 1`@"t", "hAu&EE:f%"4F?A uu10 ,#<> "P0cH r33:124! qh"o%qb~M(% T++ +14+8+X8*>, I+ *QA*!47:+Vanc? bLB w 0r Qb$Q+Rl!%% %A` %PdVP< 2Wj %UtergR=& Left`q-pHJ& nl# klRigho) 0<',( 8lJLen(E=ckc) gFWi1 To l k= Mid , i, 1 Select Case "0"#"9": 1& 7r +i: 'Vorail in хnabln>( & Wort@ACo(A$), 0, , erster_BuchstG_gros^s91=;Else)irgende'Zeics%Bm"H?// W[D1ZA2S$@l End IfAÈ i Ɍ!'letzte Ziffer Null oh~n} :==Fpx$# ":Wq5daD mituA8A @PLzR+in_Nzel_w\x  Functiod'+=+a`j_z6n(): wa_lt di9a`dweicS" um % sei A1= 3.681.147,80 dann|gib 0'+ = &A1;"~";2;`aAÿ Dr ei~Se ~APcht~@sVier~SiebA@80/10'":b i=0\!+-1 3L2 we  es wird$ h@ k/ utgefg!A+=KPublxic MiC·, _m!qOpVal Tr o@ "/b^aa Fa^) 'lokale Varii00klaraq )xAla݈UCSvk9nthInitialisu:dJߊߊߊъ@% ߓ6!g=pP(1, !,"?pwp cՍ"@= Left+-t = Righl - +oR8 B Tns vkQsvk'l_r|_.' ignort T0!rt3X+3"--u1|  Xz-fehQ`cbis`fZs 0zXbIs /) ,!n(%)1)pnkg ynu@ o~f>`s p zwis9*.Ux(ҦE ,]3ϧƧ!{+O^1Q lerahm`|`/# je1MdpdPber1sRIsezppt am 28.5.2001 je b}B0  Bnoch speziel@ Anfangs-!o$%pnzu#A5 Starpd: Rc!K***Ճ} rnG46]o=LFl *"kkknn 'f= Chr(10Q`vatz_text(nl,& &:b_`)H,j&esȲtring & Rahmens End Function <'+? '+ aendere_sz():  t in Eabe al@le """ss">A Private J ByValFAsd S) O[rror Resume Nex&t q = %  ersatz_Jt(v, u,} )ȁ1J!^ealtT,fneuvmu ich h do@meine ei,gek verwn, d iesoll Worksheetf.Sub`stitu@m+etze'+ ( zu fi@n unter http://www.rar.dePC+>^ODG, _ ;P t 7աDim pos IG ger = f11_i+l B \"`tIf > 1 A`E!<> "" ThA6 < Len(t) $+ Left(t,B - 1(t Righbd-+ElsJ+ sExit( !Ifm= ls  DoB:`)'= InStr(1, ` > 0I K&@FaDI` &j% ltC(Loop Until'<7Or|:* w 2 &H .p $ 0  J P "X  J  @ H  Fh 0 L 60 h Jp "  -,.  '(:^8 ,x "  H < >( @h   J H8  J J @ B ` 6h&8,   J J ` h p x 6 .    J JP B" "    xwU79g`$6 :<(<< <<<<< <,<0<4<8<<<;%$*\Rffff*453b180044*\R0*#b@.$$ `@_das` xUG`"tx `)+(`4@:i0 +++++X`lDhReinBi6 +I  ++++++I H  XrWor 8Pn Zi0 ?+  p`e` rkli`len.` ^63 `mwan`tspr`nhun`0kill#``D&&++++i ++++ipii`v`t`r#X`@00)i" i`n`l`j`h`0Xf#`@FFYi" i `p`l`h`f `0``j\`HX`n V#`xi" #`@8i" XI xf@>`(XX X-   h , @  h @ @ X x : `0t :"pXd "@T "D @4 #@hX(  x H R X p*X X  ( @ @ p   %      p%  %  0  H &h  X   @  @  &( '@t x' @ *' (p @l H0x,)` pP @@ 0 @  @(X p x)`"t)`p )d C b/ C*P @@ (0 @ @ @ @ @  HX x`"t`@`0d XT @D 4 @$  `XXp`x`h 8` x`Y`"t0YP vL Pv``p< @, ( @ @  xy } ME  8 @ H P X ` h p               028 02h 02 02 02 02( 02X 02 02 02 22 22P 42 62 62 62062h62626262H 62626282H62826282(:2`<2:2<2 82`:282:282P:282:282@:2x H ,P-,-,-8-2.2P.0.0.2.2 /,X/4/ "/(/ J0 `0 h0 0 J0 0 01.(1 X1 .00 ` p.0  .*&(-H *P&h0- ")&3:U($6h &3   ((58&3`>g$6 &3  H X x)  J  J  >p < .   J( B$x  # ,  ( 0 8  @  P ` h  $=  !    ! ! J(! x! 6! ! ! J! B "  "(" 0"8"@" H"P"X"  `" p"  " " ""  " " "" "4U# @# P#`# p# # &<#&### J# H$ <P$ $ $ J$ B $ $% %% % %(% 0% 8% P% `% p% 4% % %% %%%&"&  0&@& X&+h&& &&*&& & & *' *H' )x' ' *' *' *( H(`(h(((((( ) ) ()8)@)H) JP) ) ,) ) ) J) B 8* @* P* `* p*** J* * @* (+ 0+ J8+ B++++++++&+$+,@,H,;X,&x,,4P,, p1xZ ++ FR WORD 97 angepate Excel 97 Anwendung!DIES_ + entwickelt von Winfried Radner(+ e-mail: Wolf.W.Radzinski@onlinehome.de+ Benutzung frei - ohne Gewhr)+ Excelversion siehe http://www.rendar.de+C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ WorteinBetragUmwandeln():G&+C++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++9+ diese Funktion wandelt ein ausgeschriebenes Zahlwort inA+ einen Ziffernstring zurck, da M$ max. "Long" Zahlen verkraftet?+ hab ich ersatzweise meine Langziffernaddition benutzt, um die*+ Zahl auch wirklich korrekt darzustellen.F+ d.h. 1000*10^63 -1 ist die hchste umwandelbare Zahl, das entspricht/+ "neunhundertneunundneunzigdekilliarden...usw"+C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ZXZp $!n &Markieren Sie einen Betrag. A@(dh $!f'" "$* $,F " " $'"g "$ $(flhBdient nur dazu bei Zeilentrennung die unterschiedlichen Trennungen6evtl. inkl. Rahmung der Zeilen automatisch zu erfassen7einfach von Ende eines Textes bis zum Anfang des Textes:in der nchsten Zeile markieren und dieses Makro aufrufen.'f $!n &F $!f'fgl(HINWEIS:C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++A+ SO KANN MAN sich seine eigene Umwandlungsfunktion zurechtbiegen+ fr evtl Erweiterungen!C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++D+ FR WORD WERDEN NUR DIE PARAMETER DER FOLGENDEN FUNKTION AN EIGENE+ WNSCHE ANGEPASST!/Standard passend zur Wahl in "inWorten" gewhlt 0 f$'fC+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++/+ inZahlen(): wandelt einen (Zahlwort)String in(+ eine Zahl (oder einen Ziffernstring)um+++C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ - (lokale VariablendeklarationZZZ XZZZZZZZ(SchleifenvariableZ@0Initialisierung $~F'g''0'0''' F.'g Number defsnull+E+ 0 +ein +E+ 1 +zwei +E+ 2 +drei+E+ 3 +vier+E+ 4 +fnf+E+ 5 +sech+E+ 6 +sieb+E+ 7 +acht+E+ 8 +neun+E+ 9 +zehn+E+ 10 +elf +E+ 11 +zwlf +E+ 12 +zwanzig+E+ 20 +dreiig+E+ 30 +vierzig+E+ 40 +fnfzig+E+ 50 +sechzig+E+ 60 +siebzig+E+ 70 +achtzig+E+ 80 +neunzig +E+ 90 +Multiplikationswortehundert+E* 02 +tausend+E* 03 +million+E* 06 + milliarde+E* 09 +billion+E* 12 + billiarde+E* 15 +trillion+E* 18 + trilliarde+E* 21 + quadrillion+E* 24 + quadrilliarde +E* 27 + quintillion +E* 30 + quintilliarde +E* 33 + sextillion +E* 36 + sextilliarde +E* 39 + septillion+E* 42 + septilliarde+E* 45 + oktillion+E* 48 + oktilliarde+E* 51 + nonillion+E* 54 + nonilliarde+E* 57 + dekillion+E* 60 + dekilliarde+E* 63 +AQuelle: http://www.rhrk.uni-kl.de/~jonietz/jufo/1999a/node16.html Anpassungenss+E+ue+E+oe+E+arden+Earde+ionen+Eion+eins+Eein+eine+Eein+sechs+Esech+sieben+Esieb+und +E +hert +Ehundert +evtl. Worttrennung aufheben  +E +C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Berechnung starten+C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 6$'mache Textanpassungen 0  0$ 0$ $' 0fge Multiplikatoren ein 0 0$ 0$ $' 0fge Zahlen ein 0 0$ 0$ $' 0(entferne an beiden Enden falsche Zeichen $+_   $*'x $* _   $'8Anzeige in Double Fg  _ $+HQE  $ '    ~ $*'*HQE    $*$'   $*$   ''h    ~ $*'PE'k   U 's  _ $+HQE  $U $'    ~ $*'*HQE   $*$$ $'   $*$  $'0'h    ~ $*'PE' falsches Zeichen im String Zahl hier zu Ende!k0(  $ $'fC++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++D+ ersatz_text(): ndert in Eingabestring alle "altText" in "neuText"8+ mu ich halt doch meine eigene Funktion verwenden, die5+ Funktion soll Worksheetfunction.Substitute ersetzen(+ (zu finden unter http://www.rendar.de)+C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++  X0ZZ0ZH'       $'     $*'a 'shh ' '\`  ~'     $ '     '  $*'h    'fC++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++/+ lz_plus(() addiert zwei beliebig lange Zahlen++C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++`ZZZZ(Z@''' "' '   _0 "'"  '   _0 '  ' 0  " 0$U  0$U  '  '  ' U ' 0  F U 'g $0  _   $*'fC++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++5+ lz_mult(() multipliziert zwei beliebig lange Zahlen++C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++XZZZZ Z8ZPZhZberechnung x*y0' 'j "'-Zahl der For-Schleifen minimieren, wenn ntigtausche x und y j  ' "' '" 'jh' fhrende Nullen in y? j 0 j0'  0$U'n nJQE "'1x n F " "$'g,2x nHHHQE  "$'(3x n F  $'g;6x nF  "$'g67xHHH HQE  $'-4x nF  "$'g65x n F  $'g;8x n F  "$'g69xPE wie kommt?k`  $''k war grer NullHQE tue nichtsPEfalsches Zeichenk  0 j  0'10xh 0h 'fxC++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++&+ zehnhoch(() gibt 10^x als String aus++C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++1' " _ 0' " '"@f8C++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++9+ tsdtrenn(() fgt Tausendertrennung zum Zahlstring hinzu++C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ .' "   "'sh " " " $' " " "  $*'"h " _   "$' " " $*'"( $ F   $*'gf fF- $,'fg(-  Fsg  Fsg,ss+E+ue+E+oe+E+ardeneun+Earde+9 +arden+Earde+ionen+Eion+eins+Eein+eine+Eein+sechs+Esech+sieben +Esieb +und +E +hert +Ehundert +evtl. Worttrennung aufheben  +E +C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Berechnung starten+C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 6$'mache Textanpassungen 0  0$ 0$ $' 00)>Attribute VB_Name = "Modul1" Option Explicit  Pub, Trenner As$ Sng6'+ FR WORD 97 angepaExcel$Anwendung! Zentwickelt vgWinfried Rad\"-mail: Wolf.W.zinski@onlineh@ome.de*B enutz\ frei - ohne Gewhr verssiehe http://wwwb.hdar&+>"^rteinBetragUmwandeln():5diese Funk 5t ? aus geschbenes Zahlwort in) en Ziffernsv zurck, da M$ max. "Long"B @Tkrafteuhab ich YatzweJi@#m L@zaddi'!mt, um @.B!A%*wirkh korrekt!rzuste llen. d.h. 1000*10^63 -1( is iwch Abare-3s @spr*-"neunhru@frt@zigdekilliard..usw'+mSubDim Ti@=x If SelecAV.Type <> wdNormal The{ MsgBoxA ~arkie ` S&@U.", , AEnd If x@ex)Right(x, 1)Chr(13)EB !LefL en(x)u1)/"! WS_iLn_aB  % 'get-(@A'Int nurEzu bZei@Ft@n!  unt`Tch aL Y#@'evtl.ckRahmB `Ttomati@jd ^fassnaXAeAp`nT#bis`m Anfb d&+'in`r nbXro5SfsAMakrofxrufb d"@("7U!C=Cƻ= -;/'HINWEtIS+<ySO KANN MPAN ss"eTig #l0sfechtb ie@bfr q7 Er`<e|n!a=" WERDEN NUR DIE PARAMETE`@FOLGENFUNKTION )EIEW NSCHEGEPASST`&Gx&`ByVxi~)+'St`  pBQd`Lr WCX "inien" gl@u!"S:-" & $<)S9&inQ:=i2C6er49;E ;'a/Q= ): 8tPB(Qs)Srse (od@BcTt)um_U'&Ein`gabez$F,| _ A$>ӣ*a`nz_doѥFalse%&[r(vbNewL/lokalariab^`{hlarYonrn8(20hXqm(21m a(1~ zwi7 DrSergebnp^ytp` er Bool$ea tthl<_s]!Schlei`v eCIpoge n@Rror ResuNi9In(aliPrS cIsNull(|!"= 0 f  0i(  װ=iuk .pNumb8defsP n(0"bn ": "+ 0 0n(1_F<2E1D3|, S U2T4UdreiS U3T5Uv0WS U4T6UfnfS U5Tz7UsPqS U6T8ViebS U7T9UPtS U8S!54RcT6 + 9zehn7216el7Sr2wu0u 1gh*ig W2T1t3t߶QP4tqu5tu}6tu87t6uX8tVȶzig": n(9, 1) = "+ 90 " 'Multiplikationsworte m(0, 0hundert(* 02m(1NtausendN(N3N2'milli'+'6'3 'ar\de))9)4])bQ'15 '( 5(6\tr) 87O ) 218quad + ~4σ,*( 271quintX -3ijF 1k3kb1lsex m3m1Fm Hn3Dnb1nsepo4_o p4p1Yqokq4q1q GHr5Dr1rXnonI[Hr5Dr1kr G@f5Dr2FrdekH 6q2q FAF Bq'Quelle: http://www.rhrk.uni-kl@.de/~j`etz/jufo/1999a/node16.htmlBAnpassungen a'ss@s au!wJoIIpneunB fH+Ha(HBGA G@e F&FeinCfE ?EDECse|chCABsiebBa'{`'z@hC,@,evtl. W`trenn@8 aufhAf|): 2 \'+=`+a Ber#"sta;`@J'B zwLCase(Eingabe zahl)Xmache Ta)Z For i0 To 12 ersatz_t Za(i,$1), zw N@ i fge o / D 21 .m  Zen 0 n entferne an beid`En falbsZei`Do While Left(zwb<<>p#RiDghLenP) -S IfC@< 1 Thxit FunccLoopA7/qn E'Anzeiin Doubl0 Not1z_d"c Go`$anz_strL  > Select *y! "+?!,*b+ Val3tInSt r(`T" ")t+as*|* 10 ^Q0  > 2B #erge0bnis+ q2=53Y+ If ;P9 - Els0u".!C#in$:= CO1| Pl' #:w.%,#sz7 #_Alz_plus(Q_s, $)!'%%, %e "%m(zehnhoch(o"TA)U`M_s/& /&D)/& G,&V#"0O'7l O'5 'Ys $Y im^ &p '( hier zu yp e!a ,,ttsdr(u$trtp [+Q1 y): pirt OYDW aЯ P"altA""neubmuߒ 0l h  d`) mzeteg0on verwen, di_'+soll!ksheetfj.Substitutrsp(pfi n untp0ar`OxADPrivate Function ersatz_text(pos As Integer, _ altTnf@StringdnTeu-2t_) On Error Resume N Dim _i lKo   = "" If' > 1 AHnd z<> 0Then< Len(t) (Left(t,)- 1)t6Righ !-+Else(t Exit EVIf =' ls@3"DoBO=u(1, +G @4;AX> 0: ɓ{ *&>A? &  B)?B? *@AFJltP9Loop UntilAO<nOrmuP)TA '+?A lz_plus(() addiert zwei beliebig lange Zahl'+E ByVal xl, CyGphstelleAjkuKn kp Ji U&@J!r = 0 [`x!Zx Blyy o Whi`lx < lybI"0"`Px`= bMHa%D&y!# ## *F`i To`PStepX -1A C(Mid(x, iB, }) + yu\ 1 Mod$:`CStr(M) >ib@ ySue)  "!1$)8#J/pb/imultpipl|izqq$L ~ qqq!gS4`a_is0tempCgzBooleapmCCLongj!=k<berechnung x*3b upX0uj #q:j<'O der 4-ScPifen minimPen, wenn nti 't@auscheKuo``jj'PUz3=  A<Select Case k#ɲIs 0:@aVx '1   k$7Fx) '2r3, 6, 7WU, 3 5 s 67t7B4, 5, 8, 9/ ~t1`_yusp4q }q5o1/ 89;/.9": 'wi$ommtp+r .J%)=y,4tt1Trpc'k war gr:N10Pt@nichts f5`;s ZeӴO #qei`xj"' b& h'10< n sO+fzehnhocBhfgibt@z^x`s SZ Kqe2߆eZʝq"1Z1&xHV> 'Vx ~'~c ?A tsdt[nfgt T\rbizumshinzuq ~/5Opt"."ܰ If Len(x) <= 3H Orpttx 1 Then  tsdtre@nn = xTExit FunctioXEnd#LMod> 0 YLeft(x,0)mx{Righ "- (,- Do WhileXU?& tt & G3ALoop-| *, 1)`, 6= jGh) -  g q - 08!`&000,I`)9,q`)90(`),`)I.+p0* pHdProjectQ(@= l ;% J< rstdole>stdoleP f%\*\G{00_VBA_PROJECTdir.__SRP_09__SRP_1 Vylstelle&uec_lx)^ly&^multmult_iJtempypCgzr]jx]Documentj _B_var_IfP _B_var_Right9 _B_var_Chr\; _B_var_LeftQ _B_var_LCase' _B_var_Midp _B_str_Chrm# _B_var_UCaseaCommandButton1_ClickCommandButton1|CaptionxCommandButton2_ClickCommandButton2}Click Document_New;E Document_OpenCopyƿ _B_var_Copy$ Zahl_in_3WortBetragIn3erWorteUmwandeln{l   6 020430-C 0046}#2.0#0#C:\WINDOWS\SYSTEM\c2.tlb#OLE Autom`ation^mMSForms> MSFErmsh/z pFC29D6160-F580-11D@4-A92CF374890932F3.TWD#Microsoft = ` Ob Library90v?A4BEEC6@E-56DB?5-BDA0-44@4553541?P\Word8.0\BEXB.E .`M qOfficqOnficq ,x-2DF8D04C-5BF@A-101B-E5MAAp4DE5MMICROSOFT OFFICE\MSO9`7.DLLO @6O°7ThisDocument"N2-T"h2sDcu@enHB1B,B="B+BoduPl11 2Ĝou11OM;!kJMB2UB7M0d0lRg*` 9 " K)^rU~~~~~~~~~i i#VDEST   I )a )  ThisDocumentModul11Modul1Project -  F?C:\PROGRAMME\GEMEINSAME DATEIEN\MICROSOFT SHARED\VBA\VBA332.DLLVBA Q y( F &C:\MICROSOFT OFFICE\OFFICE\MSWORD8.OLBWord i 80FC:\WINDOWS\SYSTEM\stdole2.tlbstdolelz_mult YHh@ fC:\WINDOWS\SYSTEM\MSForms.twdMSForms aAX.E .`M n쾤VDEST #C:\WINDOWS\TEMP\Word8.0\MSForms.EXD iAhL-[DR $C:\MICROSOFT OFFICE\OFFICE\MSO97.DLLOffice 9axWorteinBetragUmwandeln getTrea^ *\G{000204EF-0000-0000-C000-000000000046}#3.0#9#C:\PROGRAMME\GEMEINSAME DATEIEN\MICROSOFT SHARED\VBA\VBA332.DLL#Visual Basic For Applications*\G{00020905-0000-0000-C000-000000000046}#8.0#409#C:\MICROSOFT OFFICE\OFFICE\MSWORD8.OLB#Microsoft Word 8.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\SYSTEM\stdole2.tlb#OLE Automation*\G{C29D6160-F580-11D4-A92C-000374890932}#2.0#0#C:\WINDOWS\SYSTEM\MSForms.TWD#Microsoft Forms 2.0 Object Library*\G{A4BEEC6E-56DB-11D5-BDA0-444553540001}#2.0#0#C:\WINDOWS\TEMP\Word8.0\MSForms.EXD#Microsoft Forms 2.0 Object Library.E .`M *\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.0#0#C:\MICROSOFT OFFICE\OFFICE\MSO97.DLL#Microsoft Office 8.0 Object Library;%7ThisDocument 483b180196*D=Modul11 503b18046b*D; Modul1 453b180044*D90g`P0N[,VDESTN[,VDESTN[,VDEST09SFalseZFunction`IfThenWordkVBAWin16~Win32MacProjekt1Astdole`MSFormsC ThisDocument< _EvaluateNormalOfficeuProject-Modul1Modul11~BetragInWorteUmwandelnTitel}xo SelectionZwdSelectionNormalRMsgBoxRRight ChrK~ Zahl_in_Wort.ki`Zeilen_einrahmen!,inWorten  Eingabezahl NachkommaformatVundtrueUerster_Buchstabe_gross{Silbentrennung_einmax_Stringlaenge< TrennzeichenSVorzeichenformatu ss_ein rtrenne_in_3er_gruppensgplus-sgminusbereich2d_ber/e\zqd[ziffernlg^sv*_ my_stringcztempsgnm Nachkomma>Trenner A KommastellejjalckbtempRthA_tzS_te>_nk_langM5 left_zero?lv'^IsNull trenneStringUCase5  aendere_sz3?ZahlwortstringmaxStringlaengetrK_erg_strLgefundenPjkor_pos`\posdas_warsbin_einzel_wortenAtchrausgabe.zahl$6 IsMissing in_ziffernrkommavk_nkf^ Eingabestring0 Rahmenstringһ ersatz_textaltText%neuTextR>tkpos_is-lt%^ls$^WorteinBetragUmwandeln Wort_in_Zahl getTrenner>inZahlenuz anz_doublex Worttrennung{ vbNewLineuanemdaXzw-`ergebnisxtausendertrennungttM_zahl_s4 ergebnis_sLCase:anz_strwVallz_plus\lz_multl:zehnhoch$ tsdtrennnner Wort_in_ZahlinZahlen ersatz_textlz_pluszehnhochtsdtrenn BetragInWorteUmwandeln Zahl_in_WortinWorten trenneStringin_einzel_worten in_ziffernZeilen_einrahmen aendere_sz ErU i Eingabezahl anz_double WorttrennungposaltTextneuTexttxyttNachkommaformatundtrueerster_Buchstabe_grossSilbentrennung_einmax_Stringlaenge TrennzeichenVorzeichenformatss_einZahlwortstringmaxStringlaengeTrenner Eingabestring RahmenstringThisDocumentThisDocumentModul11Modul11Modul1Modul1PROJECTwm^VPROJECT`PROJECTlkhCompObjijID="{2C5B4ED2-56D2-11D5-BDA0-444553540001}" Document=ThisDocument/&H00000000 Module=Modul11 Module=Modul1 Name="Project" HelpContextID="0" CMG="90920D2B112B112B112B11" DPB="2022BDBEBEBEBEBE" GC="B0B22D4E2E4E2EB1" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 &H00000002={000209F2-0000-0000-C000-000000000046};Word8.0;&H00000000 [Workspace] ThisDocument=154, 154, 695, 522, C Modul11=44, 44, 585, 412, C Modul1=22, 22, 563, 390, C @2iw