аЯрЁБс>ўџ ўџџџeџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ§џџџчўџџџ% ўџџџ !"#$&ЖЗ()*T,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRS'UVWXYZ[\]^_`abcdf§џџџghijklmnopqrstuvwxyz{|}~€Root Entryџџџџџџџџ РF€ьђ+С '–Ѓ™С@2Workbookџџџџџџџџј_VBA_PROJECT_CUR"@Ѕо•Ѓ™С '–Ѓ™СVBAџџџџ @Ѕо•Ѓ™Ср•ј•Ѓ™С ўџџџўџџџ !"#$%&'()*+,-./0123456789:;ўџџџ=>?ўџџџўџџџBCDEFGHIJKLўџџџNOPQRSTUVWXўџџџZ[\]^_`abcdўџџџfghijklmnopqrstuvwxyўџџџ“|}~€№?§ § § ~ .@§ ~ § § ~ B@§ зvШP>Ж@dd  К Tabelle1 DieseArbeitsmappe$џџџџџџџџ__SRP_9 џџџџ~__SRP_8џџџџџџџџџџџџИTabelle1џџџџџџџџџџџџšџџџџџџџџџџџџџџџџ@p@thџџџџџџџџџџџџџџџџџџџџџџ˜MEџџџџџџџџџџўЪ;€x€ џџџџ"(€€˜€ € џџџџ€а *%Ј ШшЈ(E  Р ;Ph <p`  %0€ џџџџ"ˆ€Ј€ˆ(IH а€ џџџџ€ џџџџ" € џџџџ€8€@€ џџџџX€ џџџџ(`%x ˜G  Р€ џџџџ"6ај2P h€ џџџџ€p€ џџџџx€ џџџџџџџџИџџџџxplџџџџџџhlџџZъаZЎinWortenъш Сd@ї 8і D!FŒ 8! H ЬI‡сАСт\pwr BАa=гКDieseArbeitsmappeœЏМ=xZ;T$<X@"Зк1ШџArial1ШџArial1ШџArial1ШџArial1Ш Arial3#,##0\ "Ќ ";\-#,##0\ "Ќ "=#,##0\ "Ќ ";[Red]\-#,##0\ "Ќ "?#,##0.00\ "Ќ ";\-#,##0.00\ "Ќ "I"#,##0.00\ "Ќ ";[Red]\-#,##0.00\ "Ќ "q*6_-* #,##0\ "Ќ "_-;\-* #,##0\ "Ќ "_-;_-* "-"\ "Ќ "_-;_-@_-k)3_-* #,##0\ _Ќ _-;\-* #,##0\ _Ќ _-;_-* "-"\ _Ќ _-;_-@_-,>_-* #,##0.00\ "Ќ "_-;\-* #,##0.00\ "Ќ "_-;_-* "-"??\ "Ќ "_-;_-@_-{+;_-* #,##0.00\ _Ќ _-;\-* #,##0.00\ _Ќ _-;_-* "-"??\ _Ќ _-;_-@_-Є#,##0\ "DM";\-#,##0\ "DM"#Ѕ#,##0\ "DM";[Red]\-#,##0\ "DM"$І#,##0.00\ "DM";\-#,##0.00\ "DM")Ї$#,##0.00\ "DM";[Red]\-#,##0.00\ "DM">Ј9_-* #,##0\ "DM"_-;\-* #,##0\ "DM"_-;_-* "-"\ "DM"_-;_-@_->Љ9_-* #,##0\ _D_M_-;\-* #,##0\ _D_M_-;_-* "-"\ _D_M_-;_-@_-FЊA_-* #,##0.00\ "DM"_-;\-* #,##0.00\ "DM"_-;_-* "-"??\ "DM"_-;_-@_-FЋA_-* #,##0.00\ _D_M_-;\-* #,##0.00\ _D_M_-;_-* "-"??\ _D_M_-;_-@_-рѕџ Р рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР р Р рЋѕџ јР рЉѕџ јР р ѕџ јР рЊѕџ јР рЈѕџ јР р Р р Р “€џ“€џ“€џ“€џ“€џ“€џ`…& ParameterŒ11Ўќ%falschwahr-Falschџџ lЇbxЇbЇb@mђdЇbhіПƒќЇbЬЇb˜ЇbXкПƒРƒрэ тЭr0 шэ`Љbџџџџџџџџџџџџч№Џ0џ 0Јb,єПƒ,ЊbIЩr0дэ LЉb  LЉbдэ дVЛ‚‰0дVЛ‚ЦЈbVІ0дVЛ‚ЦЈb€„цS0Љb]Ч0Х0рЂђTЉbшЈb{ЗїПы^n0Ч0гJЉbќ ѓG0Х0њЧ0#G0дэ LЉb аэLЋb]‚Y0HЉb џџџџр.яˆЋb Wфhrung [0]_bШјПрЂђЈюПƒ2ЈюПƒ2ќ'ямЊbфЮ0ШЉbиЊbўџџџФЉbрЂђ8іПƒєРƒшЉbycђ8іПƒ’cђрЂђЬуПƒtРƒрќџџ?LїПƒАbT0? ?dЊbЙ\ђАbT0руПƒ”Њb'ђ4ћПƒмчПƒ,єПƒјјПм!ђЗ‚4ћПƒN\ђАbT0РгПƒDйПƒDйПƒИЊb2u04ћПƒАjT0ФЊbЇ=s0{=s0?0иЊbќ'яœэФ,ќ'яœэ|Б0ќ'яФэ‡DЋbdЋbИэЋb”s0ˆЋbˆЋbУЕ0 ЬI  ф’  dќЉёвMbP?_*+‚€%џСƒ„MўHP DeskJet 500C Printerд(€ ,,A^ž|ИжЙзЙжЁ" d,Š<ќ§~п?Š<ќ§~п?U } m } m  џT0џbџbџ16џС џџџb џb џ82 џ~ ”F 8B@JgїПх HЏЩN D!F%L.8Џ 8(PљЄЩT VЩn 8!R%LэKдK f9XЎ Parameter9hF§џЎ)фndere/zeige Parameter fќr Zahl_in_Worten9^NFЎ parameter9bFxnџџp›dhlџџ`A@6џџџџPї 8і D!FŒ 8! H”F 8B@JgїПpZЎinWortenъhџџџџPџџџџјџџџџџџџџјЏ D(vЏ D(vџџџџџџџџ8ЄЄ$@Є+АЄ Є$@Є+АЄЄ$@Є+АЄЄ$@Є+АЄ Є$@Є +АЄ Є$@Є +АЄЄ$@Є+АЄЄ$@Є+АЄЄ$@Є+АЄЄ$@Є+Аџџџџhџџџџ`Є Є$@Є +АЏ 0B@BFЏhaџџ8Џ 0B@Bџџџџї 4іЄЄ ‹+@Є$АЄЄ+@Є$АЄЄ+@Є$АЄЄ+@Є$АЄЄ+@Є$АЄЄ+@Є$АЄЄ+@Є$АЄЄ+@Є$АЄ Є+@Є $АЄ Є+@Є $АЄЖџџџџџџџџ<џџ‹Ђгјa\еН DESTРFŠЂгјa\еН DESTџџџџџџџџџџџџxњP&џџџџeRgRџџ#ˆŠЂгјa\еН DEST‹Ђгјa\еН DESTџџlђђ4џџџџ4џџџџпџџ@џџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@[LџџџџSџџџџ[”џџџџ(Lџџ"џџџџtenІp p€NaT.Dis€uyAlerts €•„tF=Eacha7In Aˆ=sH If@ . cb„ThenССDelet€_A C1Р CA:(tb(р11))  ‚Ai!0 To 11ТSheets(1).Cells(i + 1,и 1)Р iK€ A i ThisЕ…Y.X ƒf@ EТŠ >A nd IfР”˜IƒŠIsAАddin€%E€ƒР|–€Open(šz u ErstР@јeCbBFQK€/E@!џNLH)‹Њ)УžС#RObjec`T:O)[Go`PK€ 8K€ FаJ€ 0 € а€ B№€ J8€ џџџџB ˆ8P`M0O иN №N O O  O (OPОыPO pMа€ џџџџ€ Jи€ J(€ x€ €€ ˆ€ € 8˜€ а€ и€ р€ ш€ J№€ J@€ џџџџ€ џџџџB…LD€ џџџџ€ Jи€ D(€ 2p€ џџџџ€ "Ј€а€и€р€ 2ш€ $ € H€ X€ *h€˜€Ј€И€ 8Ш€€ 6€H€ "P€x€ €€ˆ€€˜€ €Ј€А€ И€Р€Ш€а€и€р€ш€№€ј€ € € € џџџџ € џџџџ€  8 @ € џџџџ€ VP € џџџџ€ Ј € "Р € .ш € * € 6H € 2€ И € џџџџ€ а € ш €  ( € џџџџ€ "@ € Jh € BИ  € џџџџ€  € L8 ˆ € џџџџ€   € RИ     ( 0 € џџџџ€ X8  € џџџџ€ А € DШ € € <0€ p€ Jр€ џџџџ ј  (0@P€ џџџџ€ BX€ ( Ш€ џџџџ€ Tр€ *8h €ЖџџџџџџџџџџџџџџџџџџџџџџxоаQ>џџџџeRH%џџџџьQжжфШџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@ џџџџ<џџ<џџLџџџџџџџџLџџџџLџџџџџџџџLџџџџџџџџLџџџџџџџџLџџџџ”џџџџџџџџџџџџЊ"џџџџ<\џџ<`џџlўoаџџџџDD,Œiƒъџџџџ џџџџ№€Iƒьџџџџџџ џџ€Iƒюџџџџџџ џџџџџџ€ `„4џџџџvџџџџџ`„Nџџџџtџџџџџ`„”џџџџpџџџџџ`„ˆlџџџџџ`„џџџџhџџџџџ`„ш dџџџџџ+˜€`џџџџџџџџЈAџkџџџџ==pŒ "iƒъџџџџ џџџџ0€ie eIƒXџџџџџџ џџX€x Iƒьџџџџџџ џџ€€ird nuIƒюџџџџџџ џџџџџџ€  `„4џџџџvџџџџџфhle`„šџџџџtџџџџџ`„ˆ€pџџџџџИ`„œџџџџlџџџџџ`„žhџџџџџ0`„шџџџџdџџџџџxƒџџџџџџ` џџџџџџџџџџџџџџHџџ$-- *$$`„$џџџџlџџџџџ$ƒџџџџџџ џџџџџџџџџџџџџџ$`„0џџџџtџџџџџNa#` `џџџџџџџџG@џo@ џџџџ чŒ' iƒџџџџ џџџџџџџџ„mmaa#а `џџџџџџџџxIшўk  џџџџёŒ0 iƒџџџџ џџџџР €mmaaIƒџџџџџџ џџџџџџ€€ " un`„0џџџџtџџџџџnn >***џџџ џџ$$$$Tnƒџџџџџџ` џџџџџџџџџџџџџџџџџџ$`„ш jџџџџџа`„Vрhџџџџџџџџџ`„"0pџџџџџ$$ƒџџџџџџш џџџџџџџџџџџџџџ$Њ€Аџџџџџџh @џџџџџџџџџџџџ$$$ƒџџџџџџ џџџџџџџџџџџџџџџџџџƒџџџџџџ џџџџџџџџџџџџџџ џџƒџџџџџџ џџџџџџџџџџџџџџƒџџџџџџА џџџџџџџџџџџџџџџџџџ .џџџџ`џџџџџџџџјGhџkџџџџџџџџџџ„џџџџƒџџџџџџр џџџџџџџџџџџџџџџџџџ$$$Pш$`I ƒџџџџџџА џџџџџџџџџџџџџџ џџ$$PT$ƒџџџџџџˆ џџџџџџџџџџџџџџџџџџƒџџџџџџИ џџџџџџџџџџџџџџџџџџџџџџа€ џџџџџџџџџџџџа џџџџџџџџ№ ` ` ƒџџџџџџ` џџџџџџџџџџџџџџџџџџƒџџџџџџ˜ џџџџџџџџџџџџџџџџџџƒџџџџџџ  џџџџџџџџџџџџџџџџџџƒџџџџџџ( џџџџџџџџџџџџџџ џџ`дџџџџxџџџџџƒџџџџџџ8 џџџџџџџџџџџџџџџџџџƒџџџџџџ џџџџџџџџџџџџџџРƒџџџџџџH џџџџџџџџџџџџџџџџџџ+ `џџџџџџџџИCШўoРџџџџ::­Œџџџџiƒџџџџ џџџџр€џџџџIƒ џџџџџџ џџ€ џџџџIƒџџџџџџ џџ0€ џџџџ џџiƒXDџџџџџџџџ„џџƒџџџџџџ џџџџџџџџџџџџџџP ƒџџџџџџ( џџџџџџџџџџџџџџ џџџџџџ€АЦ xџџџџџ€џџџџџџџџџџџџџџџџџџџџџџџџ8 џџџџџџџџџџџџџџџџџџџџџџџџџџџџP џџџџџџџџџџџџˆHџџџџpџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџTnƒџџџџџџ@ џџџџџџџџџџџџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџшџџџџџџџџ˜џџџџxџџџџ`џџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџшЈP ўџџџџџtџџџА `џџџџџџџџ8 џџџџџџ@ўџdџџџ џџ џџџџ@ўџЈTџџџ џџ џџџџ@ўџРDџџџ џџ џџџџ@ўџи4џџџ џџ џџџџ@ўџ№$џџџ џџ џџџџ@ўџџџџ џџ џџ@ўџ8џџџ џџ џџ@ўџ єўџџ џџ џџ@ўџPфўџџ џџ џџ@ўџhдўџџ џџ џџ@ўџ€Фўџџ џџ џџ@ўџрДўџџ џџ џџ@ўџАЄўџџ џџ џџ@ўџ8 ўџџџџ џџ@ўџјўџџ џџ `„џџџџtџџџџџ€@ўџџџџџ€ўџџ џџ @ўџџџџџpўџџ џџ РP:џџ`„џџџџtџџџџџ€ џџ@ўџџџџџlўџџџџ (` џџџџxџџџџџџџџџ2ЦоJўn `„џџџџtџџџџџ€h`„џџџџtџџџџџ€ xЈИА шpшxиР№џџџџ№џџџџџџџџ`џџџџџџџџџџџџџџџџџџџџ@џџџџ џџџџџџџџЈџџџџџџџџџџџџџџџџPh@ўџxФўџџ џџ џџџџ@ўџјДўџџ џџ џџџџ@ўџЄўџџ џџ џџџџ@ўџаЂўџџџџ ИшЈЄџџџџ@ўџˆ ўџџџ (јаЄ`8аІџџ џџ@ўџ˜$ўџџ џџ @ўџ(€ўџџ џџ H лџџ џџX(о@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџ@˜џџџџј(џџџџџџџџџџџџџџџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@ўџpўџџ џџ @ўџА$`ўџџ џџ @ўџџџџџPўџџ џџ @ўџџџџџLўџџџџ џџ @џ`„џџџџtџџџџџ€џџџџ@ўџАJўџџџџ рˆџџ џџ@ўџ№Hўџ/џџ `„џџџџtџџџџџ€џџџџ(Аџџџџ@ўџАDўџџџџ џџ€ `„џџџџtџџџџџ€P№%`„џџџџtџџџџџ€@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџ@˜џџџџј(џџџџџџџџџџџџџџџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@ўџBўџџџџ џџ@ўџ˜@ўџџџџ `„џџџџtџџџџџ€P`„џџџџtџџџџџ€И&џџџџ`„џџџџtџџџџџ€@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџ@˜џџџџј(џџџџџџџџџџџџџџџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџ@˜џџџџј(џџџџџџџџџџџџџџџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџШ˜*`„џџџџtџџџџџ€`„џџџџtџџџџџ€'@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџ@˜џџџџј(џџџџџџџџџџџџџџџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@ўџ0>ўџџџџ џџ@ўџџџџџ8ўџџџџ џџ`00`„џџџџtџџџџџ€џџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџ@˜џџџџј(џџџџџџџџџџџџџџџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџ@˜џџџџј(џџџџџџџџџџџџџџџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@ўџH6ўџџџџ (@ўџ 4ўџџџџ pH6џџџџH  <`„џџџџtџџџџџ€џџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџ@˜џџџџј(џџџџџџџџџџџџџџџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџ@˜џџџџј(џџџџџџџџџџџџџџџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџ@˜џџџџј(џџџџџџџџџџџџџџџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџ@˜џџџџј(џџџџџџџџџџџџџџџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@ўџ0 2ўџџџџ (@ўџX 0ўџџџџ p 0 A џџ@ўџџџџџ.ўџџџџ   X O@#`„џџџџtџџџџџ€ џџџџџџАjџџџџHџџџџА @џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџ@˜џџџџј(џџџџџџџџџџџџџџџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџ@˜џџџџј(џџџџџџџџџџџџџџџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџ@˜џџџџј(џџџџџџџџџџџџџџџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџ@˜џџџџј(џџџџџџџџџџџџџџџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџј$Шџџџџ(@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџ@˜џџџџј(џџџџџџџџџџџџџџџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџ@˜џџџџј(џџџџџџџџџџџџџџџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@ўџШ$ўџџ џџ џџ@ўџџџџџ ўџџ џџ џџџџ@ўџр$ќ§џџ џџ @ўџџџџџь§џџ џџ 'Ш`„џџџџtџџџџџ€@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџ@˜џџџџј(џџџџџџџџџџџџџџџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџ@˜џџџџј(џџџџџџџџџџџџџџџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџ@˜џџџџј(џџџџџџџџџџџџџџџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`„џџџџtџџџџџ€X`'xџџџџџ`„џџџџtџџџџџ€(`„џџџџtџџџџџ€ ;(оJ џџ ш;<џџџ џџ џџџџџџџџ'џџџџ˜'@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџ@˜џџџџј(џџџџџџџџџџџџџџџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџ@˜џџџџј(џџџџџџџџџџџџџџџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџ@˜џџџџј(џџџџџџџџџџџџџџџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџ@˜џџџџј(џџџџџџџџџџџџџџџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџ@˜џџџџј(џџџџџџџџџџџџџџџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџ@˜џџџџј(џџџџџџџџџџџџџџџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџ@˜џџџџј(џџџџџџџџџџџџџџџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџ@˜џџџџј(џџџџџџџџџџџџџџџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџ@˜џџџџј(џџџџџџџџџџџџџџџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџ@˜џџџџј(џџџџџџџџџџџџџџџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџ@˜џџџџј(џџџџџџџџџџџџџџџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџ@˜џџџџј(џџџџџџџџџџџџџџџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџ@˜џџџџј(џџџџџџџџџџџџџџџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџ@˜џџџџј(џџџџџџџџџџџџџџџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџ@˜џџџџј(џџџџџџџџџџџџџџџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџ@˜џџџџј(џџџџџџџџџџџџџџџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџ@˜џџџџј(џџџџџџџџџџџџџџџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџ@˜џџџџј(џџџџџџџџџџџџџџџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџ@˜џџџџј(џџџџџџџџџџџџџџџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџ@˜џџџџј(џџџџџџџџџџџџџџџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџ@˜џџџџј(џџџџџџџџџџџџџџџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџ@˜џџџџј(џџџџџџџџџџџџџџџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџ@˜џџџџј(џџџџџџџџџџџџџџџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџ@˜џџџџј(џџџџџџџџџџџџџџџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџ@˜џџџџј(џџџџџџџџџџџџџџџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџ@˜џџџџј(џџџџџџџџџџџџџџџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџ@˜џџџџј(џџџџџџџџџџџџџџџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџ@˜џџџџј(џџџџџџџџџџџџџџџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџ@˜џџџџј(џџџџџџџџџџџџџџџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџ@˜џџџџј(џџџџџџџџџџџџџџџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџ@˜џџџџј(џџџџџџџџџџџџџџџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@џџџџ;џџџџ;ш;Јџџџџ `џџџџџџџџџџџџ€џџџџШ'џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ'`'@#ш;эџџџџ`„џџџџtџџџџџ€ џџ=ј:џџџџџ @@ўџ8џџџџ p <э џџА<p(џџџ џџ џџ@ўџџџџ џџ џџˆ<џџџ џџ џџ@ўџјўџџ џџ џџˆ?шўџџ џџ Ш<ѓ=цўџџџџ и<є0=є`„џџџџtџџџџџ€ џџ8>фўџџџ @@ўџтўџџџџ X=ї џџh=аўџџ џџ @А=јР=@Рўџџ џџ џџ@ўџАўџџ џџ @ўџ ўџџ џџ и=@ш=žўџџџџ >џџџџ8>œўџџџ >8>P>`„џџџџtџџџџџ€ˆ? šўџџџџ џџџџp@?џџџџXИџџџџаџџџџџџџџpџџџџˆџџџџ№џџџџџџџџџџџџ8@џџџџp?џџџџ@?џџџџџџџџџџџџџџџџџџџџ@џџџџџџџџџџџџџџџџЈ?џџџџџџџџџџџџџџџџ?(??`€џџџџxџџџџџ џџР??%ўџџџџџ~ќ џџџџИ?@ўџX?Tџџџ џџ @ўџP@Dџџџ џџ @ўџј?4џџџ џџ џџ№J`„џџџџtџџџџџ€ џџ@ўџа?2џџџџџ (ш?Ј?9@ўџџџџџ0џџџџ (@а?9џџ џџ@ўџh@ џџџ џџ џџ@ўџ€Aџџџџџ џџpA@;џџ џџ@ўџ@Aџџџџџ џџ@ўџА@џџџ џџ џџ@ўџ€@јўџџ џџ џџ@ўџ˜@шўџџ џџ џџ@ўџШ@иўџџ џџ џџ@ўџр@Шўџџ џџ џџ@ўџј@Иўџџ џџ џџ@ўџAЈўџџ џџ џџ@ўџ(A˜ўџџ џџ џџ@ўџџџџџˆўџџ џџ џџ@ўџџџџџxўџџ џџ џџџџ@ўџXAtўџџџџ `A@ўџџџџџpўџџџџ ˜˜Aа?Iџџџџ@ўџџџџџlўџџџџ иџџџџ€AJџџџџЈџџџџHBџџџџ џџџџ џџџџџџџџ0џџџџиРX№џџџџџџџџ Cџџџџ BџџџџˆBџџџџџџџџџџџџџџџџџџџџ@CџџџџџџџџџџџџџџџџИBџџџџџџџџџџџџџџџџHBpB`B`˜џџџџxџџџџџ џџаBHBjџџ џџџџџџ~оJќ€Bџџџџџ@ўџCTџџџ џџ @ўџ(CDџџџ џџ @@ўџрBBџџџџџ (CИB…џџ@ўџџџџџ@џџџџ џџџџ@3XCрB…џџџџ@ўџџџџџ0џџџ џџ 0@ўџџџџџ џџџ џџ џџџџ@ўџxCџџџџџ џџџџhC@C‡џџџџџџCрBџџџџџџ@ўџџџџџџџџџџ џџџџџџџџxCŽџџџџџџ@ўџџџџџџџџџџ Р˜ € џџџџџџџџџџџџџџџџh џџџџ˜ џџџџџџџџџџџџџџџџџџџџџџџџшEE˜DџџџџАDџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџXE˜EџџџџџџџџџџџџXD€DpD`џџџџxџџџџџ џџpEXDЄџџ џџџџџџ2аоJ8џџџџџ@ўџјDXџџџ џџ џџ@ўџШDHџџџ џџ џџ@ўџрD8џџџ џџ џџ@ўџ0F(џџџ џџ џџ@ўџ(Eџџџ џџ џџ@ўџFџџџ џџ џџ@ўџ@Eџџџ џџ џџџџ@ўџџџџџєўџџ џџ џџџџ@ўџџџџџђўџџџџ АEXEНџџџџ`„џџџџtџџџџџ€џџџџ@ўџџџџџьўџџџџ џџџџ˜EХџџ џџЈFxFо`„џџџџtџџџџџ€@ўџFшўџџџџ џџџџ@ўџHFфўџџџџ џџџџ@ўџџџџџрўџџ џџ џџџџ@ўџџџџџаўџџ џџ џџџџ@ўџ`FЬўџџџџ џџџџ@ўџџџџџШўџџџџ џџџџ`џџџџxџџџџџџџџџ`„џџџџtџџџџџ€џџџџџџџџFоџџџџџџџџџџаџџџџаF G@ўџџџџџpџџџ џџ џџџџџџџџрHыџџР `„џџџџtџџџџџ€  FџџџџџџџџxFџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџаFрGџџџџАGџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџxFИFРE@ўџШG`џџџ џџ џџџџ@ўџџџџџPџџџ џџ џџџџ@ўџџџџџ@џџџ џџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџАHШHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ˜HџџџџџџџџА€џџџџџџџџџџџџџџ@ўџџџџџxџџџ џџ џџџџ@ўџџџџџhџџџ џџ џџџџ`џџџџxџџџџџџџџџџџџџ2Цаџџџџџџџџџџџџ@ўџ(Jdџџџ џџ џџџџ@ўџHITџџџ џџ џџџџИ<@ўџXJDџџџ џџ  џџџџџџџџџџџџР џџџџџџџџџџџџш џџџџ  џџџџџџџџџџџџџџџџџџџџрHџџџџИJ@JIџџџџ(IџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџрHјHшFџџџџpHџџџџJ@ўџpJ4џџџ џџ @ўџџџџџ0џџџ џџ @ўџˆJ џџџ џџ @ўџ Jџџџ џџ @ўџџџџџџџџ џџ @ўџџџџџ№ўџџ џџ @ўџаJьўџџџџ @ўџџџџџшўџџџџ џџџџ`Iџџџџˆўџџ џџ џџџџаJ џџџџ№ џџџџџџџџа џџџџ№ џџџџџџџџџџџџџџџџpџџџџџџџџџџџџџџџџџџџџџџџџџџџџMEџџџџџџџџџџ € џџџџ€  И>*а@*@*P*&Р€ џџџџF*шJ*0J*€*а€ џџџџ0H`xЈРр @XxАШш 8€ HX€ џџџџ€ J € №€ ј€ € J € џџџџpx€ џџџџ *6 а€ џџџџ€ и №€ 2ј$0H X:&p А&Ш  ш ј€ J'Ph ˆ &3  И и &3р   € .  P`€ џџџџ€ h,3€€ џџџџ€ 4А ш ј€ 8€ R@!˜€ џџџџ€ (А€ :и$ H `p€ џџџџ€ (x€ B &ш€ џџџџ€ < P`€ˆ€ џџџџ€ ,&Р€ џџџџ€ (ш€ €  € 8€ P€ h€ €€ ˜€ А€ Ш€ џџџџр2ј.0.`€ ,0,Р€ (№  8 P p*:x Ј,.Ш00ј( € 0 H  `  € 00   а € и №  ! (!00H! x!€ >€!Р! и!</ј!008" h"p" ˆ"</Ј"00ш" # #(#€ џџџџ€ 60#€ $h##€ џџџџ Ј#€ џџџџИ#l\Р# 0$H$ h$p$ $f_˜$ %% 8%@% `%h% ˆ%  % А%€ HШ%@N& P& `&h&p&x&€ џџџџ€ €&d= & '€ џџџџ&M'$@@'h'€ џџџџ€ :p'€ JА'€ џџџџ (€ џџџџ(€ џџџџ€ ((( P(€ џџџџ€ .p( (€ џџџџ€ $Р((ш(€ џџџџ€ ")()0)*1H)x)€ џџџџ ˜)'И) и)ш)№)€ џџџџ€ &ј) *((*6;P*€ џџџџ€ &ˆ*$2А*€ џџџџ и*€ џџџџ€ џџџџ)ш*€ + +8+@+H+P+€ џџџџ€ 4X++˜+ А+ Р+а+€ џџџџ€ $и+ ,,€ џџџџ€ 0, H,P,p,€ џџџџ:`x,€ џџџџ€ И,Ш,€ џџџџ€ $р, --€ џџџџ€ J -€ p-€ <x-€ И-€ JР-€ .€ 0.€ $H.€ p.€ :.€ .а.€ /€ J/€ џџџџ€ џџџџB… X/€ џџџџ€ "x/€ /€А/€И/€ Р/€Ш/€ а/€и/€р/€ш/€ џџџџ№/€ џџџџ€ ј/0€  0(00080@0€ џџџџH0€ џџџџ€ <`0$ 0€ џџџџT8Ш0T8 1T8x1€ џџџџ>*а1(2€ џџџџ82$H2p2,?ˆ2  И2 Ш2 а2и2 р2№2,?3  83 H3 0P3$;p3 ˜3Ј32GА38Jш3 4 04  84H4 P4`4,?x4  Ј4 И4 Р4PQpQxQ€Q0ˆQИQ ј4 5  5 5 (5 85H5€P5*IX5 +ˆ5Ј5А5И5 Р5а5€ џџџџ€ џџџџ€ Jи5€ (6€ 06€ P6€ JX6€ Ј6€ А6€ 4а6€ ,7€ 487€ p7€ Jx7€ џџџџB…Ш7€ џџџџ€ "ш7€8€8€  8€(8€08€88€@8€ џџџџH8€ џџџџP8h8p8€ џџџџ8 ˜8Ј8А8)Ш8р8"ш8949 _P9p9x9 ˜9&hЈ9а9и9 р9№9ј9 ::€ .:4uH: €:€ ::,iа:;;;€ џџџџ€ џџџџ€ J;€ h;€ Fp;€ И;€ JР;€ <€ (<€ @<€ `<€ 4x<€ А<€ И<€ Р<€ &и<€ $=€ .(=€ *X=€ ˆ=€ J=€ џџџџB…$$р=€ џџџџ€ ">€0>€8>€ @>€H>€P>€X>€`>€ џџџџHP€ џџџџ€ h>€> >€ И>Р>Ш>а> ш>#ј> +?0?8?@?H?P?)h?€?(1ˆ?0А?#р? @@ @(@V$0@,Dˆ@H И@AA A€ џџџџ€ џџџџ€ J(A€ xA€ F€A€ ШA€ JаA€  B€ (B€ (HB€ $pB€ ˜B€ АB€ ИB€ &РB€ шB€ J№B€ џџџџB…$&pH€ џџџџ€ "`C€ˆC€Ј€H€`F€PG€ џџџџC€ џџџџ€ ˜CАC XH€ џџџџ &`РC'шCXC @ChFIиHаIpF (I H@I HI#XI%pI  I hH ЈI€ џџџџ ИI иI ШI0=шI FŸ8J€ џџџџ 8F€ џџџџ J€ џџџџ`HА&И€ џџџџD€ џџџџ€ J D€ pD€ >xD€ ИD€ JРD€ џџџџB E€ џџџџE€ џџџџ E=(E€ џџџџHE€ џџџџ€ џџџџB…PE€ џџџџ€hE€ џџџџPP€ џџџџpE€E€ џџџџˆE$ЈE€ џџџџШE4kрEF F€ џџџџ"˜K@P3PN3hN3РM3иM3€N3№M3N3˜N3 N38N3АN3P ˆM K€ џџџџџџџџШQХџџxиentwickelt von Winfried Radner€„и&e-mail: Wolf.W.Radzinski@onlinehome.deџџџџиBenutzung frei - ohne GewфhrFxиHINWEIS:иC+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++иA+ SO KANN MAN sich seine eigene Umwandlungsfunktion zurechtbiegenи+ z.B. mit folgenden Standards:и+ ohne Nachkommaanteilи+ ohne "undeins" Фnderungи+ alles kleingeschriebenи/+ Trennung des Zahlstrings nach max. 34 Zeichenи+ Trennzeichen "-"и#+ Vorzeichen "+" und "-" ignorieren YDи+ "п" und kein "ss" gewфhltџџџџџџи5+ mindestens zwei Zeilen ausgeben (auffќllen mit "*")џ§и)+ aufgerufen wird jetzt ganz einfach z.B.и+ =Zahl_in_Wort(A1)и<+ die restlichen Parameter sind hierbei individuell angepaпt:`џJ%иC+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Є•maleЎ'"Zъ˜ h ”F $'gfџџииC+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++иC+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++и+и+и+и+и2+ inWorten(): wandelt eine Zahl in einen String umи+и+и‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ЁЂўџџџЄЅІГЈЉЊЋЌ­ЎЏАБВЃДЕўџџџкиЙКЛвНОПРСТУФХЦЧШЩЪЫЬЭЮЯабИгдўџџџжзўџџџйјмнопрстефхцшўџџџщђыьэюя№ёуѓєѕіїўџџџњћќ§ў§џџџ+и+иC+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++иC+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ž  !&+яЏЄЎ-ЏЏЏЏЄ`иCZahlen mit mehr als 16 Ziffern (inkl Nachkommaanteil) mќssen in derи>Eingabezelle als Text markiert werden (einfќhrendes Hochkomma)и+da sie sonst fehlerhaft dargestellt werden!иlokale VariablendeklarationZъZъZъ0и, von fixen 24 u. 7 auf 66 und 21 geфndertи max 999 Dekilliarden...uswZЄBъHZЄъ`и$ Arrays fќr Zahlstringdefinitionenas 0ZЦЄ ъxorZЦЄ ъАZЦ "ъши2 Array fќr die einzelnen Ziffern der EingabezahlZЦ ъ и/ statt vbnewline wird nur nl=chr$(10) benutztZъXи Schleifenvariable;ZфhlerZъpиZъˆZъ ZъИZъаZъшZъиZъZъ0ZъHZъ`ZъxZъZъЈZъРZъиZъ№ZъСиInitialisierungЏ'ТЄ $ 2'0иOIsNull eingefќgt, damit im Aufruf auch ";;;" ohne Fehler angenommen wird!иNachkommaformatи =0 ohne Nachkommaanteilи' =1 mit " und " und Nachkommaanteilи# =-1 mit " " und Nachkommaanteilи0 =2 mit " und " und Nachkommaanteil wenn > 0и, =-2 mit " " und Nachkommaanteil wenn > 0 ь$Ц”FЄ'ьgиundtrue фndertи =true =1 --> "undeins"и =false =0 --> "eins" Ђ$Ц”FЏ'Ђgиerster_Buchstabe_gross=trueиCschreibt den Ersten Buchstaben gross auch bei Trennung wird NUR derи<Erste Buchstabe groп geschrieben im Unterschied zu GROSS2()! ю$Ц”FЏ'юgиSilbentrennung_ein=trueиFdann wird der Ausgabestring wenn mіglich bei max_Stringlaenge getrennt №$Ц”FЏ'№gиmax_StringlaengeиKfehlt die Variable oder ist NULL gesetzt, dann wird in 3er-Gruppen getrennt ђ$Ц•Џ'ТЏ'№hџџxиQTrennzeicheninitialisierung, wenn nicht schon ќber optionalen Parameter definiert є$Ц”FЎ-'єgиVorzeichenformatи= wie soll ein evtl vorhandenes Vorzeichen behandelt werden?и 0= ignorierenи5 1= beachten, wenn erstes Zeichen im Stringи 2= immer suchenиC -1 bzw -2= wie oben aber "Plus " und "Minus " vor dem Textstring і$Ц”FЄ'іg іЄ•Ў + 'иЎ - 'кaџџ€ЎPlus 'иЎMinus 'кhџџXи<ss_ein steuert den Aufruf der Funktion aendere_sz und damit,и!ob "п" oder "ss" ausgegeben wird? ј$Ц”FЏ'јgиMto do list: wie wird ziffer() schon bei der Definition mit Startwert gefќllt?и#Kann hier eigentlich auch wegfallenї њіЄ ‹Є њ+.ї њіРи Number defsЎnullЄ+*ЎeinЄ+*EЎzweiЄ+*EЎdreiЄ+*ЎvierЄ+*EЎfќnfЄ+*EЎsechsЄ+*ЎsiebenЄ+*EЎachtЄ+*EЎneunЄ +*ЎsechЄ +,иSonderfall fќr 16ЎsiebЄ +,и Sonderfall 17ЎzehnЄ+,EЎzwanzigЄ+,EЎdreiпigЄ+,ЎvierzigЄ+,EЎfќnfzigЄ+,EЎsechzigЄ+,ЎsiebzigЄ+,EЎachtzigЄ+,EЎneunzigЄ +,ЎelfЄ +,EЎzwіlfЄ +,ЎhundertЄ+fЎtausendЄ+fЎmillionЄ+fЎ milliardeЄ+fЎbillionЄ+fЎ billiardeЄ+fЎtrillionЄ+fЎ trilliardeЄ+fЎ quadrillionЄ+fЎ quadrilliardeЄ +fЎ quintillionЄ +fЎ quintilliardeЄ +fЎ sextillionЄ +fЎ sextilliardeЄ +fЎ septillionЄ+fЎ septilliardeЄ+fЎ oktillionЄ+fЎ oktilliardeЄ+fЎ nonillionЄ+fЎ nonilliardeЄ+fЎ dekillionЄ+fЎ dekilliardeЄ+fиAQuelle: http://www.rhrk.uni-kl.de/~jonietz/jufo/1999a/node16.htmlиC+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++и+и+ Berechnung startenи+иC+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++Ў'DЄ ъЎ,~'ќ ъU '4 ќЄ ”F ъU ќЄ $о'4gЄ'Hи Vorzeichen? іти+wenn Vorzeichen erster Buchstaben im StringЄHЄHQE 4Є$отЎ-HQE к'К 4 4Є $J'4и,nicht unbedingt notwendigјWЎ+HQE и'К 4 4Є $J'4 PEЎ'КџџkџџАиDalternativ, wenn vor "+" oder "-" noch andere Zeichen vorhanden sind€ ЄHЄHQE€ Є 4Ў-~Є •v к'К 4 4Є 4Ў-~ $J'4Є 4Ў + ~Є b и'К 4 4Є 4Ў+~ $J'4aEЎ'Кџџhџџи'oder "+" und "-" wird einfach ignoriertPEЎ'КџџkџџHи Sonderfall 0 4Ў0 ьЄ”FЄ$*'Dg"и-spalte die Zahl in ihre (max bereich) Ziffern 4Ў ь HЄ 'Hи2ziffer(j) = i Mod 10 (geфndert, da sonst мberlauf)иLziffer(j) = i - Fix(i / 10) * 10 (geфndert, da sonst мberlauf ab 17 Stellen)ix[ 4Є$J' А[и!Tausendertrennung etc. ignorierenи4nur die Ziffern "0" bis "9" werden im Array abgelegt  тЎ0Ў9IQE U H+.4PEЄ H+. HЄ 'Hkџџ8и"i = i \ 10 (geфndert, da мberlauf)и;i = Fix(i / 10) (geфndert, da sonst мberlauf ab 17 Stellen)] 4 4Є $о'4 ыџџ и5Zahl ist fќr die Umwandlung in einen String zu gross! H  •Р\ЎEingabezahl zu groп!' sџџ(hџџ и%Bestimmung der Anzahl der 3er Gruppen˜] HЄ Є'Lи 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 D R$*Ўund T$,'Dkџџ@ЄHQE TтЄHQE D R$*'DЄHQE DЄ $, T$,'Dи> =siebzehnPE D R$*Ўund T$,'DkџџPEkџџ€и0wenn temp>0 muп eventuell noch was an den stringиangehфngt werden, sonst nicht! P T R 'V VЄ • NтЄHЄHЄHЄ HЄ HЄ HЄHЄHЄHЄHQEи/#...trilliarde, billiarde, milliarde RЄ TЄ• DЎe N$f'Daџџ@ D N$fЎn'DhџџЄHЄHЄHЄHЄ HЄ HЄHЄHЄHЄHQEи/...trillion, billion, million RЄ TЄ• DЎe N$f'Daџџp D N$fЎen'DhџџHЄHQEиtausend D N$f'DЄHQE RЄ TЄ•иAwer die Фnderung nicht will setzt oben die Variable undtrue=False DЎein Ђ”F D DЄ $оЎundein'Dg DЎs'DhџџHPEkџџ8hџџ0иTrennen in 3er Gruppen? Т NЄ  VЄ ”F D є 0'Dgиb(einfach noch ein Trennzeichen anfќgen :)ї NіР D є 0 $J є 0• D D є 0 $о'Dhџџ@и4soll auch noch ein Nachkommaanteil angezeigt werden?иC+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ьЄ• Т”F D 0'Dgи!wie lang ist der Nachkommaanteil? ъU Є ъU Ў,~ 'Zи(gibt es ќberhaupt einen Nachkommaanteil? Z ъU ”FЄ'Zgиhol ihn aus der Ursprungszahl ъU Z$J'\иschneide fќhrende Nullen ab\џџ€Є \Ў0~'Ф ФЄ”F \ \Є $J'\g ФЄ \Є В ZЄ”F \Ў0'\g ZЄ ьЄ•Ў0'\Є'ZhџџИи mit oder ohne "und" dazwischen?Ў'X ZЄ ”FЎ 'Xgи%Standard ьЄ ZЄ  DЎ”FЎ und 'Xgи gibt es einen Vorkommaanteil >0? ъЄ$JЎ0,”FЎ'Xg D X'D \Ў0 ьЄ•иmach 100stel draus \Ў/100'\aџџpЎ'\Є'ZhџџXи-hatte der Nachkommanateil mehr als 2 Ziffern?Є'^ Z ^ Є ь \Ў0'\ ^Є '^ыџџииErgebnis inkl. Nachkommaanteil D \'Dhџџ˜и*wie lang ist der Ergebnisstring ќberhaupt? №• DU ђU є$ў'Dhџџ8 ю”F DЄ$о$n D DЄ $J'Dgи п oder ss? ј”F D$'DgиErgebnis an Funktion ќbergeben К D' fџџи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 VariablendeklarationZЦЄъШZъZъиZъ0иZъHZъ`ZъxСИиinitialisierungЄ $2'0иЏ'оЄ'тЄ'шЎ'і Є ”FЄ 'gи6Initialisierung der Suchstrings fќr die SilbentrennungЎigЄ+дEЎlfЄ+дЎeinЄ+дEЎweiЄ+дEЎreiЄ+дEЎierЄ+дЎќnfЄ+дEЎchsЄ+дEЎbenЄ+дEЎchtЄ +дЎeunЄ +дEЎehnЄ +дEЎionЄ +дEЎundЄ +дЎdertЄ+дEЎsendЄ+дEЎilliЄ+дЎardeЄ+дEЎonenЄ+д   ь о Є т Єьї 4іЄЄ‹  Є т Є$ќ 4$д•  т 'шЏ'о“єи hџџа ї 4іРї 4іЄЄ ‹  Є т Є$ќ 4$д•  т 'ш 4тЄHQE  шЄ$ќтЎtHЎhHЎuHQEЏ'оPEЏ'оkџџ Є HQE  шЄ$ќЎen”FЏ'оgЄ HQE  шЄ Є$ќЎh”FЏ'оgPEЏ'оkџџx о”F“єghџџ` ї 4іРї 4іЄЄ‹  Є т Є$ќ 4$д•  т 'ш 4тЄHQE   шЄ$ќЎn•'оЏ'оPEЏ'оkџџ  о”F“єghџџˆ ї 4іР тЄ 'тыџџ` ›єX і  шЄ $о є 0'і   ш Є $J'Џ'оЄ'тыџџ№ і 'ўfџџи иC+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++и+и+ in_einzel_worten()и+иC+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++и+и+ erweitert am 10.1.2001и.+ z.B. A1= "4-7stќck8OBENtausend400" dann wirdи%+ in_einzel_worten(A1) ausgegeben alsи-+ vier-siebenstќckachtOBENtausendvierhundert"и+иC+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ž! !яЏЄиlokale VariablendeklarationZъ@ZъXиZъpZъˆZъ ZъИС` ь$~”FЄ'ьgЎ'” ьЄ”FЎ,'”gЎ'ˆ ъ'NЎ'ї 4іЄ N‹ ъ 4Є$ќ'ш штЎ0Ў9IQE  ш'Ў'ш ”HQEи!Vorkommaanteil in ausgabe ablegen ˆ U ЄШ ю$ 'ˆ ш'PEиirgendein Zeichen Ў• ˆ U ЄШ ю$  ш'ˆЎ'aџџа ˆ ш'ˆhџџИkџџАї 4іР ти'letzte Ziffer Null ohne NachkommaanteilЎ0HQE ˆ U ЄШ ю$  ш'ˆЎHQEи3letzte Ziffer <> Null oder auch mit NachkommaanteilPE ˆ U ьШ ю$  ш'ˆkџџЈ ˆ'€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 eingefќgtи+иC+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ž  яЏЄЎ аиlokale VariablendeklarationZъЈZъРиZъиZъ№Zъ Zъ иInitialisierung X$~”FЎ 'Xg ь$~”FЄ'ьgиЎ'ˆЎ'˜Є ъЎ,~'š šЄ • ъ šЄ $о'œ ъ ъ š Є $J'žaџџx ъ'œЎ'žhџџ`ї 4іЄ œ‹ œ 4Є$ќ'ш штЎ0Ў9IQE ˆ ш X'ˆЎ.HQEиignoriert TausendertrennungЎ+HЎ-HQE ш'ˆPEЎ'ˆkџџ˜?ї 4іР ˆтЎ+HЎ-HQE ˆ ž'ˆи)+Vorkommaanteil fehlt bis auf das VorzeichenЎNQE ˆ ˆЄ $о ž'ˆPE ž'ˆи4nur Nachkommaanteil oder falsches Zeichen dazwischenkџџЈ> ˆU ь ю$€'˜fџџˆ>иC+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++и+и@+ Zeilen_einrahmen(): Einrahmung jeder Zeile des мbergabestringsи+иC+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++и+и+ erweitert am 28.5.2001и"+ fќge bei Trennung in jeder Zeileи+ noch spezielle Anfangs- undи+ Endzeichen hinzuи+и+и + Standard: Rahmenstring = "***"и+иC+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Є •яЏkhиlokale VariablendeklarationZъш С<иInitialisierungЄ $2'0  0  0  а%в'   's\hfџџ;иC+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++и+и8+ aendere_sz(): фndert in Eingabestring alle "п" in "ss"и+иC+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ С: ' ЎпЎss а%в'fџџ`:ž#яЎ*` Zъш Є $2'0 ' $Ц”FЎ*'g Є ”FЎ*'gЄ  0~Є•ž  0    а%'hџџ9fџџˆ9џџџџ€9hk KQEct c LQE›ўZъh '$ тs   'ring  Вg aи und fertigЄHQE andЄ  0~'n(Eing шЄ N ш   •ш  N •=0 шЄ N  • Є•N Zъ€  N Є Ќр? 'Vž    V а%   V а%'Јh s˜h Є • hxБZъ˜ '$ $Є _ $'" Є 'ш ш  0~' aЎ'Б "тž ! !!яЄЏЎ***€'и+ Zeilenbegrenzung mittels "~"" fќЄ $ 0~'Є $ 0~'  $ $о' $ $  $J'$ЄHQEЎ'"Ў'$ЄJQEcase $ Є $о'" $ $  $J'$ min_l $Є _kџџАBЄHQEif l JQEg)>mPEЎ'"  "'  " Є Ќр? 'V $Є ”F  0'gž # ##   V а% "  V а%'џџџџаAџџџџ0Kџџџџ(Kи.+ minimale Zeilenlфnge (bzw "0" fќr ungesetzt)и?+ der Rahmenstring sollte dann die Lфnge 1 nicht ќberschreiten)trи2+ max. Stringlфnge bei Trennung gewфhlt werden undи8+ (Tipp: die min.Zeilenlфnge sollte immer grіпer als dieџџџџpJа lџџ№K €B@š €(aџџџџаKx ZъџџџџСdLZЎinWortenъџџџџ 0Џ 8(PU'ЄЄЎTabelle1 0%>%@U,'Bї 8і D!FŒ 8! H”F 8B@JgїПxKх HЏЩN D!F%L.8Ў Parameter9he1 0Ў parameter9bPљЄЩT VЩn 8!R%Lэ f9XnџџАJlџџЈJ›d Jlџџ˜JЎ)фndere/zeige Parameter fќr Zahl_in_Worten9^џџџџ JџџџџHMљ €эџџџџNnџџ(џџџџ`NџџџџO €B@œџџџџРMџџџџZЦЄ ъ№ џџџџјMЄ$А €(ˆЄ$А €(Š'ˆЄ$А €(ŽЄ$А €('ŽЄ$А €(”Є $А €(–'”Є$А €(„Є$А €(†Є$А €(ŒЄ$А €(’Є $А €(˜џџџџMџџџџOЄ$АЄU•(4)=ЏЄ+А=Nula€Є$АUЄ+АЏh`h Є$А$Ц•Є џџџџ Ož$/// /(/-/5/=/F' 4Є$АUЄ$АU,Є$АU,Є$АU,Є$АЄ$АU Є$АUЄ$АU,$  Є$АU Є $АU,Є $АU$'дџџџџOЄ $А €(њџџџџјOС0PСС PСPџџџџPaџџXP  шЄ$ќЎneun• шЄ 'шЏ'оaџџPЏ'оhџџPhџџP  шЄ$ќЎn•ЎЏ'оaџџаO  шЄ$ќЎneun• шЄ 'шЏ'оaџџOЏ'оhџџ€OhџџxOџџџџpO  шЄ$ќЎn•Џ'оaџџ QЏ'о  шЄ$ќЎneun”F шЄ 'шghџџрPџџџџиPІЗAttribute VB_Name = "Modul1" Option Explicit Global tb(11) As Varian6'entwic@kelt vnWinfried Radner 'e-mail: Wolf.W..zinski@onlineho me.de(Benutzung frei - ohne GewфhG HINWEhIS: +?" SO KANN MAN sich se€I eige€=Umwand‚lIsfunkŒzurechtb ie‚!z.B. mit fol€ den St€0ards‚UdNa€chkomma€œeil‚p"unBd€:s" Фr€6‚ alles kl gesch€Њben Tre$nn€ d€Zahls€шngs n€1 max. `34 Zeh‰z "-Рy'+ ˆVor†+" €!С ignoР)"пƒk" "ъs€)gdl€РРlenbeg€ ТnBtels "~ mi5sten0s zw€u ausgeР3 (aPuffќР:nТP"*")‚Р ima le1@lфnge (bzw "Р0" fќrР+РEetzt (Ti€pp: die n.Уƒ soll€Лimmer gшrіп€aР(Р УэALSТP b*Y„;p werСv€I daRahm@6B ЁDdannB!L‚,1 n€at ќbфerAqeiРBC,@> gerufŒwird j3 gaфnz nfСrС–B =Az_in_Wort(A1CС;rest@ыhQPar@єtР&sС^ hier3РividuellФ a )paпт7пh#=„PubР FXuncbd i!†SB$‚‡C€Œrro@r Resu€Nex@With UserForm1 р@If Not IsNull(‘4)) TрcCIntћЃ@š0.€B€суh Els€FeЇ . End |IfШ Љ @R_E hrЂF(in9eРn(i, _‹Љ ctЅ0))пoCшBoo")1џ1ці2џњ3џё‚3эOCрOaD5џёХ.Ю6пвХ.7) mХ8С†/9ЂЄ^1Я@A TPЁh !erљСt'+СH?_Q= і0)ќ: qw!…а2`nаЫAQNSгVumOчIП++Qgс }QE€ingabez §№”S" п, s™`˜v„вfRatE0ŸŸЃktruсžT`OO@Pkаd_Buchst0 _grЈossPFteOЃO@SilА~t0‚a‹1P‰ЕF0_‘Slae‘€= !\?яYжЂ|ЅŽРЎ-"џp ’Я З6ќssišo &БaА,Р’@ mehr бˆ16 ZifferDn Аakl Ѓ)  mќssPi№…зЂЕe$P}e"T0t№ŸTrk`t‹(@4fЬќhРсЂHodЈ B('daPЏe‹nsрЋehlerhaРft darА•pœ‹PНc!Dlok!™…ђПbP™dekl‡A Dim ""eAŠ3er "upЮp .qOeaрЋQРsgpluswГ sgmink'aХfixp24 u. 7РЃf 66Ћ21 geфqГёŒс " 999 DekilliPИen...usрw Co˜‘АЩ (665d_P20‡QArraysrІБЖdefiniбaЕ‘ e(9CЊ1z(13Nd~(zvbœzјeln • QІиB“њzb"(t 20`Щёж 0€:tриbnew!ж вЅnur nЄl=€Ф$( b 9gржP1 nlй SЪcа iАЉvaРоРи;Zфё!ДvёGёSmy_ƒЩс8 A“ztemp]sјgnm=602=`ЎїцSP5ГKAжЧ0ХAЛF j‚:k>_Х jpЊА+zЏea.nk_l0И~left_zero_ŸлПГГГIс)a8lis@‚ф9p Иen = Fal@se nlАChr$(10) 'IsNull eingefќgt, damit im Aufruf auch ";;;<Wert>" ohne Fehler alnom‚mШwird!І Nachk(af ormate 8 =0:anаteil1xР" und ).-*)%2O w€enn > 0AŽ-€,If œ†(Qƒu) Th€…Œ К€1€2mtruрe фnd€Ѕ;‚ =1 --> І"Цs"fмџž„ ?(;„7T€2‚Хerster_Bqstabe_gross=С@schreiPbt d-E n2 † n Т €bei TrРKungB z NUR€ r@Ч  п geБieb@“UРzr@ied zu GROSS2(ў)Œ3г*Ф6€:„ЖQР!Sil@tD)_ѓKХ9dazB-Р]ЖФsg€Bstr@НCu`mіgliРЙ9max_SТlaeџРЗ€2ТВЧ*ЯФ)7Ъ( €-f€в@`ie Variablˆe o)istYФLLRetz‚ц…1in 3er-GruppXgeO(SMу рb Ђep_in_ @BЃ=Н = 0ТšQЂ=sgp=Р+Ц  .Р"sgmbaњ-dEтЭ‚хƒ„Ÿ&ФТ…J`$ssсwк €—u AnхбAcаFunkЁG tрАe_szТЦbз,Р`ob "п@е"ss"€˜sgegџЂ‘с€ ;g$c $#Fц€ to do Zt:@ŸeУŸzifрfer()DZ‡ DeXbAЩSta(rtw!gРыll*tAJKЁ‘h H e`igent"Тьw egО@b FoХ€Bvс2 To SрДŒch $фsv)c6"NР> svяum!kdefs ed(0A"n№}pe (1тPQ": e„(2вzweiтZ3тdPВ4тv 0 в5тfќnf…т6тsechqjИe(7ѓТ^8 ё0т9тneun-РzБ‡А "ё" ('So€8ra f€ќr 16 Ыѓ Db+17‘Ё"zehnzж `anzig пџ17 5g — џQЗ 5Ч ї QК1Фlа еіu dФh {а!`dєtausendУSmillRЛS aJ2s bXџs V“ `mЧЃ #ƒvг quadrVж13&qui|ntшфfї# s?@+щc UзЃ se{ bg 1у Uз#o?AШCDЗcno^nitCЖ23dtekИ2DД'Quelle: http://www.rhrk.uni-kl.d0e/~jаа|/jufo/1999a/nр~16.hьtmРА№F+‡Q1 Ber`:іnQ›№Ÿr№iЅЧ,my_t”а_Ср(KommaP[`0>InStr(1, E– lzah@l, ","ТЧi§Cи€€YY№ЙƒCЕсLeft(>D, - 1PjР"m'mРWSel€ect Casр–ло‚№j'BС7 ƒЇч­nЙ|Ђ -1:ЯBl I i,2  #2@‹: sgn~m $t†qR ight(`Le n(i) 1 '‚n2•unbed№t noАfndiіgxЃ+0QІyŸП Ÿ“эС}І "Pa 2|г2'alСPnativd‘бŠф"+•y-"0 `ЗБ˜reЦ’@у™ siЬnd’b 2,@‘Vнp"(& №)бмƒ|яRs ?s џё=ГР$є ‘~ €?Ÿ4_Цяю+"~)щ Пѕе“№'EрЂpunЎЖd "-" wird einfach ignoriert Case Else: sgnm = ""`En€d SelecN 'Sonderfall 0 If iZ0" ATNДkommaformat20 Then my_stringe(0) Jspalte die Zahl in ihre (max bereich) Ziffern  Whilen>œ jMj + 1Ћ 'z*(j)i Mod 1@0 (geфYt, da sonst м€.lauf€C€~ - Fi x(i /) *" ab 17 StellenA)ztempCRight(i, 1 „TTauseA‚Jrennu€‹ehtc.†ЪewLnLurƒ‚ "Дb is "9€чerd­im ArrдayCg€дgƒд„к?ƒьFC@{To С: ‰MCIntў(Т 2 C‡‰ €{Œƒd-…d@ސA 'ёAi \ЯVf ‰cG™sRbLefaLРen(i) €'D7>WaFЃC Р†fќƒ\Umwandl/СfІРЭРZSУАzu€ gross!Р8j >EЋЛZinАWortР РвEО0abezЙУп!Уз Exit FРunctio}LIfC%Besti|mm!@нРиТ3er GruppeСŠk@š(jТ5РT3 '0,1,2,...Уarb|eilm('@ 3u„swl=7 €Аllia Le6dA'Рl=5 biŒ4Cg3 mm2Cg1 tCbE 0 <& For l k E V0mp -у~tVhрSlРu3 ‚3 ) 'HulerАposiЦ+€ =%^]Ѕ1 `4-zя 2! ZehnL'e€rzeuge f€anteil $535@1 І> ƒЃ‡Є& e(t`Ÿј& d‚Ѕ@-F Ы ЯAт ЃЕу~teB~ф0:J‚tzB D?…)Еfq‚в &р z(tz'ˆa ь€т 3, 4, 5Р, 8, 9awš  &eЋЁфл1Ю:Ъа'Ђ-e)ВшзB@" N"W Ќ €'prќfe @б№ "11c‚‚€*9wЭ5рŸ!t‘!хї=ћx‘1ДjГTb/y_& /•пз2§и2П %uђ@-o џQ†$|+АbŸ Ф‰в~2$у4ппп Ц пз6" €#@ 7" sechzЋ@Fn@t"s2и:-(R ‚ 6чџ“r/3rbХy03 '=5 џ’ЏЏЏ QЌ2ў7Я“rЯЯ‹bЯЩfС"@NСiќebСЯ’ЯЯЯ?' ЯФКђк'wЅ сЇ>0 muп eventuРЉ noПwasШ anin  R'angehфnаgt wrЅ,ЄВђ'€Žр1 qрk+ tўzPvєeqm!Џ•mB{Bzgl#$Y№_Р_7[Р_В1011A 19, 2@'ы@Œ—ˆ,ї†,i…злВ 1BЩ  =фvХ'ж‡KP"e1\d(ўlН@Б_иЭЉё!a~nЃMV’@"ž"B"2eЂp6Ђp10 1еРq1 1рq2`,Їќon„в•Ё”џOOO#TOѓ’т/OO`ЭŒlB"eџ_у\ёgŸфbO чC 9‚0:Ќ w“ 3ГПФ‘ЃAЗгWwрЋ Xtzt ob НыVariabщ`[true=Fоa№ѓ^Р— < ы€ФŸГђtџёТЪF, AЫџцСЫВGAvБІ0ДЂЗng & "s" End If Case `Else:DtSрelect<X'Trennen in 3er Gruppen?!8If t<_i$n_:_g AArl > 0 tHemp ThHm@y_striЌ=  & hzeic$& nl 'einfach no #anf$ќgP:)ŒNepxt l‚JMR ight(1, Len(‰2) +‚ nl)) =@ЏW‚&Ї‡U=€fŽ,ё†) -+ 5ƒ 5†(…Е 'solPl au‰uN€|kommaante"i€ngegt werdС'+3?@# @K†foРrmat = 1ЉЅ AЌГG’р,""у7( @ УЬa€Љ GVor9)Œ>0ЦКƒSшn, т2aЄ"0,Я ) GљАЛerB‡‰ Ф2GE?9- 'mAУ100stel d№raus `‰„b''Vb €+ &VWen3$В 'Erg ebnisа{kl|. Ж#e2Ёy&љЗ •pj.\$}fV$РSilbe6nrcpP_"|р} ПYce]€ѓ^ж) ^DIn vax_lќaepppb.ф‚0H7 ‰`er0!r_B№tŒst€cp‰ossу1e™UС(L Si‚1ља€& 0жгƒцЅO% п3Ass#ssfZqp  Ce_szЗp Fan F€unktionђjАen inWortр:= sgМnmPPfГ@cAє а+Q1ФSвš():Š ы ADs ZPyЮw  08'+С ?ПQ1GabsрЁtl@ OHNE RekurТsёetc.ТВЂna ganz fehlerfrфei№'+"Qƒ–2optimal!ВWENN ma xSЃ& zu kl ,А^nn А%Њint nu'рLa Fbmeld€.СВqbAusњgq‹eАz1a PubpБВЛByVa‚lœ As S‚ ј, _Ђ?`B/ѓ‡Р8egerхOpon@y:аO0"-")—+lokaАPVariab@deklar"a-Dim  (1ž8ZQТ XergЁХщ'“gef p 4Booleap5Дkor№_posQд 3?m iZ On@ Error€(s0ume QШ2 initialisie  а = Cрhr(10P? & ˆ= F be …ќ= bб‚E …ЂК1}< 9ДMЌ+= к9вIл2kSТQqиbsPЅr dРЙћ=  З0Rig":ѓbвlf@rв30Eу3тweiу4їт7у5таЂ6тќnfг7тјchsу№Рcу:9дtГ@Б$eu’nу11ђehѕƒ €Aє“ 0 №’ 1лУ P:t$у s0ta illiD# aиrdeC o№Фbї3}!В;Q) <ё7ур(Not Х @.ѓт( - 40хє!а+‚!7F 'i0 To 1ЪЕ If Mid(Zahlwortstrin€g, maxS(laenge - 2 kor_pos, 2) = tr(i) Tјhen˜Ђ>6~v Tgefund„en/True GoTo das _warsEnd If Next i For ’iD2 413V *$к3 m3m  (n Sele€ct Case…TчЙ‚ 2: Ф€8№, 1)…i …$€"t", "hpu": Ќ EШlseЪ Fa@UяaC6M1Р4д”‚2@Ž<> "en"чBŽ*У3:sРoъ4H СhЈЮ= Ё_РJU;€8YAР 2Ќ1К4BЌ8ERNг4IЌŽ4?уЂBџU17:>Я"‚”Ђ>1)Ђ3„>џwЃ пWуЄс8_ Vj „yР-!Mneu‹eXP=bƒ+ 1=Ÿ!J…˜Gт\R RџрпQbёЇDГ Ј%фРWend ХАd?perg_РФ %&` LeftnШС"-`— & Tren`nzeic€ХРnlЃ$ЋЮ Righб LenŒ )р_С gрDЃЦ= Ш—'0д ЃtAeƒлj ‹ !-Functioм <'+=Ёa in_ei`"l_сюѓ '+AŸ Ÿ # erweitert am 10@.1.200@T'+ z.B. A1= "4-7stќck8OBE NtausP400"№wnn winr0  AP=аgpegeb@|@c‚ vРier-si1bАacht˜сhaјrt"ё1џ сPublic 5E abezАŽ As StГŽ_/;‡9”Opa al Nр kommaformatБ$0,  ers_Buchstр_grolss€r+)— "'lokale Va riableklaraC)Dim#€  IntPr Z l!'CtјchrЉСmћуС6& On Err€—Resu8me ё˜qHIsаMissА(ЬУЂ§/ Р9ђ Р(0! ]-W0ѓ‚u,€ ћ ƒl@БBx@5т Л…Ђ1aw2Hq =bЂёH, i5—9qА”"ЭвZ"2№І"9—4Нb&‘`/%!ѓ"Р ђ‚! : 'VoJr‚%aАilа+ {е g[Жгч•&­pWpМ№DC№-( h), 0*,Р@'sўsУWb mљгi('ir d K Zџѓ\Ў№Qrу˜.БГЯ Я hlЯ Y3)Рdџg ‘T Жз‘ / џ№/ ЯaЁaƒt‘3"< %Щ9#AЂ'letzte Ziffer Nulрl ohn€3EsыТѕ%:& =–OOїЋEI“"Ѓ|< №c d a0 mitз:§ ѓ /  ,=,ў )“Pщ щ§gР>ФћПzOe+Q1 05_zrn(): wa@ыlt d>iрБdД v‘оn ‹Р1№pSтe umeмя• seiВ{3.681.@147,80уze rgibt =e A1;"~";2;ЁфР|daЖie Ausgabe '+ Drei~Sechs~Acht~EinsVier~Sieben Р80/100Р Nachkommaformat%. =0 ohneBanteilB+-1 mit 2 we`nn > ˆfes wird hЊ kein und gefќg“u+> Public Function in_ziff0ern(šЈzahl As String, _ & R”Op#al Trker =p " "ІŒП€0Іerster_Bu€}t@‚_gross€Fals e)Ч0С='lokale VariablendeklaraA/ DPim i Iyg\erC†J'aOƒžCIƒvkMnNpos On Error ResumР›ex€||Initialis€…ung If IsMiss€e(„[) Tўh@Ж _L ŒXD ^РŒ …6€q" G‡ €U"ƒD= InЁ>(1, ,Р}ќ")Bƒ РИ‚'G@= LeftЩ™,т C - 1€˜L@= RighŒ LЂeЪЇ) -$+"~E>Ї h‚‚ ЁEAрjIf FР-i! 1 To`n( vkУЁ3= MiBd , i,ХSelect CaXse `Ђ У"0"Ё"9": Ы‡'%&С &Ѕc . 'ignor1 bn‚"+`j"ў-j a IaУ N`K i ў Щ$"V „`)0'VorТ6#Ђ fehlt bisрf das 0zeic SЧ Isр <> "*ТAd Ю,1„с;1)Т '# Anur А odРf`€s ZУрzwisci"J\€рЎzel_whort`NCС\…,ѓG УХ, s€IA …Ќћс€k+=ЁaЁ…`˜_€rahm):Aq G jea @ ždрЫмbeъraЛsbКsХ'+erweiРБt am 28€.5.2001BС€иe beiƒ`С@м(‚noch €speziel€Anfangs-Aстр)DJрфnzuA5 jandarpd: Rвc>"ј***PK3 П я tBn˜дG4ПtB=Oцt *_uї_&mЁ-P а0TrueпuO 16ByVА}‘Lф”ng@—s _te rн№0?v?v:vn˜…3s‡1•­“restŸ‘zptšztemK7uБOё'~u@ = РChr(10€; ?3p €ЁUrn‡= Ž0ЗnUqф = WS sheet%A.SubstituteѕpУ, nl,§k,&  P!p aЏ лЫ(&ъ’U J1qза…з š{ ˜=Ћ #РDo WhiP;QzэЧ)CЎѕ%p€fƒWПф ‘юх9kpsѓЅbk0:KСЪ'џЗдЅqтрk@? :mЧ, p€ŠЄ)+ѓŽi-ќ p8‘a#з )џЇ Ь [GV!oЯnhа>)&(? R}{ё == Fiаx(((‡)-R‚ˆ р) / 20ё2€) + 0.5œїЁ_3 &oЯЁ>= Rept(™,№мmpСŒŸд? и@?ы// яE._Sѓo% 0Bq—*ї">rO/=/‘Lз—ИLoo$=ёиHzчkrЮІ-Вnrahmen = zusaetzlicheZeile((n_ei) End FunctHion<'+?  '+ aendere_sz(): ф t in Eingabestr al@le "п""ss">Aˆ PРrivater J ByValŒFAsd S‚K) ŒO[rror Resume Nexžt ‡qК l Š WorksheetЗ.Subst@itute( ,П†€…’бjіmРy2Ч1, _ ™Opƒ€Fze“"*" DDim nl#IР = Cрhr(10@4+@N‡+UIf IsNull(D ) T&h€ЕЪ# € LebnЧ< 1в B IBn€C(1, ‡,u0)0B ‚Fл& &<&˜QOyRep2t…(, С+ ) >\BE9G@gСфIfЯцPub€ѓ Sub paramepter(€ “ІСћ‹Х lhџldџ*1hџ8CdџЮ lџlpџћ0<_llџќfxў(˜ў:ШўNИўИўќdшўNиўиўќfјўlc џ(4џlhџCџџ $#tў*1lџ2џtў64џ џјўиўИў˜ўxўldџChџЮ lhџ8ћ=Оhllџќfxў(˜ў:ШўNИўИўќdшўNиўиўќfјўlc џ(4џlhџCџџ $#tў*#pўldџ*1lџ2џtўpў64џ џјўиўИў˜ўxў8ChџЬ llџldџ*1lџ/џ vџd0џmlhџClў llў=ћ0]hllџќfxў(˜ў:ШўNИўИўќdшўNиўиўќfјўlc џ(4џlhџCџџ $#tў*#pўldџ*1lџ2џtўpў64џ џјўиўИў˜ўxўг llў8ћ0mгdllџќf˜ў(Иў:џNиўиўќdјўNшўшўќf џlc4џllhџCџџ $#tў*#pўldџ*1lџ2џtўpў6 4џ џшўиўИў˜ў/lўllџCxџф@г(xџџlўdџhџpџlџ8 џtўpў4џ џјўшўиўИў˜ўxўŒ4Kџџ l c :TџF§0 l c6 (Tџb8Cpџ8Cxџѕ€ 9ѕў§фptџ ktџєкК#ktџє­чl MTџ@Dџ : Dџ`1lџ5Dџ+€ JktџчЎѕЊl MTџ@Dџ ; Dџ`1hџ5DџЬ€ Clџ8ChџєvџllџJфўc@џ‘)(DџkvџчlџMTџ@ џ _ џ`1dџ6Dџ џldџCџlџ=>ћ‹E!lpџldџ*FDџ§Tџћя џ`1pџ6Dџ џ‚ lџdћ0U‚lџ<ћ0mlџћ0xldџCpџ‚8Cpџ/џ vџd@џрlpџCџlџ<ћ0Бlџћ0Р lpџlhџ*1pџ lџ8ћ=4lpџJѕЎpџMTџ@Dџ : DџlhџF0џћя џ`1pџ6Dџ џlhџCpџ/џlllpџCџџ e 1xџ/џ%eh4@(xџџџdџhџpџlџџDџ џLфKџџѕ Xџ MXџ`1tџ5Xџ8Cpџ8Cxџ kєЦТ`l §“@tџ§“@§8џltџFHџћяXџ§(џћяџ`Fџ%џ"f$g дhџўЂєўx@`§' џ6Xџџџєў'§8џ€ FHџћяXџ§(џћяџ`1xџ6Xџџ kєкЗ€ ClџllџJѕлЗѕllџltџѕў§фpjџ8Cpџkjџpђў kђўєЦ,llџCpџ8Clџ kђўєк#kjџє­чlџMHџ@Xџ : Xџ`1pџ5Xџ%llџJkjџчЎlџMHџ@Xџ ; Xџ`1lџ5Xџ lpџJqьўlьўѕЧ›• lьўkчлЗ lxџlpџ*1xџ•=kчlpџJЎьєыЖ§k8џ§HџћыXџћМџўФ(џр?ћ”џћсєўUphџ5џŸlxџ§HџќFXџ%khџы§k8џ%џ"f$g дhџўЂџ@`#шў*#фўlpџ*#Ьў§(џќFџ%khџы§kаў%рў"f$grU€€€€~}  p№ љЉIЉБб‰Yс )QyЁЩё! I Щiq ™ Щ љ ) ё‘ С ё ! A i ™ Щ A q Љ с бY™с!iЉ AЙљ1! 9 Q 1сБ yЩ ‘БЩс1Ia‰ЉбAqIЉЩщ )Ii‰ЉЩщб 1qI 1 aљЉщС™9 1QI‘,Lр|Kџџ"Vќјtџѕ@ Уѕќ–(dџ]ћ/TџќE]ќddџѕR}ѕќ–ќEDdџѕRыѕќ–ќM§јЄўѕќ–ќEDФўѕќ–ќKFфўѕ@ѕќ–ќM§јєўѕќ–ќM§јџѕќ–ќM§ј4џѕќ–ќEDTџl $1lўѕ ќ–ќEѕ ќ–ќM§јpўѕќ–ќKFў>lў§Ч ў 1xџ/ ў6Tџ4џџєўфўФўЄўўpў ѕќјtџ|,xџtџ8  ўlўTџ4џџєўфўФўЄўўpўИ˜Kџџєpvџѕ 1џ l 4 (Фўb l IcФўb l _ ќfФўb l u ќfФўb l ’єџpvџ ќfФўb l$ Ќ :Фў§0$ l( У (Фўb(§(Дў(Фў]ћVЄў\ыCpџClџ§ Cpџ Clџ l,  ќfФўb,єџєBўc ў: єkџч џЂ џd ў$ ѕTџ; ѕTџ; ѕTџ;ѕTџ;ѕTџ;ѕTџ;ѕTџ;ѕTџ;ѕTџ;ѕ Tџ;ѕ <џ;ѕ <џ;ѕ<џ;ѕ<џ;ѕ<џ;ѕ<џ;ѕ<џ;ѕ<џ;ѕ<џ;ѕ<џ;ѕ <џ; ѕ <џ;!ѕ <џ;"ѕ$џ;#ѕ$џ;$ѕ$џ;%ѕ$џ;&ѕ$џ;'ѕ$џ;(ѕ$џ;)ѕ$џ;*ѕ$џ;+ѕ $џ;,ѕ $џ;-ѕ $џ;.ѕ $џ;/ѕ $џ;0ѕ$џ;1ѕ$џ;2ѕ$џ;3ѕ$џ;4ѕ$џ;5ѕ$џ;6ѕ$џ;7ѕ$џ;8Cџѕ€ 9ѕў§фpъў€ Cќў kъўєк+kъўє­ч€ FФўNЄўЄўў : ў`1ќў6Єўўєpшў §(Фў§€ў$€ў(Фў]ћ/Дў§E€ўєЗDpў]ћ/`ў\ћѕќўMФў@Єў : ЄўќіPўPў:Фў]ћ/Дў\ІllџCєў&lќўJѕЎќўMФў@Єў ; Єў`1ќў5ЄўѓPў:Фў<]ћ/Дў\щlpџCєў&lќўJѕЎќўMФў@Єў ; Єў`1ќў5Єўѓ8Cєў5Pўю$€ў(Фў]ћ/Дў§€ўєЗDpў]ћ/`ў\фѕlќўѕў§ѕлzllџCєў3lќўJѕlќўѕў§ЎќўMФў@Єў ; Єў`1ќў5Єўпѕlќўѕў§ѕлеlpџCєў3lќўJѕlќў<ѕў§ЎќўMФў@Єў ; Єў`1ќў5Єўп8Cєўю8Cєў5€ў%lќў=ћ0§јpў§Дў(Фў]ћ/Єўћ'ў\&ѕTџžCџ lќў8ћqв kшўєЉpшў!ѕќўMФў@Єў ; Єў`1јў5ЄўlјўCLўlLў=>ћ‹‰lјўќkшўч џЂЂ єkшўч џЂ kшўє­pшў/Lў&lќўJѕЎќўMФў@Єў : Єў`1ќў5Єў& kшўєBкш?Cxџkшўє­єПpфўkфўцўєєЗўkHў kцўєБєЉч џpрўkцўєБєЉч џpмўkцўєБєЉч џpоў kрўєкp!lџkрўчTџž*#Dўѕ$џž*1џ/DўkмўpBў kBўєЦЙkоўp@ў k@ўєЦЁlџCџДlџkоўч<џž*1џŸ /kBўєЦшkBўєЦшkBўєЦшkBўєЦшkBўє Цokоўp>ў k>ўєЦlџkмўчTџž*1џj k>ўєЦ= lџkмўчTџž*#Dўkоўч<џž*1џ/Dўj+lџkмўчTџž*#Dў@*#8ўkоўч<џž*1џ2Dў8ўŸ kBўєЦѓkоўp6ў k6ўєЦЁlџkмўчTџž*1џю k6ўєЦСlџѕ <џž*1џю+lџkмўчTџž*#Dў@*#8ўkоўч<џž*1џ2Dў8ўŸ kBўєЦw kоўp4ў k4ўєЦ% lџkмўчTџž*1џr k4ўєЦE lџѕ <џž*1џr +lџkмўчTџž*#Dў@*#8ўkоўч<џž*1џ2Dў8ўŸ kBўєЦ kоўp2ў k2ўєЦЉ lџkмўчTџž*1џ k2ўєЦи !lџѕ <џž*#Dўkоўч<џž*1џ/Dў +lџkмўчTџž*#Dў@*#8ўkоўч<џž*1џ2Dў8ўŸ kBўєЦ kоўp0ў k0ўєЦ< lџkмўчTџž*1џ˜ k0ўєЦk !lџѕ <џž*#Dўkоўч<џž*1џ/Dў˜ +lџkмўчTџž*#Dў@*#8ўkоўч<џž*1џ2Dў8ўŸ kрўkоўЉkмўЉpтў kтўєкП kцўp.ў\k.ўєЦ k.ўєЦ k.ўєЦ k.ўє Ц k.ўє Ц k.ўє Ц k.ўєЦ k.ўєЦ k.ўєЦ k.ўєЦr kмўєЦkоўєЦФP lџA*#Dўkцўч$џž*1џ/Dўm lџkцўч$џž*#DўB*1џ/DўН \k.ўєЦЮ k.ўєЦЮ k.ўєЦЮ k.ўєЦЮ k.ўє ЦЮ k.ўє ЦЮ k.ўєЦЮ k.ўєЦЮ k.ўєЦЮ k.ўєЦ kмўєЦkоўєЦФў lџA*#Dўkцўч$џž*1џ/Dў lџkцўч$џž*#DўC*1џ/DўН k.ўєЦ? lџkцўч$џž*1џН k.ўєЦЛ kмўєЦkоўєЦФЖ lџ ћ=§јФў§Дўћ'Єў\Њ 3lџJѕЎџMФў@Єў : Єў:ДўDћяў`1џ6Єўў lџE*1џН kvџkцўєкФkтўєкФў 'lџFФў§$ДўћяЄўlџFpўћяў`1џ6Єўў цўeHў M§$ФўћыЄўlџJ§iДўћ”ўќ"џMpў@ў ; ў§$ ўlџF`ўћяќ§ћ/ь§6ўўќ§\• @lџJ§iДў§$ФўћыЄўћœўlџJ§ipўћœўќ"џM`ў@ќ§ : ќ§`1џ5ќ§§Дў(Фў]ћ<Єў\чkvџР lџlџ*1џ€ Jѕ€ 9ѕў§Ўфpкўkкўч€ JЧђ єpкў(kкўч€ FФўNЄўЄўў ; ў`1№ў6Єўўѕl№ў=ѕў§фpиў kиўєЦe&l№ўJѕЎ№ўMФў@Єў ; Єў`1№ў5ЄўkиўєЫl№ўJѕбХ kкўєЦ’ l№ў=*1№ў'kкўєЦ§јpў§ФўћйЄў(Дў]ћ<ўћ'ў\Ш=C№ўєpкў8Cьў kкўєкхFCьў3§Дў(Фў]ћVЄўkкўєк§јpўћ'ўlџ8ћ=§ј`ўћ'ў\ GCьў*ѕl MФў@Єў ; Єў:ДўH]ћ/ў5Єў\R8Cьў lџlьў*1џ)l№ў=ћq§јpў§ФўћйЄў(Дў]ћ<ўћў\– l№ўI*1№ўЇ8C№ўєpкўєpжўkкўkжў­єкл l№ў=*1№ў kжўєЉpжўА lџl№ў*1џ §Фў\ l$§ ФўќElџ J 1џ §Фў\nUѕџMФў@Єў : Єўў KўlџJѕЎџMДў@ў ; ўћяќ§`1џ6Єўўўќ§ §,Фў\† lџ L1џ lєўlџ*1xџ(˜ј†рxџLў€ўPўќўџ<џјўџ№ўєўpџьў$џnneicTџМsI%  џClџ(Dў8ўЄўўўќ§ь§0 ќЦ   \фKџџ l c (Tџb8Cpџ§Dџ(Tџ]ћ<4џ\C9Cpџ8Clџ € Jфptџ дhрўўЂєў@`#Шў*1xџ2шўфўЬўШў)џрў6XџџџєўllџJѕлВ lxџltџ*1xџз §Hџ\п:HџjNXџXџxџ i1xџ5XџДф4пxџpџtџlџ4 шўфўЬўШўџрўXџџџєў˜Xў“ tџKџџltџCxџ=tџ§“@:`џk%:Pџl%pџ"f$g дhpџўЂ@џx@`1xџpџ5@џђE<X, xџtџpџ@џHєKџџѕ dџ Mdџ`1tџ5dџ€ Cxџ l @ :Tџj§0§Tџћыdџ(Dџ]ћc4џ\d :Tџj§0ѕ€ ltџѕў§ѕЧьk€ ltџ*#ьў§ џќFџ%€ J§iDџ§TџћыdџћЌ4џB§kџ%0џ"f$g дh0џўЂ№ў@`#шў*1xџ2ьўшў0џ6џ№ў ”є,ьxџtџ(ьўшў0џdџ4џџ№ўМ„Kџџ3ѕќ–Nhџhџxџ"$ oxџ €nxџ5hџ3ѕќ–Nhџhџxџ"$ ”oxџ €nxџ5hџ3ѕќ–Nhџhџxџ"$ ˜oxџ €nxџ5hџ3ѕќ–Nhџhџxџ"$ œoxџ €nxџ5hџ3ѕќ–Nhџhџxџ"$  oxџ €nxџ5hџ3ѕќ–Nhџhџxџ"$ Єoxџ €nxџ5hџ3ѕќ–Nhџhџxџ"$ Јoxџ €nxџ5hџ3ѕќ–Nhџhџxџ"$ Ќoxџ €nxџ5hџ3ѕќ–Nhџhџxџ"$ Аoxџ €nxџ5hџ3ѕ ќ–Nhџhџxџ"$ Дoxџ €nxџ5hџ3ѕ ќ–Nhџhџxџ"$ Иoxџ €nxџ5hџ3ѕ ќ–Nhџhџxџ"$ шoxџ €nxџ5hџ"$ў €„$ xџhџC__SRP_7 џџџџAдUserForm1џџџџМ 8__SRP_2 џџџџл__SRP_3џџџџџџџџџџџџMк џ 0ЏЏЏ8I`§џџџџџџџџџџџIqбљ*** џџ0ЏЏ†(q`ќџџџџџџџџџџџI,™`ќџџџџџџџџџџџ™Й*І0Џ$С`§џџџџџџџџџџџprU€€€ џџџџџџџџ $щ`№џџџџџџџџ$)`єџџџџџџџџ$i`јџџџџџџџџ$Љ`ќџџџџџџџџА'Шр€ џџџџ"H +Ph"h(p'ˆ € џџџџ" 0+(@"(80'H`€ џџџџ"ј@+€ џџџџ"аH+и№€ џџџџ"ЈP+АШ€ џџџџ"0X+8P"ш`№' € џџџџ"h+€ џџџџ"Xp+`x"ЈxА'Шр€ џџџџ"€€+ˆ € џџџџ"Рˆ+ш"0p'ˆ € џџџџџџџџЈџџџџxlџџlџџ ”!f ”( llџџ ”!f ”( lџџ Є$А'Š'Є$А'Œ'Є $А'–"2Є$А''Є$А'”'Є $А'˜Є$А'’ Є$А'„'Є$А'†'Є$А'ˆ'Є$А'Ž'џџџџ№Шlџџ ”!fЄ+Аџџџџџџ ’!fЄ+АџџџџџџlџџРP –!fЄ +Аџџџџџџlџџ˜ ˜!fЄ +Аџџџџџџlџџpа !fЄ+АџџџџџџlџџH@ Ž!fЄ+Аџџџџџџlџџ Р Œ!fЄ+АRi%Фlџџ Š!fЄ+А€lџџ№@ ˆ!fЄ+АџџlџџШа †!fЄ+АЕTlџџ а „!fЄ+АџџџџџџlџџxlџџhЄ$А'„Є$А'†џџЄ$А'ˆџџЄ$А'ŠЄ$А'ŒЄ$А'ŽЄ$А'Є$А'’Є$А'”Є $А'–Є $А'˜џџџџРlџџplџџ`lџџPlџџ@ DB@оџџџџџџџџџџ8џџџџ lџџА њ!fЄ +Аx њ!fЄ +А#lџџxџџџџpј lџџџџџџјlџџИ lџџЖџџџџџџџџœџџЂгјa\еН DESTЂгјa\еН DESThЂгјa\еН DESTŽЂгјa\еН DESTџџџџџџџџџџџџxъ+цџџџџeRHЧџџˆŽЂгјa\еН DESTЂгјa\еН DESTџџ$+ттh6џџџџ4б8в<г@дDеHжLзPиTйXк\л`мdнhпlрpсtтxу|ф€х„цˆчŒщъ”џџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ SPџџџџSџџџџSџџџџSџџџџ6"џџџџ<(џџš џџџџLџџџџџџџџLџџџџ<,џџ<0џџ<4џџ<8џџ<<џџ<џџџџџџš0{24AC030A-059F-11D6-A92C-000374890932}{24AC0300-059F-11D6-A92C-000374890932}o=!;$*\Rffff*203b213d99$*\Rffff*1f3b213d99ц*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\SYSTEM\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44ц*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\SYSTEM\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#55пш $ўџ0џџџџ(џџџџџџџџџџ.+ $ўџџџџџџџџџXџџ0џџџџџџџџ $$ƒўџџџџџџџџџџџџџџџџџџџџџMo$‚ €џџџџўџџџРџџўџџџџџџџџџџџro$ƒўџџџџџџџ№џџџџџџџџџџџџџџШ M$ƒўџџџџџџџ џџџџџџџџџџџџџџџџџџ$$$iƒўџџџџџџџџџџџџџџџџџ џџџџiƒўџџџџџџџџџџџџџџџџџ џџџџƒўџџџџџџџ џџџџџџџџџџџџџџџџџџ$‚ €џџџџўџџџаџџўџџџџџџџџџџџџџџџ$ƒўџџџџџџџџџџџџџџџџџџџџџ4ЗG$ƒўџџџџџџџ0џџџџџџџџџџџџџџџџџџ$$$iƒўџџџџџџџџџџџџџџџџџ џџџџ$iƒўџџџџџџџџџџџџџџџџџ џџџџ‚ €џџџџўџџџ(џџўџџџџџџџџџџџƒўџџџџџџџ0џџџџџџџџџџџџџџƒўџџџџџџџџџџџџџџџџџџџџџџџџџ$$$iƒўџџџџџџџџџџџџџџџџџ џџџџ‚ €џџџџўџџџ8џџўџџџџџџџџџџџџџџџ$$$ „mџџџџxџџџ˜€$ƒўџџџџџџџ@џџџџџџџџџџџџџџЂP `џџџџџџџџdџ/џџџџe  >œџџџџiƒўџџџџџџџџџџџџџџџџџ џџџџƒўџџџџџџџ`џџџџџџџџџџџџџџџџџџ‚ €џџџџўџџџhџџўџџџџџџџџџџџ џџƒўџџџџџџџxџџџџџџџџџџџџџџƒўџџџџџџџhџџџџџџџџџџџџџџџџџџџџџџ0ФР`џџџџџџџџpdџ/џџџџџџџџє”ШД  `џџџџџџџџdџ/џџџџџџџџ 4”џџџџЖр `џџџџџџџџdџ/џџџџџџџџ$ C”џџџџИ `џџџџџџџџ!dџ/џџџџџџџџ,M”џџџџК `џџџџџџџџdџ/џџџџџџџџ /”џџџџ‚ €џџџџўџџџpџџўџџџџџџџџџџџр$Ма`џџџџџџџџdџ/џџџџџџџџ*”ƒўџџџџџџџ8џџџџџџџџџџџџџџџџџџ$$$О@`џџџџџџџџdџ/џџџџџџџџ %”Р`џџџџџџџџ dџ/џџџџџџџџ”hўGТ``џџџџџџџџpdџ/џџџџџџџџќ”ƒўџџџџџџџЈџџџџџџџџџџџџџџџџџџ$$$$$Ца`џџџџџџџџpdџ/џџџџџџџџ№”iƒўџџџџџџџџџџџџџџџџџ џџџџƒўџџџџџџџXџџџџџџџџџџџџџџџџџџ$$$$$ƒўџџџџџџџЈџџџџџџџџџџџџџџџџџџ‚ €џџџџўџџџАџџўџџџџџџџџџџџƒўџџџџџџџИџџџџџџџџџџџџџџlє%e‚ €џџџџўџџџ`џџўџџџџџџџџџџџџџџџƒўџџџџџџџhџџџџџџџџџџџџџџџџџџџџџџ№ ‚ €џџџџўџџџџџўџџџџџџџџџџџƒўџџџџџџџџџџџџџџџџџџџџџџџџџ˜џџџџ№iƒўџџџџџџџџџџџџџџџџџ џџџџƒўџџџџџџџРџџџџџџџџџџџџџџџџџџ$$$iƒўџџџџџџџџџџџџџџџџџ џџџџƒўџџџџџџџX џџџџџџџџџџџџџџџџџџ$$$$$‚ €џџџџўџџџШџџўџџџџџџџџџџџА ƒўџџџџџџџpџџџџџџџџџџџџџџџџџџ$$$$iƒўџџџџџџџџџџџџџџџџџ џџџџƒўџџџџџџџxџџџџџџџџџџџџџџџџџџ$$$iƒўџџџџџџџџџџџџџџџџџ PџџџџH‚ €џџџџўџџџАџџўџџџџџџџџџџџџџџџƒўџџџџџџџИџџџџџџџџџџџџџџџџџџ‚ €џџџџўџџџј џџўџџџџџџџџџџџџџџџƒўџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџа ƒўџџџџџџџ џџџџџџџџџџџџџџџџџџ‚ €џџџџўџџџx џџўџџџџџџџџџџџџџџџƒўџџџџџџџа џџџџџџџџџџџџџџџџџџiƒўџџџџџџџџџџџџџџџџџ џџџџўџџџџ`џџџџџџџџ˜#dџoџџџџџџџџ4V”аƒўџџџџџџџш џџџџџџџџџџџџџџџџџџ‚ €џџџџўџџџ8 џџўџџџџџџџџџџџџџ‚ €џџџџўџџџ` џџўџџџџџџџџџџџ˜ƒўџџџџџџџh џџџџџџџџџџџџџџџџџџiƒўџџџџџџџџџџџџџџџџџ џџџџƒўџџџџџџџp џџџџџџџџџџџџџџџџџџ‚ €џџџџўџџџи џџўџџџџџџџџџџџџџџџƒўџџџџџџџр џџџџџџџџџџџџџџџџџџiƒўџџџџџџџџџџџџџџџџџ џџџџiƒўџџџџџџџџџџџџџџџџџ џџџџƒўџџџџџџџ@ џџџџџџџџџџџџџџа$И `џџџџџџџџШ"dџ/џџџџџџџџ0R” џџ`џџџџџџџџ dџoџџџџџџџџ(G”џџџџШ `џџџџџџџџdџoџџџџџџџџ 8”Ш `џџџџџџџџјdџoџџџџџџџџ”рƒўџџџџџџџШџџџџџџџџџџџџџџџџџџ$$$iƒўџџџџџџџџџџџџџџџџџ „$Р`џџџџџџџџˆdџoџџџџџџџџ”џџџџiƒўџџџџџџџџџџџџџџџџџ @‚ €џџџџўџџџаџџўџџџџџџџџџџџаƒўџџџџџџџиџџџџџџџџџџџџџџџџџџ$ @`џџџџџџџџpdџoџџџџџџџџј ”џџџџƒўџџџџџџџH џџџџџџџџџџџџџџџџџџ‚ €џџџџўџџџ˜џџўџџџџџџџџџџџџџџџƒўџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџ`аа@џџџџџџџџџџџџџџџџР@Ра ШPрИ џџџџџџџџџџџџџџџџƒўџџџџџџџИџџџџџџџџџџџџџџџџџџ‚ €џџџџўџџџ8џџўџџџџџџџџџџџџџџџ$ƒўџџџџџџџhџџџџџџџџџџџџџџџџџџ$џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@(Xџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ„Аџџџџџџџџџџџџџџ@ўџџџџџxџџџ џџ џџџџ@ўџџџџџtџџџџџ џџџџ@ўџџџџџdџџџ џџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@(Xџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ†Аџџџџџџџџџџџџџџ@ўџџџџџxџџџ џџ џџџџ@ўџџџџџtџџџџџ џџџџ@ўџџџџџdџџџ џџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџX@џџџџџџџџ(џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџА†џџџџџџџџџџџџџџ@ўџџџџџlџџџ џџ џџџџ@ўџџџџџhџџџ џџ џџџџ@ўџџџџџdџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@(XџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџˆАџџџџџџџџџџџџџџ@ўџџџџџxџџџ џџ џџџџ@ўџџџџџtџџџџџ џџџџ@ўџџџџџdџџџ џџ џџџџџџџџАˆџџџџџџџџˆџџ@ўџџџџџlџџџ џџ џџ@ўџџџџџhџџџ џџ џџ@ўџџџџџdџџџџџ џџџџŠАdџџџџџ џџџџџџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџИ џџџџџџџџˆџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџpџџџџџџџџPџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџX@pџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџаџџџџ@ўџџџџџxџџџ џџ џџџџ@ўџџџџџtџџџџџ џџџџ@ўџџџџџdџџџ џџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџpXџџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(џџџџџџџџАŠxtџџџџџ@ўџџџџџlџџџ џџ џџ@ўџџџџџhџџџ џџ @ўџџџџџdџџџџџ џџџџАџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`Hxџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0џџџџџџџџŒАџџџџџџџџџџџџџџ@ўџџџџџxџџџ џџ џџџџ@ўџџџџџtџџџџџ џџџџ@ўџџџџџdџџџ џџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`Hxџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0џџџџџџџџŽАџџџџџџџџџџџџџџ@ўџџџџџxџџџ џџ џџџџ@ўџџџџџtџџџџџ џџџџ@ўџџџџџdџџџ џџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`Hxџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0џџџџџџџџАџџџџџџџџџџџџџџ@ўџџџџџxџџџ џџ џџџџ@ўџџџџџtџџџџџ џџџџ@ўџџџџџdџџџ џџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`Hxџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0џџџџџџџџ’Аџџџџџџџџџџџџџџ@ўџџџџџxџџџ џџ џџџџ@ўџџџџџtџџџџџ џџџџ@ўџџџџџdџџџ џџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџx`џџџџџџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0џџџџџџџџА’џџџџџџџџџџџџџџ@ўџџџџџlџџџ џџ џџџџ@ўџџџџџhџџџ џџ џџџџ@ўџџџџџdџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`Hxџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0џџџџџџџџ”Аџџџџџџџџџџџџџџ@ўџџџџџxџџџ џџ џџџџ@ўџџџџџtџџџџџ џџџџ@ўџџџџџdџџџ џџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ` H x џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0 џџџџџџџџ–Аџџџџџџџџџџџџџџ@ўџџџџџxџџџ џџ џџџџ@ўџџџџџtџџџџџ џџџџ@ўџџџџџdџџџ џџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџx!`!џџџџџџџџH!џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0!џџџџџџџџА–џџџџџџџџџџџџџџ@ўџџџџџlџџџ џџ џџџџ@ўџџџџџhџџџ џџ џџџџ@ўџџџџџdџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`"H"x"џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0"џџџџџџџџ˜Аџџџџџџџџџџџџџџ@ўџџџџџxџџџ џџ џџџџ@ўџџџџџtџџџџџ џџџџ@ўџџџџџdџџџ џџ џџџџџџџџњАџџџџџџџџџџџџџџ@ўџџџџџxџџџ џџ џџџџXџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџh#Ј"€#џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ"џџџџ@ўџџџџџtџџџџџ џџџџ@ўџџџџџdџџџ џџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€$h$џџџџџџџџP$џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8$џџџџџџџџАњ@ўџџџџџlџџџ џџ @ўџџџџџhџџџ џџ @ўџџџџџdџџџџџ џџџџ№ аџџџџџџџџџџџџИ џџџџџџџџ0џџџџџџџџ@ 8№џџџџџџџџџџџџџџџџџџџџџџxMEџџџџџџџџџџўЪ\€€ џџџџ"˜+ И€ џџџџ"p+x"ЈЄ $АU,Є +АЄ $А њ(f11)=noЄ $АU,Є +АЄ $А њ(flџџ рЄ $АU,Є +АЄ $А –(flџџ` Є$АU,Є+АЄ$А ’(flџџ Є$АU,Є+АЄ$А Š(flџџр`Є$АU,Є+АЄ$А ˆ(flџџ РЄ$АU,Є+АЄ$А †(flџџ`џџџџ` lџџрХџџиСаСШСРСИСАСЈС С˜ССˆС€СxСpСhС`СXСPСHlџџ8џџџџ84ВAttribute VB_Name = "UserForm1" " €Bas€0{24AC030A-059F-11D6-A92C-00037489 0932}J0J dCreatab‚liFalse „Predecla‰IdЎTru "РExpose@Template Deriv–Cu@stomiz‹DO@ption 0licit P€"€& Sub TextBox1_Change() O€rro@r Resu€ЏN tb(,0)`. XEnd%-2%-1 -2 -‰YLabevl€4k,Р+Not CBoolў(BР83D>C5‚е33%32333€ч!3 32) 3C3V2@[f4%3334п3€!3 33 3CЕ3335Ÿ#X4ˆЖ5’c6_ C 5H Ж6_ рn7_ C 6H Ж7_ @ 8_ C 7H ž8M юnР П;b(‚ ]Њ;7Ћ;# Ѓ;7О;9kŸƒ8ˆ9џ$р$1–0 c 9h 10>%Г _%b(Т J%9K%kd c%9~%1ŸЙр ћсЊЙ1п%С%џЙЅ Кj1?К1_К Ђ?]11Z]1+xџ l>tџFdџѕRxџ5dџџ8$ tџxџdџt8Kџџ+tџxџ! Ќxџ l>tџFdџѕRxџ5dџџ 8$ tџxџdџˆPKџџѕќ–ќMУ§јlџѕR'ѕќ–§ўdџhџ! Ќhџ h/dџhџP$ dџhџt8Kџџ+tџxџ! Аxџ l>tџFdџѕRxџ5dџ8$ tџxџdџt8Kџџ+tџxџ! Дxџ l>tџFdџѕ Rxџ5dџ8$ tџxџdџˆPKџџѕ ќ–ќMУ§јlџѕ R'ѕ ќ–§ўdџhџ! Дhџ h/dџhџP$ dџhџt8Kџџ+tџxџ! Иxџ l>tџFdџѕ Rxџ5dџ8$ tџxџdџt8Kџџ+tџxџ! шxџ l>tџFdџѕ Rxџ5dџ8$ tџxџdџˆPKџџѕ ќ–ќMУ§јlџѕ R'ѕ ќ–§ўdџhџ! шhџ h/dџhџP$ dџhџ8<h@lDpHL P T € X \ˆ`”O$щ`џџџџџџџџ$)`џџџџџџџџ$i`џџџџџџџџ$Љ` џџџџџџџџ$щ`џџџџџџџџ$) `џџџџџџџџ$i `џџџџџџџџ$Љ `џџџџџџџџ$  ` џџџџџџџџ$I `$џџџџџџџџ$‰`(џџџџџџџџ$Щ`,џџџџџџџџ$ `0џџџџџџџџ$I`4џџџџџџџџpјВ€0* pH‚dф VBAProjeˆct4@j = r o=!;” J< r€stdole>stdo€le f%\*\G{00€020430-C 0046}#2.0#0#C:\WINDOWS\SYSTEM\c2.tlb#OLE Automation#^€MSForms>!SFEr€ms/z€ p€FC29D6160-F580-11D4-A92CF3748900932F3.TWD#Micro soft = ` ObА Lib0rary90€r€?A1C12F83-04AEƒ?BDA0-C0CE63C9ˆ?€„P\VBE\…@EXЇ@с.E р….``ŒM ДŒpOPfficpOmfPicp‚Р+x_VBA_PROJECTџџџџџџџџџџџџъх'dirџџџџџџџџџџџџYќ__SRP_0џџџџџџџџA'__SRP_1џџџџџџџџџџџџe.rU€€ шЈQI‘,бKЁIЩI LџџџџQI4™)1С)џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8*qЉ*ббб`ёџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ<*qI+ввв`1џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@*qi+ггг`БџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџD*q‰+ддд`1џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџH*qЉ+еее`БџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџL*qЩ+жжж`ёџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџP*qщ+ззз `1џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџT*qщ#иии `qџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџX*qщййй `џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ\*q ,ккк `Qџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`*q),ллл`бџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџd @‘YAмммџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџh @‘qAнннЈ§џџ`qџџџџџџџџџџџџџџџџџџџџџџџџџџџџl @‘‰AпппЈ§џџ`ёџџџџџџџџџџџџџџџџџџџџџџџџџџџџp @‘ЁAрррЈ§џџ`qџџџџџџџџџџџџџџџџџџџџџџџџџџџџt @‘1@сссџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџx @‘I@тттџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ| @‘a@уууџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€ @‘y@фффЈ§џџ `Бџџџџџџџџџџџџџџџџџџџџџџџџџџџџ„ @‘‘@хххџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџˆ @‘Љ@цццЈ§џџ`‘џџџџџџџџџџџџџџџџџџџџџџџџџџџџŒ @‘С@чччџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ*q Dщщщ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ” @‘)DъъъЈ§џџ`Qџџџџџџџџџџџџџџџџџџџџџџџџџџџџuџ?Пџ?Пџ?П_Ÿп_t8Kџџ+tџxџ! xџ l>tџFdџѕRxџ5dџџ8$ tџxџdџt8Kџџ+tџxџ! ”xџ l>tџFdџѕRxџ5dџ8$ tџxџdџˆPKџџѕќ–ќMУ§јlџѕR'ѕќ–§ўdџhџ! ”hџ h/dџhџ>DP$ dџhџt8Kџџ+tџxџ! ˜xџ l>tџFdџѕRxџ5dџ8$ tџxџdџˆPKџџѕќ–ќMУ§јlџѕR'ѕќ–§ўdџhџ! ˜hџ h/dџhџ\P$ dџhџt8Kџџ+tџxџ! œxџ l>tџFdџѕRxџ5dџџџџ8$ tџxџdџˆPKџџѕќ–ќMУ§јlџѕR'ѕќ–§ўdџhџ! œhџ h/dџhџџP$ dџhџt8Kџџ+tџxџ!  xџ l>tџFdџѕRxџ5dџ8$ tџxџdџt8Kџџ+tџxџ! Єxџ l>tџFdџѕRxџ5dџѓG8$ tџxџdџt8Kџџ+tџxџ! Јћѓ €џџџ_B_var_temp€џџџ_B_var_vЂ€џџџ_B_var_uЂ€џџџ_B_var_trennerD€џџџ_B_var_nk_langP)€џџџ_B_var_nachkommaм7 €џџџ_B_var_lvЯђ€џџџ_B_var_tot_lenњЂ€џџџ_B_var_l_string§W €џџџ_B_var_lauf Ю _B_var_Midэp €џџџ_B_var_IfPђundtrueŽU€џџџ_B_var_undtrue‘I €џџџ_B_var_WhileIfrighU3 €џџџ_B_var_righјTrim@я _B_var_TrimmTnachkommѓ­nachkomт{nachko›/nachkЛŠnachёnac Иna\^First_non_zeroа‘€џџџ_B_var_first_non_zeroЁ8 €џџџ_B_var_Loopе left_zero?џ€џџџ_B_var_left_zeroљmystringі€џџџ_B_var_mystring=лXo€џџџ_B_var_tЂ trenn_strыmy_strZtrK_ €џџџ_B_var_trѓѓmillНWsendЭфion`ŸgefundenPj€џџџ_B_var_gefundenйAkor_pos`\€џџџ_B_var_kor_posф_ €џџџ_B_var_ForjLposдФ €џџџ_B_var_posхinstЮ\ €џџџ_B_var_inst:ТdasЂ‚ €џџџ_B_var_Goto8<das_warsЅberg_strL§€џџџ_B_var_erg_str‘ _B_var_Chr\; €џџџ_B_var_my_strТдtrenn"the_strŽ›byvarЫ‰posmid Э €џџџ_B_var_posmidsGmslen{trchrŽ €џџџ_B_var_trchrКкthe'й€џџџ_B_var_das_wars.: €џџџ_B_var_Select'EStr—е €џџџ_B_var_the8– _B_var_StrЈ’bereich2€џџџ_B_var_bereichЖdberE> €џџџ_B_var_dberБЃd_ber/ќ €џџџ_B_var_d_berР €џџџ_B_var_constgfirst_let_gross§џ€џџџ_B_var_first_let_grossщfist_let_grossgKgross2JС €џџџ_B_var_gross2Д;big2Ђиlarge2‘uppermy_stringupper6b €џџџ_B_var_upper#& uppercaseА›capitalT2 €џLargeChangeŸЦ Largechange2љХ LargeChange3њХModul2Ю„џџџMakro1C|€џRangeк  €џActiveCellНЗ €џFormulaR1C1S€џџџ_B_var_fist_let_grosswђ€џџџ_B_var_LargeChangeИ„џџџMakro2D|€џProper€{ €џџџ_B_var_Proper)іpropper;‹€џџџ_B_var_PropperПŽCChro~ €џџџ_B_var_CChrлуVChr%* €џџџ_B_var_VChr‘Vstrq €џџџ_B_var_VstrнцChrWЂš _B_v‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’ўџџџ”•–—˜™š›œžŸ ЁЂЃЄЅІЇўџџџЉўџџџЋЌ­ЎўџџџАБўџџџГДЕЖЗИЙКЛўџџџНОПўџџџСТУФХЦўџџџШўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџar_ChrWUCase5  _B_var_UCaseaЮ _B_str_LeftVƒ _B_str_UCaseKaX _B_str_Right#(leerО{IsEmpty љ IsMissing˜эЌ(in_einzel_wortenAщ€џџџ_B_var_in_einzel_worten;ausgТT €џџџ_B_var_ausg.Кausgabe.€џџџ_B_var_ausgabeŸ1 endiselect'б €џџџ_B_var_EndоFzahl$6 €џџџ_B_var_zahl›tchrщž €џџџ_B_var_tchr Ќ(in_ziffernrЮkommaœкvkŽ_nkf^ €џџџ_B_var_komma‰ž €џџџ_B_var_vk6є €џџџ_B_var_nkѓ first_letЋVgrossЁяin_einzelwortenaІ€џџџ_B_var_in_einzelwortenєgroпэцaus{u €џџџ_B_var_ausŒ2 korrekturoЖ endselect‹Д €џџџ_B_var_On6ѓsgnmˆя €џџџ_B_var_sgnmЕTasugabeŠ$€џџџ_B_var_asugabe(trenne_in_3er_gruppenШз€џџџ_B_var_trenne_in_3er_gruppen2WIsNullЏФ trennchar—Д€џџџ_B_var_trennchar[Ў trenn_spezialћe the_stringж€џWorksheetFunctionѓ& €џSubstitute^Я Ќ(Zahl_in_Wort.kvz_sgplus-sgminusЮФ€џџџ_B_var_sgminusЬa^џ ф*\G{000204EF-0000-0000-C000-000000000046}#3.0#9#C:\PROGRAMME\GEMEINSAME DATEIEN\MICROSOFT SHARED\VBA\VBA332.DLL#Visual Basic For Applications№*\G{00020813-0000-0000-C000-000000000046}#1.2#0#C:\microsoft office\Office\EXCEL8.OLB#Microsoft Excel 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{A1C12F83-04AE-11D4-BDA0-C0CE63C90000}#2.0#0#C:\WINDOWS\TEMP\VBE\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џџџџџџo=!;џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџeR"DieseArbeitsmappe 1d3b213d99*DџџgR`џџџџ4џџTabelle1 1e3b213d99*DџџaR0њџџ Modul1 1f3b213d99*DџџH%џџџџ`фШџџUserForm1 203b213d99*DџџHЧ`џџџџh6џџH€џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџал§с\еН DESTџџџџzЗэ#ў[еН DESTџџџџyЗэ#ў[еН DESTџџџџџџџџН DESTџџџџ|Ђгјa\еН DESTџџџџџџџџ€€ˆЌџД` €џAs €џb€џBoolean€џbyval€џCase"€џConst=€џDim@€џdoD€џElseE€џElseIfH€џendifQ€џexplicitS€џFalseU€џFor_€џGoTo`€џIfc€џInk€џIntegerl€џIsz€џloop†€џNotˆ€џNullŒ€џoption€џOptional–€џPublicž€џresumeА€џSubГ€џThenД€џToЕ€џTrueМ€џuntilН€џVariantО€џWendП€џWhileС€џwith Excel€+ VBAїтWin16С~Win32MacГВProjekt1вA stdole“` MSFormsC VBAProjectОП Officeu DieseArbeitsmappeЏ €џ_Evaluateй Tabelle1RŠTabelle2SŠTabelle3TŠ Modul1ЭЌ(inWorten ўiiЋ]nk_formвоmslVЕ max_str_lenБze\zqziffernlg^ChrK~i`h_tkmdnecZulvm my_stringАc komma_stelleЊ jaRight kblcthA_te>_tzS_tempRЊTrenner Ank_langM5 Nachkomma>lv'^tot_lenvŸl_stringt€laufžhd[€џџџ_B_var_dЂ €џџџ_B_var_caseГкWorkbookk WorksheetСў _B_str_Chrm# €џџџ_B_var_nlѓ€џџџ_B_var_i Ђ€џџџ_B_var_my_stringѕl€џџџ_B_var_komma_stelle‡V _B_var_LeftQс€џџџ_B_var_j Ђ _B_var_Right9й€џџџ_B_var_k Ђ€џџџ_B_var_l Ђ €џџџ_B_var_thщѓ €џџџ_B_var_teцѓ €џџџ_B_var_tzRШ €џџџ_B_var_sgplusСЇ€џџџ_B_var_Function™O change_to_ss­ћss'_by_valЬm change_sz? Eingabezahl NachkommaformatVerster_Buchstabe_gross{ћSilbentrennung_einЅmax_Stringlaenge<Ž TrennzeichenSЩVorzeichenformatu ss_ein rsv*_ Kommastellej Ќ(trenneStringФ aendere_sz3?ZahlwortstringЫљmaxStringlaengeљ›Ќ(Zeilen_einrahmen!, Eingabestring0ю RahmenstringвЛztempФzusaetzlicheZeileЯЄ meinStringyBzeichenУA€џReptJLe^ €џџџ_B_var_LeОђmin_zweiZeilen min_Lфnge‘аpg €џџџ_B_var_Do ё teilstring1– reststring™ˆzellen_einrahmen•€џџџ_B_var_zellen_einrahmen—9zeilen_eеРzeileneinrahmenKш Ќ(parameterhˆ €џThisWorkbook|у€џIsAddin~| Workbook_Open›с ErstelleCbнЉcbЦ\FEHLERОВ max_Merkerzн €џWorksheetsМј€џCellsstart_inputbox_jar™ €џApplicationЅ* €џCommandBars cb_titleЎЯ€џDeleteИxAddїr Temporary–л€џVisibleЖг€џControlsЬKbefore‰о€џmsoControlButtonnѕ€џStyleХp €џmsoButtonIconJц€џFaceIdЪi €џTooltipTextb?tt1Як€џOnAction„ erstelleCb_FEHLERђ€џmsoButtonCaptionЈБ€џCaptionxWorkbook_BeforeCloseВзCancelё˜ €џBeforeClose~;€џџџ_B_var_ErstelleCb €џџџ_B_var_cbnё setwarnings˜ €џDisplayAlertsєі€џ_DefaultjТ €€џinworten.xlsЮ €џџџ_B_var_WithYБ €џWorkbooksBь UserForm1)ж„џUserFormNTextBox1ІSTextBox2ЇSTextBox3ЈSTextBox4ЉSTextBox5ЊSTextBox6ЋSTextBox7ЌSTextBox8­STextBox9ЎS TextBox10ђЇ TextBox11ѓЇ€џHide9z€џShowѕ€џџџ_B_var_UserFormм€џValueфKTextBox9_Changeќм€џChangeЃЧ ReturnBooleanщe TextBox9_Exit`UserForm_ClickлјUserForm_Initialize5c €џџџInitializeгNЌ(tb;_ €џџџ_B_var_tbуѓTextBox8_ChangeTмTextBox10_ChangearTextBox11_ChangeˆcTextBox7_ChangeЌлTextBox6_ChangeлTextBox5_Change\кTextBox4_ChangeДйTextBox3_ChangeшTextBox2_ChangeхчTextBox1_Change=чUserForm_ActivateZs€џActivate—|€џџџ_B_var_TextBox1/+€џџџ_B_var_TextBox20+€џџџ_B_var_TextBox31+€џџџ_B_var_TextBox86+UserForm_MouseMoveiБButtonкцShiftфыYlUserForm_DeactivateЬТ €џCalculateћ•€џClickŠу €џDeactivatejЎLabel1,Label2Ž,Label3,Label4,Label5‘,Label6’,Label7“,Label8”,Label9•,Label10@Label11A TextBox12єЇLabel12B Label12_ClickX{esleТ_TextBox12_Change0d Label10_Click8  Label8_ClickЏs Label4_Click-„ Label3_Clickœ< Label2_ClickŒ€џSheets  €џCommandBarџџxџџџџџџџџџџџџ џџџџџџџџџџ џџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџH @Ф,2DF8D04C-5BFA-101B-BDE5iРLAAo4РЩLMICROSOFT OFFICE\„MSO97.D LLˆN 8.0EвN‚АТeRР$DieseArbeit€smappe“X2"A Р4eРe@Arb@7iE€ЊsР†ap@eD@ HB1СМ4B,BgRA+Т РTab@elle1J2ЄСaBl‚Фк1PњРаMaLй`ModulРЧ2Х‚мMРИduр Б ФфШoH%! gТ  User!X БЪ2Ё"'rцiЉ1 h60 ЧЃ%(`х Ё"rU€€€~~~~~~~~~~~~~~~~~~[ џџџџџџџџџџџџ    iink_formu trenn_spezialРFјйРFСџџџџ Zahl_in_Wort *** Minus  Plus   +   -  change_to_ss п ss change_sz trenneStringZeilen_einrahmen aendere_szTextBox9zusaetzlicheZeile * **  *  *DM* *DM  * DM  * DM *   _DM_ кРF}Зэ#ў[еН DESTРF|Зэ#ў[еН DESTDРFWorkbook Workbook_Open parameter ErstelleCb‹Зэ#ў[еН DESTŠЗэ#ў[еН DESTWorkbook_BeforeCloseеРFName inWortenDeleteTextBox8 РFVisibleControlsAddbeforeTypeStyle ParameterCaption )фndere/zeige Parameter fќr Zahl_in_Worten TooltipText parameterOnAction ErstelleCbЈЗэ#ў[еН DESTЇЗэ#ў[еН DEST…Зэ#ў[еН DEST„Зэ#ў[еН DEST [inworten.xls]parameterзРFCells inwortenлРF UserForm1Эл§с\еН DESTтл§с\еН DESTЮл§с\еН DESTЪл§с\еН DESTсл§с\еН DESTШ[qJ—І eР‹UserFormрл§с\еН DEST F3Dynamic с)џџџџџџџџ *в‹BьЮž Њ`ѓTextBox1!ш-ЌЂ6Я€SЊ` њ Щ*џџџџџџџџбTextBox2TextBox3TextBox4TextBox5TextBox6TextBox7 TextBox10 TextBox11 lёл§с\еН DESTв‹BьЮž Њ`ѓўeУ \еН DEST!ўeУ \еН DESTўeУ \еН DESTўeУ \еН DEST ўeУ \еН DESTўeУ \еН DEST -џџџџџџџџ *hTextBox9_Change#ўeУ \еН DEST"ўeУ \еН DEST TextBox9_Exitq#А‚МЕЯ Щt%ўeУ \еН DEST+ўeУ \еН DEST0ўeУ \еН DEST,ўeУ \еН DEST/ўeУ \еН DEST-ўeУ \еН DESTЯ‡С\еН DEST*Я‡С\еН DEST ‘/џџџџџџџџ *јUserForm_Initialize false true 34 36 44џџџџџџ 2ўeУ \еН DEST 44 7ўeУ \еН DEST‹Ю‡С\еН DEST 44ш†e8 Ю‡С\еН DESTЅЮ‡С\еН DESTЮ‡С\еН DESTˆЮ‡С\еН DESTЄЮ‡С\еН DEST‘Ю‡С\еН DEST%Я‡С\еН DEST Б3џџџџџџџџ *@ TextBox1_ChangeTextBox2_ChangeTextBox3_ChangeTextBox4_ChangeTextBox5_ChangeTextBox6_ChangeTextBox7_ChangeTextBox8_ChangeTextBox10_ChangeTextBox11_Change 44F ЇЮ‡С\еН DESTІЮ‡С\еН DESTUserForm_Activate 4љ     ўџџџўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ“K)^џџџџrU €€€~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~9 QѕэУ†жЉ,t‰ 2 фƒŠa џџџџ #Q"™"џџЉƒŠa  џџџџџџйˆa aKџџџџЈџџџџ !q‘С™Щ y"џџ9ƒ€a iDџџџџa4‰4 HБ41Hй4YH5)5Q5y5H.Ё5ЉHб5бHADџџБ(1! щЩDieseArbeitsmappeTabelle1Tabelle2Tabelle3Modul1 VBAProjectяРF?C:\PROGRAMME\GEMEINSAME DATEIEN\MICROSOFT SHARED\VBA\VBA332.DLLVBA qџџџџ ™!(РF %C:\microsoft office\Office\EXCEL8.OLBExcel ‰џџџџБ 80РFC:\WINDOWS\SYSTEM\stdole2.tlbstdole yџџџџЁщHhшЋеф@вН› №fХC:\WINDOWS\SYSTEM\MSForms.twdMSForms aA‰бXс.E р….`ŒM Дƒ/СЁЎдН РЮcЩC:\WINDOWS\TEMP\VBE\MSForms.EXD iA‘бhLај-њ[НхЊDоR $C:\MICROSOFT OFFICE\OFFICE\MSO97.DLLOffice 1џџџџYБxinWorten  VBA332.DLL aџџџџ   null ein zwei drei vier fќnf sechs sieben acht neun zehn zwanzig dreiпig vierzig fќnfzig sechszig siebzig achtzig neunzig elf zwіlf hundert tausend million milliarde billion billiarde trillion trilliarde  , aџџџџi И 0 Eingabezahl zu groп! aџџџџk а und e n en undein s    und  0, /100 ion aџџџџx ш aџџџџ  sech sechzigиРFB VCМЪдН DEST РFA VCМЪдН DESTDРF Worksheet @ trenn_str aџџџџ` X ig lf wei rei ier ќnf chs ben cht eun ehn dert send mill arde - hund ~ t h u onen aџџџџe ` quadrillion quadrilliarde quintillion quintilliarde sextillion sextilliarde septillion septilliarde oktillion oktilliarde nonillion nonilliarde dekillion dekilliarde illiModul2Makro1Makro2 aџџџџК 8 aџџџџ P aџџџџh h aџџџџj € . 9 aџџџџ.  aџџџџP  siebin_einzel_worten in_ziffern + aџџџџ0 ј4 БЮ‡С\еН DESTАЮ‡С\еН DEST$Я‡С\еН DEST+Я‡С\еН DEST 44 ЮЮ‡С\еН DESTгЮ‡С\еН DESTЯЮ‡С\еН DESTЫЮ‡С\еН DESTвЮ‡С\еН DESTаЮ‡С\еН DEST A9џџџџџџџџ *А 44ќŒL xЉG чЮ‡С\еН DESTўЮ‡С\еН DEST 44и4G Я‡С\еН DEST ё:џџџџџџџџ *Р Я‡С\еН DEST 442 &Я‡С\еН DEST <џџџџџџџџ *` UserForm_ClickUserForm_Deactivate4Я‡С\еН DEST 44Ь%JJ,&J OЯ‡С\еН DEST5Я‡С\еН DEST1Я‡С\еН DESTNЯ‡С\еН DEST7Я‡С\еН DEST >џџџџџџџџ *ЬќР\еН DEST 44`ѕb /і\Y\еН DESTcі\Y\еН DEST0і\Y\еН DEST(і\Y\еН DESTbі\Y\еН DEST"žŒ—АдЮП-Њ?@аLabel5Label6Label7Label8Label9Label10Label11aі\Y\еН DEST й@џџџџџџџџ * Label1Label2Label3Label4 ˜,еn№\еН DEST 44ўџџџўџџџ ОВ@T!\еН DESTНВ@T!\еН DESTЕВ@T!\еН DESTРВ@T!\еН DESTЖВ@T!\еН DESTЈВ@T!\еН DESTПВ@T!\еН DESTМВ@T!\еН DEST ‰Cџџџџџџџџ *h TextBox12Label12 Label12_Click   44 ь~Т?9\еН DEST№~Т?9\еН DESTэ~Т?9\еН DESTш~Т?9\еН DESTя~Т?9\еН DESTю~Т?9\еН DEST СEџџџџџџџџ * 44xџEz№  PЬ;\еН DESTPЬ;\еН DEST PЬ;\еН DESTPЬ;\еН DESTPЬ;\еН DESTPЬ;\еН DEST yGџџџџџџџџ *Ј Label2_Click Label3_Click Label4_Click Label8_Click Label10_ClickTextBox12_Change…Ђгјa\еН DEST„Ђгјa\еН DEST€Ђгјa\еН DEST‰Ђгјa\еН DESTЂгјa\еН DESThЂгјa\еН DESTˆЂгјa\еН DEST‚Ђгјa\еН DEST Jџџџџџџџџ *H‡Ђгјa\еН DEST†Ђгјa\еН DEST‹Ђгјa\еН DESTŠЂгјa\еН DEST РF 44T=H Ђгјa\еН DESTŽЂгјa\еН DESTЂгјa\еН DESTŒЂгјa\еН DESTUtxл2fеН DESTkndtruemsl max_str_len !Сmy_strthe_strmslentrchr &Makro am 06.12.00 von wr aufgezeichnet 14first_let_grosstrenner the_string trenncharivzss EingabezahlNachkommaformaterster_Buchstabe_grossSilbentrennung_einmax_Stringlaenge TrennzeichenVorzeichenformatss_einZahlwortstringmaxStringlaengeTrenner Eingabestring Rahmenstring meinStringzeichenmin_zweiZeilen min_Lфnge ! "Cancel )*™)( ё**8 Љ-™)H щЁ.X 0™)h 4™)x i9™)ˆ ;™)˜ 1<™)Ј A>™)И ё* @Ш A™)и БC™)ш щE™)ј ЁG™) AJ™)  }Y#RP˜`х €€H€,т{5€ЅTahoma@€H€,т{5€ЅTahoma@€H€,т{5€ЅTahoma@€H€,т{5€ЅTahoma@€H€,т{5€ЅTahoma@€H€,т{5€ЅTahoma@€UserForm1џџџџџџџџр•ј•Ѓ™С7–Ѓ™Сfџџџџџџџџџџџџz~oџџџџ{рCompObjџџџџџџџџЈaH€,т{5€ЅTahoma@€H€,т{5€ЅTahoma@€H€,т{5€ЅTahoma@€H€,т{5€ЅTahoma@€H€,т{5€ЅTahoma@,(€Nachkommaformat (-1,2,0,1,2)]Ї5€ЅTahoma@0(€"UNDeins" Фnderung (True,False) ]Ї5€ЅTahoma@((€erster Buchstabe GROSSue]Ї5€ЅTahoma@,(€"Silbentrennung (True,False)]Ї5€ЅTahoma@0( €max. Zeilenlфnge (0 fќr 3er Gr.)]Ї5€ЅTahoma@ ( €"Trennzeichen ]Ї5€ЅTahoma@0(€Vorzeichenformat (-1,2,0,1,2)r.)]Ї5€ЅTahoma@$(€"п" in "ss" Фnderung]Ї5€ЅTahoma@( €Rahmenstring]Ї5€ЅTahoma@((€mindestens ZWEI Zeilen,0]Ї5€ЅTahoma@0( €Mindestzeilenlфnge (inkl Rahmen)]Ї5€ЅTahoma@€H€,т{5€ЅTahoma@((€diese Parameter sichern?]Ї5€ЅTahoma@45€TextBox1ЇЇ0: ohne; 1: 'und' nk; 2: 'und' nk>0; -1: nk; -2: nk>0џўџ$х€4TextBox2Ј$х€4TextBox3ЇЪ$х€4TextBox4ЪLх €4!€TextBox5Їь 0: Trennung in 3er Gruppen 'HZE-'>0;$х€4TextBox6ь „х €4[€TextBox7Ї0: ignoriere Vz; 1: erwarte Vz ganz links; 2: Vz im String; -1/-2: Ausgabe als 'Plus/Minus'№$х€4TextBox8\х € 41€TextBox9Ї1Auffќllzeichen bis zum Erreichen der Mindestlфngeim |х € 4 O€TextBox10@1es werden immer mindestens zwei Zeilen ausgegeben - aufgefќllt mit Rahmenstring'(х € 4 TextBox11@ЇS(ѕ€ 2L Label1@д(ѕ€ 2P Label2@1(ѕ€2H Label3@д"(ѕ€2LLabel4@1"(ѕ€2PLabel5@дE(ѕ€2@Label6@1E(ѕ€2PLabel7@дg (ѕ€2DLabel8@1g (ѕ€2<Label9@д‰(ѕ€2HLabel101‰(ѕ€2PLabel11дЌ(х €4TextBox12@S(ѕ€2HLabel121Ќўџ џџџџMicrosoft Forms 2.0 FormEmbedded Objectє9ВqVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1 Caption = "Parameter" ClientHeight = 3675 ClientLeft = 45 ClientTop = 330 ClientWidth = 5130 StartUpPosition = 1 'CenterOwner TypeInfoVer = 28 End DieseArbeitsmappeDieseArbeitsmappeTabelle1TVBFrameџџџџџџџџџџџџЊ$PROJECTwmџџџџЏ†PROJECTџџџџџџџџџџџџВCSummaryInformation(џџџџџџџџМШabelle1Modul1Modul1UserForm1UserForm1ID="{908BA9AC-CA30-11D4-BDA0-444553540001}" Document=DieseArbeitsmappe/&H00000000 Document=Tabelle1/&H00000000 Module=Modul1 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=UserForm1 Name="VBAProject" HelpContextID="0" CMG="3C3E94DAEC12F012F012F012F0" DPB="787AD023D123D123" GC="B4B61C62649F659F6560" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] DieseArbeitsmappe=44, 44, 565, 446, C Tabelle1=-92, 39, 695, 479, C Modul1=88, 88, 629, 456, C UserForm1=110, 110, 658, 478, C, 154, 154, 702, 522, ўџ р…ŸђљOhЋ‘+'Гй0˜@HT` x „фwrwrMicrosoft Excel@€VZnР@Q]э4^РDocumentSummaryInformation8џџџџџџџџџџџџР CompObjџџџџџџџџџџџџЧhџџџџџџџџџџџџџџџџџџџџџџџџўџ еЭеœ.“—+,љЎDеЭеœ.“—+,љЎФ PXd lt|„ Œ ЂфeГ   Parameter  Tabellen˜ 6> _PID_GUIDфAN{908BA9AD-CA30-11D4-BDA0-444553540001}ўџ џџџџ РFMicrosoft Excel 8.0-TabelleBiff8Excel.Sheet.8є9Вq