аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ§џџџ   AIўџџџ8 !"#$%&'()*+,-./012345679:;<=>?@ўџџџBCDEFGJўџџџcaLMVOPQRSTUHWXўџџџZ[\]^_`Kbwyefghirklmnopqdstuvўџџџxz}{|~ўџџџўџџџRoot Entryџџџџџџџџ РFрFФфjСР=WorkbookџџџџџџџџЊ _VBA_PROJECT_CUR"`}‡ПфjС ЉПфjСVBAџџџџ`}‡ПфjС ЉПфjС  !"#$%&'()*+,-.ўџџџ0123456789:;<=>?@ABCDEFGHIJўџџџLMNOPQRSTUVWXYZ[\]^_`abcdefgўџџџijkўџџџўџџџnopqrstuvwxyz{|}~€ ЬI‡сАСт\pwr BАa=гКDieseArbeitsmappeœЏМ=sУ-ь"8X@"Зк1ШџArial1ШџArial1ШџArial1ШџArial#,##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_-;_-@_-рѕџ Р рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР р Р р+ѕџ јР р)ѕџ јР р ѕџ јР р,ѕџ јР р*ѕџ јР р @Р р Р “€џ“€џ“€џ“€џ“€џ“€џ`…ђ Tabelle1Œ11Ўќџњb>uyk}uyр8J:uyм8JЖIЫР8J€L^LlЫaLШ8J№Оb+q0џџџџ _bЋЫr0+я тЭr0 +яјЗbDHdџџџџџџџџDŸџџџч№Џ0xl6}uy‘?ЫР8JDŸIЩr0v/яŽИbIЩr0є*я фЗb  фЗbє*я Ш8J>uyk}uy,ЌИbџ„цS0 Зb]Ч0Х0+q0 œИbы^n0Ч0гтЗbќ ѓG0Х0њЧ0#G0є*я фЗb №*яфЙb]‚Y0рЗb џџџџl*я Кb Wфhrung [0]_< ZцS0pИbp#яtЙbрЮ0v‡pЙb‰0ZT0в_T0Qw0в_T0# ‰p‡АИb-Q0 Ф‰‡ќ‡#‰?єИb-P0Ф‰-‡"Кb Кb‡XNJT0e0№YT0ь‰L‰0ь‰№YT0LNJT0ўЙbКb1v0 $@кbшM0ЙbХЙїПМы„К=s0З0{=s0?0pЙbp#яЬ+я šDp#яЬ+я|Б0p#яє,я‡мЙbќЙbш+я(Кb”s0 Кb К ЬI Ў ^  dќЉёвMbP?_*+‚€%џСƒ„Ё"џ"КbŠ<ќ§~п?Š<ќ§~п?NJU } m џT0џbџbџ16О О О О з ˆ<>Ж@  К Tabelle1 Жџџџџџџџџ<џџ§rэШжеЉ,t‰ 2РFDieseArbeitsmappe$џџџџџџџџџџџџ/эTabelle1 џџџџK__SRP_4 џџџџhк__SRP_5џџџџџџџџџџџџl@ќrэШжеЉ,t‰ 2џџџџџџџџџџџџxњЊ`џџџџ’zzџџ#ˆќrэШжеЉ,t‰ 2§rэШжеЉ,t‰ 2џџЦђђBџџџџ4џџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPSLџџџџSџџџџS”џџџџ6"џџџџ<џџ<џџ<џџ<џџџџџџN0{00020819-0000-0000-C000-000000000046}ПЫю;$*\Rffff*173beea7e3пџџџџШўџџџџџџџџџ(џџџџџџџџџџ2.$џџџџƒўџџџџџџџ`џџџџџџџџџџџџџџ $‚ џџџџўџџџџџўџџџџџџџџџџџ $ƒўџџџџџџџРџџџџџџџџџџџџџџ $џџџџ0ƒўџџџџџџџјџџџџџџџџџџџџџџџџџџ $ $ $iƒўџџџџџџџџџџџџџџџџџ џџџџhƒўџџџџџџџ`џџџџџџџџџџџџџџ $‚ џџџџўџџџџџўџџџџџџџџџџџ $ƒўџџџџџџџРџџџџџџџџџџџџџџ $џџџџ‚ џџџџўџџџџџўџџџџџџџџџџџџџџџƒўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџxџџџџ ƒўџџџџџџџXџџџџџџџџџџџџџџџџ $‚ џџџџўџџџˆџџўџџџџџџџџџџџшeE $ƒўџџџџџџџИџџџџџџџџџџџџџџ $џџџџˆџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`@hhџџџџџџџџџџџџџџџџџџџџџџ(MEџџџџџџџџџџўЪ(0џџџџxlџџ B@h џџџџџџџџЇАAttribute VB_Name = "DieseArbeitsmappe" "  Bas 0{00020819ъ-0C$ 0046} |Cr@eatabl†False ^Pre declaIdTru "ExposeTemplateDeriv$eCustomizD2Жџџџџџџџџ<џџu1чыЫжеЉ,t‰ 2 РFt1чыЫжеЉ,t‰ 2џџџџџџџџџџџџxњШ^џџџџ’z–zџџ#ˆt1чыЫжеЉ,t‰ 2u1чыЫжеЉ,t‰ 2џџфђђlџџџџ4џџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPSLџџџџSџџџџS”џџџџ6"џџџџ<џџ<џџ<џџ<џџџџџџN0{00020820-0000-0000-C000-000000000046}ПЫю;"*\Rffff*d3beead80пџџџџшўџџџџџџџџџ(џџџџџџџџџџ$џџџџƒўџџџџџџџ`џџџџџџџџџџџџџџџџџџ $‚ џџџџўџџџџџўџџџџџџџџџџџ $ $iƒўџџџџџџџџџџџџџџџџџ ƒўџџџџџџџшџџџџџџџџџџџџџџџџџџ $ $ $iƒўџџџџџџџџџџџџџџџџџ ƒўџџџџџџџ˜џџџџџџџџџџџџџџџџџџА‚ џџџџўџџџ№џџўџџџџџџџџџџџџџџџƒўџџџџџџџјџџџџџџџџџџџџџџџџџџџџџџ`ƒўџџџџџџџаџџџџџџџџџџџџџџџџџџ $‚ џџџџўџџџџџўџџџџџџџџџџџ $џџџџƒўџџџџџџџ8џџџџџџџџџџџџџџ $џџџџиџџџџ@ƒўџџџџџџџxџџџџџџџџџџџџџџџџџџ $‚ џџџџўџџџЈџџўџџџџџџџџџџџ * $ƒўџџџџџџџиџџџџџџџџџџџџџџ$< $џџџџЈџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€А@џџџџџџџџџџџџџџџџџџџџџџHMEџџџџџџџџџџўЪ€ џџџџ(0lџџplџџ` B@hџџџџPџџџџžАAttribute VB_Name = "Tabelle1"  јBas|0{00020820-; C$0046} |Creatabl†False МPredeHclaId‡Tru "ExposeTempla€teDeriv$eCustomizˆ2 rU€€€  yAqЁAџџџџ!4Сaщџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ{crU€€€ џџџџџџџџ@prU€€€ Ј А  Y?1С™ Щ1б @щЩAёABUserForm1џџџџџџџџџџџџ1X__SRP_2 џџџџmj __SRP_3џџџџџџџџџџџџŸgModul1џџџџNбўЪC€ $€ ,(€ "X€ џџџџ€ J€€ JА € џџџџ€x€P€ џџџџ" 8Ш4d4gШ4g4gај4g8 *(  Јpx АK  ˜ H@€ џџџџ"€H€ $Р `@ јˆ€ џџџџ"`` !р   € џџџџ"… %Ш h&[а&^№$]ˆ$]АF]@x:H8  ?@ P5Pp€ џџџџ"И@ P шРџџџџ  tтlџџpиlџџ` †B@‚lџџH@lџџ8 tЄ •EС‚k œтl ЄЄ 8%BB@Duu‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžўџџџ ЁЂЃЄўџџџІЇЈЉЊЋўџџџ­ЎўџџџАБВГДЕЖЗИЙКўџџџМНОПРСТУФХЦЧШЩЪЫЬЭЮўџџџдбвгўџџџежўџџџиўџџџклмнўџџџпрўџџџтуфхцчшщъўџџџьэўџџџя№ёђѓєўџџџіўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ Є 8!рЄ $ЬB@JСт№СЪшн р›ти›ЪаџџџџаЄЄ 8%BB@Dї ф!ьі ш!юŒel фB@Drowsџџ 8!ьЅ •6:!рЏ'šЄ 8!рЄ $ЬB@D 8!рЄ bџџџџakџџРЎLetzte Zelle erreicht!A@|џџџџ˜С№Ў'† †!f †(\hЄ&HQEЄЄ 8%BB@JЄ'tЄ'tЄ'tЄ'tџџџџX0lџџЈZ ъ0lџџ˜Є'thџџhuaи% Call my_proc(CInt(TextBox1))6ЧGџџџџ0С8и Wiederholung der letzten Eingabeи solange ENTER Taste gedrќckt istGяЄЈ%(\hЎ †(ftivePE 8 †(fЄ †!f †(Єdeи/Bewegung des Cursors fќr eventuelle Korrekturen џџџџXЏ'šЏ'šplsЄ%HQEЄЄ 8%BB@JџџџџШиentwickelt von Winfried Radnerи&e-mail: Wolf.W.Radzinski@onlinehome.deиBenutzung frei - ohne GewфhrиC+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++џџџџА tтЄ%HQEЄЄ 8%BB@DЄ&HQEЄЄ 8%BB@DЄ'HQEЄЄ 8%BB@DЄ(HQEЄЄ 8%BB@DkџџАЄ'HQEЄЄ 8%BB@JHЄ(HQEЄЄ 8%BB@JHџџџџˆlfahш •ahkЄЄ 8%BB@D ш!ю!0', ш!№!0'.aЎLetzte Zelle erreicht!A@| ( 8!рЄ $ЬB@DbџџџџhZ ъџџџџZ ъџџџџZ ъџџџџ N'8 ш!р'* 8B@J,  8!р * . Є  b,hl8A@:A@: 8!ь ( , Є  •Є †(Ј(fЏ'aZ ъџџџџZ ъHlЏ'hџџа ( *$Ь ( , Є * . Є $Ь$<B@Jџџџџh B@ ЄHQEA@:џџџџˆ N'8lџџИua›‚Є !bU N%J'H'HЄ !bU N%J'HJlџџH !^•Џ'aЖџџџџџџџџPџџW1чыЫжеЉ,t‰ 2K1чыЫжеЉ,t‰ 2@1чыЫжеЉ,t‰ 2V1чыЫжеЉ,t‰ 2џџџџџџџџџџџџx"в; џџџџ’z9ўџџˆV1чыЫжеЉ,t‰ 2W1чыЫжеЉ,t‰ 2џџю;ўSџџџџ8д<бDе@зHџџџџпџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@SPџџџџSџџџџSџџџџSџџџџ1”џџ>"џџџџ<џџџџ<џџ<џџ< џџ<$џџ<(џџ<,џџLџџџџLџџџџLџџџџLџџџџLџџџџџџџџLџџџџџџџџџџџџLџџџџџџџџLџџџџџџџџ”џџџџLџџџџџџџџLџџџџџџџџLџџџџџџp@š0{C3E1BDAA-D6DF-11D5-A92C-000374890932}{C3E1BDA0-D6DF-11D5-A92C-000374890932}ПЫю;*\R3*#d"*\Rffff*53beeababц*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\SYSTEM\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#26ц*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\SYSTEM\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\R3*#8*\R1*#b8*\R0*#c*\R3*#8*\R0*#11ц*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\SYSTEM\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#26*\R1*#15c*\R1*#20bц*\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*\R1*#15d*\R1*#b8п(82ўџ0џџџџ(џџџџџџџџџџ[7$ўџџџџџџџџџXџџ0џџџџџџџџ  $$$ƒўџџџџџџџ˜џџџџџџџџџџџџџџŒ$iƒўџџџџџџџџџџџџџџџџџ ƒўџџџџџџџшџџџџџџџџџџџџџџЈ$$$iƒўџџџџџџџџџџџџџџџџџ iƒўџџџџџџџџџџџџџџџџџ ŠH`џџџџџџџџ *$џo€eА œ!ƒuџџџџ џџАИ„$$$aƒvџџџџџџџџџџ„iƒўџџџџџџџџџџџџџџџџџ ‚ Цџџџџўџџџ џџўџџџџџџџџџџџPFƒўџџџџџџџЈџџџџџџџџџџџџџџomhи`џџџџџџџџ`(4џoџџџџџџџџД”џџџџiƒўџџџџџџџџџџџџџџџџџ џџџџ$$$ƒўџџџџџџџ`џџџџџџџџџџџџџџЈ „uџџџџxџџџ€$ „uџџџџxџџџ €р$ „uџџџџxџџџ@€Р$ „uџџџџxџџџ`€ $ „uџџџџxџџџ€€€$ „uџџџџxџџџ €`$‚ Цџџџџўџџџhџџўџџџџџџџџџџџџџџџƒўџџџџџџџјџџџџџџџџџџџџџџџџџџ$џџџџј$$$$џџџџрj€šџџџџ6Ј џџ6@џџџџџџџџџџџџƒўџџџџџџџ€џџџџџџџџџџџџџџ$$$iƒўџџџџџџџџџџџџџџџџџ џџџџ$$$$iƒўџџџџџџџџџџџџџџџџџ џџ$$$$ƒўџџџџџџџЈџџџџџџџџџџџџџџџџџџ‚ ЦџџџџўџџџАџџўџџџџџџџџџџџџџџџƒўџџџџџџџИџџџџџџџџџџџџџџџџџџ$$ „uџџџџxџџџИ€N$ „uџџџџxџџџи€($ „uџџџџxџџџј€($ „uџџџџxџџџ€($ „uџџџџxџџџ8€($ „uџџџџxџџџX€($ „uџџџџxџџџx€$ „uџџџџxџџџ˜€($ „uџџџџxџџџИ€P$ „uџџџџxџџџи€0$ „uџџџџxџџџј€$$џџџџPƒўџџџџџџџ8џџџџџџџџџџџџџџџџџџ$‚ џџџџўџџџhџџўџџџџџџџџџџџџџџџ$ƒўџџџџџџџ˜џџџџџџџџџџџџџџџџџџ$$$ „uџџџџxџџџ€џџ „uџџџџxџџџ˜€Ј „uџџџџxџџџ € „uџџџџxџџџ@ € „uџџџџxџџџ(€џџџџ$ „uџџџџxџџџH€@$ „uџџџџxџџџh€ $ „uџџџџxџџџh € „uџџџџxџџџ€€џџџџx „uџџџџxџџџР€aƒv$ƒўџџџџџџџџџџџџџџџџџџџџџџџџџ‚ џџџџўџџџџџўџџџџџџџџџџџџџџџƒўџџџџџџџџџџџџџџџџџџџџџџџџџ$$$$$$$$$‚ џџџџўџџџˆџџўџџџџџџџџџџџшƒўџџџџџџџџџџџџџџџџџџџџџ(ƒўџџџџџџџИџџџџџџџџџџџџџџџџџџ$$ „uџџџџxџџџ €$$ „uџџџџxџџџP €$ „uџџџџxџџџ( € „uџџџџxџџџ0 €  „uџџџџxџџџ  €X$ „uџџџџxџџџР €`$ „uџџџџxџџџр €@$ „uџџџџxџџџ €$ „uџџџџxџџџH €$ „uџџџџxџџџ@ €$$ „uџџџџxџџџh €€$ „uџџџџxџџџX €`џџџџHЈ%џџџџ@pиџџџџџџџџ0 $$$$$$ „uџџџџxџџџ € „uџџџџxџџџЈ€ џџ „uџџџџxџџџ0 €($ „uџџџџxџџџP €x$ „uџџџџxџџџp €($ „uџџџџxџџџ €($ „uџџџџxџџџА €$$$џџџџ€џџџџШ „uџџџџxџџџИ €џџ „uџџџџxџџџР € „uџџџџxџџџ˜€ƒўџџџџџџџјџџџџџџџџџџџџџџџџџџ‚ џџџџўџџџџџўџџџџџџџџџџџџџџџƒўџџџџџџџџџџџџџџџџџџџџџџџџџ „uџџџџxџџџ€џџџџ$$ƒўџџџџџџџш џџџџџџџџџџџџџџ$‚ џџџџўџџџџџўџџџџџџџџџџџџџџџ$ƒўџџџџџџџp џџџџџџџџџџџџџџџџџџ$$$$ „uџџџџxџџџH € „uџџџџxџџџ €$ „uџџџџxџџџИ€($ „uџџџџxџџџи€($ „uџџџџxџџџј€($‚ џџџџўџџџx џџўџџџџџџџџџџџџџџџƒўџџџџџџџ€ џџџџџџџџџџџџџџџџџџƒўџџџџџџџxџџџџџџџџџџџџџџџџџџ$$$$$ „uџџџџxџџџ` €(ƒўџџџџџџџи џџџџџџџџџџџџџџ џџ$$$џџџџА ‚ џџџџўџџџр џџўџџџџџџџџџџџџџџџƒўџџџџџџџА џџџџџџџџџџџџџџџџџџiƒўџџџџџџџџџџџџџџџџџ џџџџ:џџџџ`џџџџџџџџ8-|џoџџџџџџџџР=”џџџџ$ƒўџџџџџџџHџџџџџџџџџџџџџџџџџџ‚ џџџџўџџџPџџўџџџџџџџџџџџџџџџƒўџџџџџџџXџџџџџџџџџџџџџџџџџџiƒўџџџџџџџџџџџџџџџџџ $ „uџџџџxџџџш€џџџџˆ „uџџџџxџџџP €Xj€H04 џџ4@џџџџџџџџџџџџ$$$$$ƒўџџџџџџџџџџџџџџџџџџџџџџџџџ‚ џџџџўџџџ˜џџўџџџџџџџџџџџџџџџ$$$ „uџџџџxџџџИ €џџџџƒўџџџџџџџрџџџџџџџџџџџџџџ џџ$$$ „uџџџџxџџџ €‚ џџџџўџџџ€џџўџџџџџџџџџџџџџџџƒўџџџџџџџˆџџџџџџџџџџџџџџџџџџiƒўџџџџџџџџџџџџџџџџџ џџџџƒўџџџџџџџ0џџџџџџџџџџџџџџh‚ џџџџўџџџ8џџўџџџџџџџџџџџ џџƒўџџџџџџџ@џџџџџџџџџџџџџџџџџџ‚ џџџџўџџџ№џџўџџџџџџџџџџџƒўџџџџџџџјџџџџџџџџџџџџџџ „uџџџџxџџџ€џџ „uџџџџxџџџ№€џџџџ „uџџџџxџџџ8€($ƒўџџџџџџџˆџџџџџџџџџџџџџџ$ „uџџџџxџџџ`€‚ џџџџўџџџџџўџџџџџџџџџџџџџџџƒўџџџџџџџ˜џџџџџџџџџџџџџџџџџџ~Ј%`џџџџџџџџџџџџ|џHџџџџџџџџИ&”џџџџ$ƒўџџџџџџџИџџџџџџџџџџџџџџ „uџџџџxџџџа€џџџџˆ ƒўџџџџџџџџџџџџџџџџџџџџџџџџџ$$$$$‚ џџџџўџџџРџџўџџџџџџџџџџџџџџџƒўџџџџџџџШџџџџџџџџџџџџџџџџџџiƒўџџџџџџџџџџџџџџџџџ @‚ џџџџўџџџ˜џџўџџџџџџџџџџџџџџџ$$$$$ „uџџџџxџџџh€џџџџiƒўџџџџџџџџџџџџџџџџџ и ‚ џџџџўџџџРџџўџџџџџџџџџџџџџџџ$$$ „uџџџџxџџџА€ „uџџџџxџџџP€( „uџџџџxџџџи€(iƒўџџџџџџџџџџџџџџџџџ Р ƒўџџџџџџџ€џџџџџџџџџџџџџџH$‚ џџџџўџџџАџџўџџџџџџџџџџџи$$$$$ „uџџџџxџџџh€џџџџƒўџџџџџџџЈџџџџџџџџџџџџџџџџ$$$ „uџџџџxџџџH€џџџџ$ „uџџџџxџџџh€($‚ џџџџўџџџАџџўџџџџџџџџџџџџџџџƒўџџџџџџџpџџџџџџџџџџџџџџџџџџƒўџџџџџџџИџџџџџџџџџџџџџџџџџџƒўџџџџџџџШџџџџџџџџџџџџџџџџџџ$$$ƒўџџџџџџџџџџџџџџџџџџџџџH‚ џџџџўџџџ џџўџџџџџџџџџџџ0$$ƒўџџџџџџџ џџџџџџџџџџџџџџџџџџƒўџџџџџџџPџџџџџџџџџџџџџџџџџџ‚ џџџџўџџџXџџўџџџџџџџџџџџџџџџƒўџџџџџџџ`џџџџџџџџџџџџџџџџџџƒўџџџџџџџаџџџџџџџџџџџџџџШ „uџџџџxџџџ € џџ$$$$$ „uџџџџxџџџа€ џџ „uџџџџxџџџР€X$ „uџџџџxџџџр€$ƒўџџџџџџџИ џџџџџџџџџџџџџџИ ‚ џџџџўџџџР џџўџџџџџџџџџџџџџ$$ƒўџџџџџџџ(џџџџџџџџџџџџџџ@ƒўџџџџџџџ˜џџџџџџџџџџџџџџ$$$ „uџџџџxџџџР€ „uџџџџxџџџр€$ „uџџџџxџџџ`€‚ џџџџўџџџ џџўџџџџџџџџџџџƒўџџџџџџџЈџџџџџџџџџџџџџџNH$$$ „uџџџџxџџџ€€$$$$$$ „uџџџџxџџџШ€$$$џџџџш „uџџџџxџџџ €$$$ „uџџџџxџџџp€џџџџ „uџџџџxџџџа€џџ „uџџџџxџџџи€@ „uџџџџxџџџx€($ „uџџџџxџџџ˜€$ „uџџџџxџџџˆ€џџџџ@ˆ џџџџџџџџџџџџи и шˆ џџџџ(џџџџџџџџАџџџџpџџџџА А џџџџ0Hшƒўџџџџџџџxџџџџџџџџџџџџџџџџџџƒўџџџџџџџpџџџџџџџџџџџџџџ$$$$ „uџџџџxџџџ˜€џџџџ „uџџџџxџџџЈ€$$ „uџџџџxџџџШ€џџџџ „uџџџџxџџџ€€џџџџ‚ џџџџўџџџxџџўџџџџџџџџџџџ$$$$ „uџџџџxџџџ€€џџџџ „uџџџџxџџџX€џџ „uџџџџxџџџР€џџџџ „uџџџџxџџџx€џџџџ „uџџџџxџџџР€($$$$$$$$ „uџџџџxџџџ€ƒўџџџџџџџџџџџџџџџџџџџџџџџџџ‚ џџџџўџџџџџўџџџџџџџџџџџџџџџƒўџџџџџџџџџџџџџџџџџџџџџџџџџ‚ џџџџўџџџиџџўџџџџџџџџџџџ! „uџџџџxџџџ@!€$$$ „uџџџџxџџџˆ€ „uџџџџxџџџ№€ƒўџџџџџџџрџџџџџџџџџџџџџџ$$$ƒўџџџџџџџ€џџџџџџџџџџџџџџџџџџƒўџџџџџџџ(џџџџџџџџџџџџџџџџџџ‚ џџџџўџџџ0џџўџџџџџџџџџџџџџџџƒўџџџџџџџ8џџџџџџџџџџџџџџџџџџ „uџџџџxџџџH!€џџ$$$$ „uџџџџxџџџШ€џџџџ „uџџџџxџџџP€X „uџџџџxџџџ˜"€ „uџџџџxџџџ"€$$ „uџџџџxџџџP!€ „uџџџџxџџџш€џџџџ „uџџџџxџџџј€( „uџџџџxџџџШ#€$$ „uџџџџxџџџh€џџџџƒўџџџџџџџШџџџџџџџџџџџџџџџџџџ‚ џџџџўџџџаџџўџџџџџџџџџџџџџџџƒўџџџџџџџиџџџџџџџџџџџџџџџџџџƒўџџџџџџџа џџџџџџџџџџџџџџ џџ$$$$$џџџџиƒўџџџџџџџшџџџџџџџџџџџџџџˆ ‚ џџџџўџџџџџўџџџџџџџџџџџА џџџџbNH†шџџ‚ џџџџўџџџи џџўџџџџџџџџџџџџџџџƒўџџџџџџџр џџџџџџџџџџџџџџџџ „uџџџџxџџџ@%€џџџџ „uџџџџxџџџ "€и „uџџџџxџџџˆ€џџџџ „uџџџџxџџџ#€џџџџ „uџџџџxџџџ#€ „uџџџџxџџџр€$ „uџџџџxџџџ`%€$$џџџџx"џџџџp%ƒўџџџџџџџџџџџџџџџџџџџџџ џџHp`џџџџџџџџи.0џk&џџџџМ-”$$ „uџџџџxџџџ"€џџџџiƒNџџџџ џџџџ0&€Iƒœџџџџџџ џџџџџџ€ƒўџџџџџџџШ џџџџџџџџџџџџџџ „uџџџџxџџџ@€џџџџ`$џџџџ˜&ƒўџџџџџџџа џџџџџџџџџџџџџџџџџџ‚ џџџџўџџџ8џџўџџџџџџџџџџџџџџџƒўџџџџџџџ@џџџџџџџџџџџџџџџџџџ@ўџx'xџџџ џџ џџџџ@ўџ№'hџџџ џџ $$ „uџџџџxџџџ("€џџ@ўџџџџџdџџџ џџ  „uџџџџxџџџр#€@ўџР'Tџџџ џџ @ўџџџџџDџџџ џџ џџ „uџџџџxџџџ"€џџџџ@ўџџџџџ4џџџ џџ @()(NH8† Ш)xџџџ џџ $$ „uџџџџxџџџш#€џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ '8'џџџџЈ'џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџH$џџџџ$$џџџџ8$џџџџ)џџџџ)0-џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0-phџџџ џџ џџ0-dџџџ џџ џџџџ@ўџTџџџ џџ џџџџ@ўџDџџџ џџ џџџџ0-4џџџ џџ џџџџ „uџџџџxџџџа#€џџџџ „uџџџџxџџџи#€џџ „uџџџџxџџџш%€ „uџџџџxџџџh%€џџџџџџџџџџџџџџџџџџџџИџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ№,џџџџџџџџџџџџH.0.`.џџџџЈ.џџџџ-џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ№-џџџџџџџџџџџџџџџџ.- „uџџџџxџџџX+€ џџ$ „uџџџџxџџџx+€($ „uџџџџxџџџ˜+€($ „uџџџџxџџџИ+€($ „uџџџџxџџџи+€Ј$ „uџџџџxџџџј+€ˆ$ „uџџџџxџџџ,€X$ „uџџџџxџџџ8,€H$ „uџџџџxџџџX,€џџџџ$ „uџџџџxџџџ№%€( „uџџџџxџџџP'€ „uџџџџxџџџX'€ „uџџџџxџџџ8(€H „uџџџџxџџџ@(€џџ „uџџџџxџџџ)€џџ „uџџџџxџџџ)€0.№, џџ џџ@ўџџџџџtџџџџџ џџH0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџи-џџџџџџџџš џџ џџ џџ@ўџџџџџpџџџџџ џџџџџџџџ№- џџџџџџџџџџš†HоH:џџџџџџ@ўџџџџџlџџџ џџ џџџџ@ўџ.hџџџџџ џџџџ@ўџx.Xџџџ џџ џџџџ@ўџР.Hџџџ џџ џџџџ@ўџџџџџDџџџџџ џџџџ@ўџџџџџ4џџџ џџ Ј,@ўџџџџџ$џџџ џџ џџџџ&џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0&џџџџ00/0џџџџЈ/џџџџџџџџџџџџџџџџџџџџџџџџџџџџР/џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџx/и/џџџџ8Њ†џџџџџџџџџџџџ@ўџ0xџџџ џџ џџџџ@ўџш/hџџџ џџ џџџџ@ўџџџџџXџџџ џџ џџџџџџџџР//џџџџџџ@ўџџџџџHџџџ џџ џџџџ@ўџџџџџ8џџџ џџ џџџџ@ўџџџџџ4џџџ џџ @ўџџџџџ0џџџџџ џџџџаџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@-џџџџџџџџЈDџџџ џџ џџ@ўџ4џџџ џџ џџ@ўџ$џџџ џџ џџџџ@ўџџџџ џџ џџџџџџџџHЬџџџ џџ џџџџШ20џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ( џџџџ 2џџџџ(2@џџџџџџџџpџџџџ00џџџџџџџџа&ј&TФ џџџџџџџџџџџџџџџџџџџџџџ ˆ MEџџџџџџџџџџ џџ(Џ'hџџАlџџ !^•Џ'aџџшЏ'hџџи †B@‚ †B@‚џџџџ PE †!f H •џџџџШ hџџџџ Ў †(f џџџџ ЎJQE т †!\тџџџџ0 lџџ` A@jџџџџX иC+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Ca †!f H$оЄAHy_pr B@ и/+ ganzes Arbeitsblatt (userform1.ob_blatt=true) =и.+ oder Selection (userform1.ob_selection=true)Typeи5+ und die Eingabestringlфnge (userform1.str_laenge=1)€и(+ (dazu mќпte der Code verфndert werden) Zи+и5+ der Eingabestring wird als LONG an die aktive ZelleSForи:+ ќbergeben, somit werden fќhrende Nullen nicht ќbernommenи+ UserForm1.Showи+End Subи + Sub uf()и+ UserForm1.Caption = "UF" Oи!+ UserForm1.ob_Selection = trueи+ UserForm1.str_laenge = 4ROSOFTи'+ (*) Bsp Makro fќr den Userformaufruf:Obи2+ ...nur der selektierte Bereich wird gefќlltи7+ ...es werden ZIFFERNstrings der Lфnge 4 erwarteteи+ ...іffne die Userformzи-fќlle das Blatt ab der aktuellen Zellpositionelи1fќlle nur den vor dem Aufruf selektierten Bereichи-Textbox1.Tag dient als LastX Zwischenspeicherm1ифndere die Eingabestringlфnge9ўџџџџ0и gesteuert! †!\ H$оAH †!f H •џџџџЈџџџџССи,MsgBox sr & " " & sc & " " & srs & " " & scs N%џџџџа N'8 N'8иActiveCell.Calculate 8( † H$оAЎFehlerA@| †!f H$о'†Ў †(f †!\ H$оA †Ўx x N%|'t%| †B@‚e Funcи+ UserForm1.formel = "=x^2"Hи<+ ...berechne das Quadrat der eingegebenen Ziffernfolgeи%und evtl. Sprung in die nфchste ZelleџџџџиActiveCell.ClearFormatsџџџџИ † H$оAH(Lefи gesteuert!и$entfernt! Wird ќber Selection_Change и gesteuert!и gesteuert!и$entfernt! Wird ќber Selection_Changeиautomatische zur nфchsten Zelleи$entfernt! Wird ќber Selection_Changeиautomatische zur nфchsten Zelleи$entfernt! Wird ќber Selection_ChangeuџџЈ B@  B@ и+++++++++++++++++++и+++++++++++++++++++uџџ и+++++++++++++++++++Џ 8(– ўB@˜џџџџШи#ActiveCell.FormulaLocal = formel(i)0иActiveCell.Calculatecal = и#ActiveCell.FormulaLocal = formel(i)џџ џџџџаџџџџИЄ&HQE š”F †!f H$оЄ&AHgЄЄ'HQE š”F †!f H$оЄ'AHgЄЄЄ 8%BB@Jи2default Cursor nach rechts! †ЄHQEA@ЊAHЄ%HQE š”F †!f H$оЄ%AHg0џџџџ(Є(HQE š”F †!f H$оЄ(AHg(Є HQE š”F †!f H$оЄ AHg šЄ HQEЄЄ 8%BB@Jи-default Cursor nach rechts!B@џџџџ@Џ'šџџџџ€/ДAttribute VB_Name = "UserForm1" " €Bas€0{C3E1BDAA-D6DF-11D5-A92C-00037489 0932}J0J dCreatab‚liFalse „Predecla‰IdЎTru "РExpose@Template Deriv–Cu@stomiz‹D'entwickelt von W infri"Radner 'e-mail: W@olf.W.€ zinski@onlinehome.dX'Benutzung frei - ohn€e Gewфh€# €$+?Х" Public l A€s Integ;max_er1chtСBoolрean € €X€Z Sub TextBox1_KeyUp(ByVa„l РCode MSs.RetHurn, У ShifФ) On Error  Resu@ЎNР SelectŒ CЊ B37: If Not Š-Then ll my_proc(Le(ft(Х,., Рl), 37РT8:§8Ъ9ў9IЩ40§40щ 2(хƒ_Termifnр;(,13,1ъ3 E €:у .aр7Lenk3) <Ÿ€SЁ8kb*== „‚УB‰Exit!U0OЁ C‘ю CaпJ уЅ,ЊEnd Kaƒ[сSSetFo cus ubЭnstr_lae€nge_ChaР(Р+sg'фndere die EРingabe ,lфрСlЎWo rksheрunction.Ma@x(0, C`s(ѕ†Ч.):_ Iс/j LAр v A }р;=РЊŸ зŽ" e Cell.š( Ц”+B~Р"д ‹…= W#=4.%ˆiЁšSьn`g, OpA% žk^c€ І=ч iA, гу#˜kcB ЃЁ—Offset!/ј-1)Ш@Hƒ`“Яј-1,€Mб GяpПЯ`€EпП“ 1PAпЙ 'defaBupuCursP]n@ach re0es†!IMBeep$§ъ2 ///)""dV+0' pSPtart@0Пlё KgthРПKП;™Я!s†0–VЯ;e ƒoLNУ*1.HiQ‡+?Љ?б? @џџџџY?8Б љй џџџџџџџџџџџџ 0€`љџџџ`!Ёџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ<A Ё -ддд`сџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@Ё(1Щ(еееџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџDA Ёi бббЄ§џџ`ЁџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHЁ(1 8зззџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ aљQoЏя/oЏ8ь l ќјxџKџџtџxџ ltџqpџlpџѕ%Чˆ “6У…Khџlџ! lџ l“4ч>hџFXџHџ ($џ%Hџ`§ЧDџМ /Dџlџ6XџHџ$џЯlpџѕ&Чя “6УьKhџlџ! lџ l“4ч>hџFXџHџ ($џ&Hџ`§ЧDџМ /Dџlџ6XџHџ$џЯlpџѕ'ЧV “6УSKhџlџ! lџ l“4ч>hџFXџHџ ($џ'Hџ`§ЧDџМ /Dџlџ6XџHџ$џЯlpџѕ(ЧН “6УКKhџlџ! lџ l“4ч>hџFXџHџ ($џ(Hџ`§ЧDџМ /Dџlџ6XџHџ$џЯlpџѕЧеР Яlpџѕ Ч< “6У9Khџlџ! lџ l“4ч>hџFXџHџ ($џ Hџ`§ЧDџМ /Dџlџ6XџHџ$џЯ*hџlџ! lџ llhџJ“4чб/hџlџw є˜6Э єџ˜6Khџlџ! lџ l“4ч>hџFXџHџ ($џHџ`§ЧDџМ /Dџlџ6XџHџ$џlџ! lџ lџџџ Xь(Яxџ$hџDџlџXџHџ$џР€Kџџ`(Tџ%hџxџ"$ ”xџ „hџќEDDџ%dџ"$ дdџўЂ4џ@Bх˜4)xџdџ6hџ4џxџ! xџ xџH€$ xџdџhџ4џјИ`(Tџ%hџxџ"$ ”xџ „hџќEDDџ%dџ"$ дdџўЂ4џ@Bх˜4)xџdџ6hџ4џ!xџ"$ (xџў ыxџxџ! xџ xџxџ! xџ hxџHИ$ xџdџhџ4џD%€ Fhџ%xџ"$ (xџ,xџ §hџ§XџXџ(hџ%]ћ/Hџ\‘I(hџ%єЗDHџ%xџ"$ (xџўЂ8џў§ѓ 4џ4џў ы)xџ4џ58џgXџ(hџ&]ћ/Hџ\яIєЗDhџ%(Hџ%xџ"$ (xџўЂ8џў§ѓ 4џ4џў ы)xџ4џ58џgXџ(hџ']ћ/Hџ\LH(hџ%(Hџ%xџ"$ (xџўЂ8џў§ѓ 4џ4џў ы)xџ4џ58џgXџ(hџ(]ћ/Hџ\ЉH(hџ%(Hџ%xџ"$ (xџўЂ8џў§ѓ 4џ4џў ы)xџ4џ58џgXџ(hџ ]ћ/Hџ\H(hџ%(Hџ%xџ"$ (xџўЂ8џў§ѓ 4џ4џў ы)xџ4џ58џgXџ(hџ]ћ/Hџ\g H(hџ%(Hџ%xџ"$ (xџўЂ8џў§ѓ 4џ4џў ы)xџ4џ58џ5Xџ?xџ"$ (xџa8џ`#0џ4џ! 4џ h/0џ)xџ4џ58џѕxџ! xџ @xџ50џxџ! xџ ll0џJ4џ! 4џ 8/0џ)xџ4џ L(gXџ0џxџ4џ8џX(Kџџ єџ˜6"$ў €a($ 4 6 D<88%rU€€€ џџџџџџџџT4™`Аџџџџџџџџ)A$й`Дџџџџџџџџ$`Иџџџџџџџџ,Y`Мџџџџџџџџџџсa0Џ$™`Р џџџџџџџџQџџџџ4@ 4џџџџ6@Ј6prU€€€€~} А ЁB1И€§ lџќF\џ%"$,€5\џ-§lџN\џ\џXџ"$ ”Xџ €Xџ5\џ"џџџpžяЄЎUserformиџџџџиlШЄ A@џџџџH@lџџx B@ џџџџ`VБAttribute VB_Name = "Modul1" 'entwickelt von Winfried R adner€-mail: Wolf.W..zinski@onlinehome.dePBenutzung frei - ohne `GewфhG + ? Garbeitet auf GANZEM Asblatt Sub uf(Optiona l capzUserform",` _ str_l1) …F€1.Ca#€ # aengЊIf Not ‡ Visib€le Then Show End €Wl[_terminate(ŒDHiД__SRP_7џџџџџџџџџџџџЅ†__SRP_6 џџџџЌЌ_VBA_PROJECTџџџџY‚dirџџџџџџџџџџџџЏџ$a\џ.€ќVУ5\џ|"$ў € $€$| Xџ\џH"$ў €$ frU€€€ џџџџџџџџ,`§џџџџџџџџџџџ‰ЉUserformЏЏ$Љ`§џџџџџџџџџџџpћВ€0* pH‚dф VBAProjeˆct4@j = rForm_Clickлј ReturnIntegerх‚UserForm_KeyUpcKeyCodeэ˜Shiftфы€џKeyUpВM €џџџ_B_var_Select'EMsgBox—RUserForm_ActivateZsuserfor0}€џSetFocusёЦ€џџџ_B_var_UserFormмTextBox1ІSTextBox1_Change=чTextBox1_KeyUp~З €џџџ_B_var_CaseГк€џValueфK Workbook_Open›сTextBox1_MouseDownс;ButtonкцXoYlUserForm_KeyDownA_€џKeyDown.aUserForm_KeyPress4эKeyAscii#€џKeyPressqіTextBox1_KeyDownjV €џџџ_B_var_IfPђ€џTextBoxЪQ€џџџ_B_var_TextBoxNU €џApplicationЅ* €џEnableEventsмСUserForm_Initialize5c €џџџInitializeгNtempRЊ €џџџ_B_var_tempCommandButton114BCommandButton11_Click„ЊCommandButton11_MouseDown ~ €џMouseDownsЦ Modul1Эuf1"оuf2#о UserForm2*ж €џџџ_B_var_On6ѓ nach_obenyh€џCells activecelŒactivece†activec3activeзSactiv actiцєactтrac}\aX€џColumn ifertigЙ–ri €џџџ_B_var_forjL €џSelectionZЎbyД\€џRow‰Я€џRowsЁU€џColumnsp9casI} €џџџ_B_var_Elseifqm endselect‹Д€џџџ_B_var_endselectOЎ €џџџ_B_var_EndоFtest4Ћ €џActiveSheet%N €џThisWorkbook|у€џSheets  €џџџ_B_var_OffsetR%TextBox1_KeyPressлXЌ(ufd_€џVisibleЖг€џHide9z _B_var_LeftQс my_proc_sХœ €џџџ_B_var_SubН’roў^selectioјЃselectiлГselec Њsele„фselfгse_sjofЖџџџџџџџџџџџџџџџџџџџџџџxоŸ =џџџџ’zўџџџџЛ жжwџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ 6 џџџџ<0џџ<џџ<џџ< џџ<џџ<џџLџџџџџџџџLџџџџџџџџš"џџџџ<4џџ<8џџ<<џџ<џџџџџџПЫю;$*\Rffff*143beecbfeц*\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"*\Rffff*53beeababп8рUserform$$$$$АџџџџƒРџџџџџџpџџџџџџџџџџџџџџџџ$$$$џџџџhƒРџџџџџџРџџџџџџџџџџџџџџ32$ƒРџџџџџџˆџџџџџџџџџџџџџџџџџџџџџџˆџџџџ$$џџџџ@џџџџƒРџџџџџџ€џџџџџџџџџџџџџџџџџџƒРџџџџџџџџџџџџџџџџџџџџџџџџ$ƒРџџџџџџ џџџџџџџџџџџџџџџџџџ$$$$ƒРџџџџџџxџџџџџџџџџџџџџџ(ƒРџџџџџџџџџџџџџџџџџџџџџџџџƒРџџџџџџpџџџџџџџџџџџџџџџџџџƒРџџџџџџРџџџџџџџџџџџџџџџџџџ$и@џџџџџџџџƒРџџџџџџИџџџџџџџџџџџџџџ џџƒРџџџџџџ џџџџџџџџџџџџџџџџџџlџџџ џџ џџƒРџџџџџџЈџџџџџџџџџџџџџџ џџ`џџџџ џџџџџџџџ џџџџ(Iƒџџџџ џџ џџ€ џџ˜џџџџџџџџhџџџџp@ўџџџџџlџџџ џџ џџџџpƒРџџџџџџhџџџџџџџџџџџџџџџџџџƒРџџџџџџџџџџџџџџџџџџџџџџџџƒРџџџџџџџџџџџџџџџџџџџџџџџџƒРџџџџџџ0џџџџџџџџџџџџџџџџџџ Ќџџџџ`џџџџџџџџ8|џkџџџџџџџџџџ „ƒРџџџџџџ(џџџџџџџџџџџџџџ„@ўџџџџџ\џџџ џџ џџџџ8џџџџРџџџџШ @`џџџџџџџџXџk8џџџџџџ„џџџџIƒ’џџџџџџ џџџџџџ€џџџџџџ@ўџџџџџXџџџ џџ џџџџџџџџLџџџ џџ џџџџџџџџџџ0џџџџxџџџџ€џџџџџџџџџџџџџџџџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@Јџџџџ€џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџаџџџџџџџџшџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџXџџџџџџџџиџџџџџџџџџџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџ€џџџџџџџџџџџџџџџџџџџџџџџџџџџџpMEџџџџџџџџџџўЪ€ $X€ ,€€ "А€ џџџџ€ Jи€ џџџџ€ &h"… @ ј -˜.€ џџџџ"ˆ ˜џџџџАlџџp B@hlџџPџџџџ8Шlџџ8ЅњџЄ$ЬB@DџџџџЈиentwickelt von Winfried Radnerи&e-mail: Wolf.W.Radzinski@onlinehome.deиBenutzung frei - ohne GewфhrиC+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++џџџџ˜€lЈ B@h(lџџ№џџџџи arbeitet auf GANZEM Arbeitsblattџџџџ@ ’ (bџџџџЏ (`Є (b џџџџџџ˜и setze Stringlфnge auf konstant 4џџџџјЏ (`Ў tt.mm.2001 (2Ў'=datum(2001;rechts("x";2);links("x";2)) (†" x'Ў =N(x/100) (†Є (b001; B@hchts(ЎBetrag (2'";2);џџџџи1und wandelt die eingegebene Folge in ein Datum umџџџџр  (2џџџџXџџџџH ! ”F B@hgџfsez  €џStatusBarЪœsr&_sc_srsNеscs#гCount0v€џCaptionxuf_sцwUserForm_DeactivateЬТ €џDeactivatejЎUserForm_TerminatelD €џџџTerminateyL OptionButton1k@ OptionButton2l@OptionButton2_Click/ЋTextBox2ЇSLabel1,lc€џMaxШВ €џџџ_B_var_Maxйo€џWorksheetFunctionѓ&TextBox2_ChangeхчOptionButton1_Clickžc€џChangeЃЧChrK~ _B_var_Chr\;lastx9О€џTag&иob_BlattЭb ob_Selectiontз str_laengeєЬob_Blatt_ClickM‰ob_Selection_Click‘Ўstr_laenge_ChangeФн tr_laengeŽuf_3s*їmsgboѓ €џџџ_B_var_msgbo|Зconcat#“formelУ# €џџџ_B_var_formellžtk€џFormulaqY €џSubstitute^Я €џCalculateћ• €џFormulaLocalŠD my_form_erraч €џClearFormatsПУ FormelstringPфLabel2Ž,Label3,uf_dat4аM uf_betrag5‚capF}str_l€cfstr•&€џLocked €џProtectзf max_erreichtYГkcя] max_erreciht=1 €џџџ_B_var_testa€џџџ_B_var_max_erreciht™j €џSelLengthўФ€џSelText+T€џSelStartчZBeepУ Ќ(uf_terminate@љ€џџџ_B_var_UserForm_Terminatewџџxџџџџџџџџџџџџ џџџџџџџџџџџџџџџџ џџџџџџџџџџџџСџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ HЬ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{F2A68632-63F3-11D5-BDA0-444553540001}#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џџџџџџПЫю;џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ’z"DieseArbeitsmappe 173beea7e3*DџџzBџџTabelle1 d3beead80*Dџџ–zlџџUserForm1 53beeabab*Dџџ9ўўSџџ Modul1 143beecbfe*DРџџўџџџџxwџџ0АџџџџџџџџџџџџxџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџCX§љPzеН DESTџџџџEX§љPzеН DESTџџџџџџџџ@Н DESTџџџџџџџџ(Н DESTџџџџџџџџН DESTџџџџZ-МšzеН DESTџџџџa-МšzеН DESTџџџџџџџџP€зђџ€E €џAs „џb€џboolean€џCall€џCase=€џdimC€џEachD€џElseE€џElseIfH€џendifS€џFalseU€џFor_€џGoto`€џIfc€џInk€џintegery€џlong†€џNot€џOptional–€џpublicž€џresumeА€џSubГ€џThenД€џToЕ€џtrueН€џVariant Excel€+ VBAїтWin16С~Win32MacГВProjekt1вA stdole“` MSFormsC VBAProjectОП Officeu DieseArbeitsmappeЏ €џ_Evaluateй Tabelle1RŠTabelle2SŠTabelle3TŠ UserForm1)ж„џUserFormNCommandButton1|дCommandButton2}дCommandButton3~дCommandButton4дCommandButton5€дCommandButton6дCommandButton7‚дCommandButton8ƒдCommandButton9„дCommandButton103BCommandButton1_ClickфС €џActiveCellНЗ€џClickŠу„џRangeк rang  €џџџ_B_var_rangћn€џOffsetшЊ€џActivate—|CommandButton2_Clickєљmy_procZB€џџџ_B_var_my_procоE €џџџ_B_var_CallЗйi`CommandButton3_ClickFACommandButton4_ClickVyCommandButton5_ClickчРCommandButton6_ClickїјCommandButton7_ClickШ0CommandButton8_ClickYxCommandButton9_ClickiАCommandButton10_Clickѓb WorksheetСўWorksheet_SelectionChangeб4TargetЌFWorksheet_Activate+€џShowѕWorkbookk€џ_DefaultjТUser ПЫю;” 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€?F2A68632-63F3?5-BDA0-444553454ˆ1?€„P\VBE\…@EXЇ@с.E р….`ŒM ДƒŒpOfficp‚Omficp ‚Р+xФ,2DF8D04C-5BF@A-101BР,E5РLAAo4DE5ЩLMICROSOFT OFFICE\„MSO9`7.DLLˆN (8.0вN‚А‚Т’zР$DieseArbeitsmappФe“2"A Р4eРeAr*b@7i€ЊsР†a"p@e@ ЊHB1МB@ЗB%,BzA"+Т РTa€belle1JH2СaBlU‚Ф1PlP–L с@Userј€Šи2Ёbr&^1 ўSэ9ўу(`Ї@ModЌul€ g2B|M`jиduрq w€m ў!Ј Ё"rU€€€~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~C џџџџџџџџџџџџџџџџ    )С ™ !  ™ A ( A Б 8__SRP_0џџџџџџџџjp$__SRP_1џџџџџџџџџџџџЛеUserForm1џџџџџџџџ ЉПфjС ЉПфjСfџџџџџџџџџџџџЯіб-МšzеН DESTШ-МšzеН DEST џџџџџџџџ! hк-МšzеН DESTп-МšzеН DESTъ-МšzеН DESTђ-МšzеН DESTї-МšzеН DEST џ-МšzеН DEST-ЭАьЅzеН DEST4ЭАьЅzеН DEST8ЭАьЅzеН DEST<ЭАьЅzеН DESTDЭАьЅzеН DEST џџџџi xP5&ЈzеН DESTV5&ЈzеН DESTQ5&ЈzеН DEST@5&ЈzеН DESTU5&ЈzеН DESTR5&ЈzеН DEST џџџџџџџџ! а my_proc_sRowRowsColumnColumnsеРF  ™5&ЈzеН DEST 5&ЈzеН DESTš5&ЈzеН DESTŸ5&ЈzеН DEST›5&ЈzеН DEST џџџџџџџџ!  TCountВ5&ЈzеН DESTuf_s UF_s UFТ5&ЈzеН DESTв5&ЈzеН DESTл5&ЈzеН DESTр5&ЈzеН DESTм5&ЈzеН DESTп5&ЈzеН DESTн5&ЈzеН DEST Y џџџџџџџџ! ˆц5&ЈzеН DESTъ5&ЈzеН DESTч5&ЈzеН DESTщ5&ЈzеН DESTш5&ЈzеН DEST y!џџџџџџџџ! и X№5&ЈzеН DESTѕ5&ЈzеН DESTё5&ЈzеН DESTє5&ЈzеН DESTђ5&ЈzеН DEST Й"џџџџџџџџ! 0UserForm_Deactivate5&ЈzеН DEST5&ЈzеН DEST5&ЈzеН DEST5&ЈzеН DEST5&ЈzеН DEST $џџџџџџџџ! €UserForm_Terminate5&ЈzеН DEST5&ЈzеН DEST5&ЈzеН DEST5&ЈzеН DEST5&ЈzеН DEST Y%џџџџџџџџ! аHideD5&ЈzеН DESTH5&ЈzеН DESTT5&ЈzеН DESTу-МšzеН DESTт-МšzеН DESTЩГkкzеН DESTмГkкzеН DESTЪГkкzеН DESTРГkкzеН DESTлГkкzеН DESTкГkкzеН DEST ‰'џџџџџџџџ! XRв‹BьЮž Њ`ѓ OptionButton1 OptionButton2TextBox2"žŒ—АдЮП-Њ?@аLabel1 hCв‹BьЮž Њ`ѓTextBox2ъГkкzеН DESTщГkкzеН DESTьГkкzеН DESTљГkкzеН DESTэГkкzеН DESTјГkкzеН DESTюГkкzеН DEST I*џџџџџџџџ! OptionButton1_ClickOptionButton2_ClickTextBox2_ChangeДkкzеН DESTДkкzеН DEST џџџџ` Puf_3s ДkкzеН DESTДkкzеН DEST ДkкzеН DESTДkкzеН DESTob_Blatt ob_Selection str_laengeДkкzеН DEST )-џџџџџџџџ! Јob_Blatt_Clickob_Selection_Clickstr_laenge_ChangeДkкzеН DESTДkкzеН DESTДkкzеН DESTДkкzеН DESTДkкzеН DEST б.џџџџџџџџ! ј !щ0m{еН DESTљ0m{еН DESTџ0m{еН DESTіЖ%”{еН DESTєЖ%”{еН DESTъЖ%”{еН DESTр“K)^џџџџrU€€€€~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ YЎНсУпжеЉ,t‰ 2 фƒ џџџџџџџџџџџџџџЉƒŠ 9џџџџџџйƒA ‘џџџџЉ.б9‰$џџ9A yџџџџ` џџџџЩyBџџ!9) щЩDieseArbeitsmappeTabelle1Tabelle2Tabelle3 UserForm1 VBAProjectяРF?C:\PROGRAMME\GEMEINSAME DATEIEN\MICROSOFT SHARED\VBA\VBA332.DLLVBA yџџџџ Ё)PРF %C:\microsoft office\Office\EXCEL8.OLBExcel ‘џџџџЙ`0РFC:\WINDOWS\SYSTEM\stdole2.tlbstdole џџџџЉёphшЋеф@вН› №fХC:\WINDOWS\SYSTEM\MSForms.twdMSForms aA‰б€с.E р….`ŒM Д2†ІђѓcеН DESTC:\WINDOWS\TEMP\VBE\MSForms.EXD iA‘бLај-њ[НхЊDоR $C:\MICROSOFT OFFICE\OFFICE\MSO97.DLLOffice 1џџџџYБ иРFcX§љPzеН DEST РFbX§љPzеН DESTDРF WorksheetWorksheet_Activate @ѓX§љPzеН DESTY§љPzеН DESTєX§љPzеН DESTPX§љPzеН DESTY§љPzеН DESTС{lЏЮŸFЊWJOCommandButton8!ш-ЌЂ6Я€SЊ` њ q џџџџџџџџбиCommandButton9CommandButton10в‹BьЮž Њ`ѓTextBox1CommandButton11Ш[qJ—І eР‹UserFormљX§љPzеН DEST F3Dynamic љ џџџџџџџџ! шCommandButton1CommandButton2 pCommandButton3CommandButton4CommandButton5CommandButton6CommandButton7CommandButton1_ClickCommandButton10_ClickCommandButton11_ClickCommandButton2_ClickCommandButton3_ClickCommandButton4_ClickCommandButton5_ClickCommandButton6_ClickCommandButton7_ClickCommandButton8_ClickCommandButton9_Clickmy_procTextBox1_KeyDownp#А‚МЕЯ ЩtTextBox1_KeyUpUserForm_ActivateЦYl†ЯЋ|ЊРЯв‹BьЮž Њ`ѓРFYјйРFY™џџџџFРFкРFS-МšzеН DESTРFR-МšzеН DESTDРFWorkbook Workbook_OpenModul1 UserForm2uf1uf2 ^-МšzеН DESTl-МšzеН DEST_-МšzеН DEST[-МšzеН DESTk-МšzеН DESTh-МšzеН DEST aџџџџџџџџ! p DActivatetestSelectCells„-МšzеН DESTƒ-МšzеН DESTзРF VBA332.DLL џџџџS Р Letzte Zelle erreicht!А-МšzеН DESTЗ-МšzеН DESTЛ-МšzеН DESTР-МšzеН DESTМ-МšzеН DESTП-МšzеН DESTН-МšzеН DEST ёџџџџџџџџ! Т-МšzеН DEST 0 9ufЦ-МšzеН DESTв-МšzеН DESTЧ-МšzеН DESTЖ%”{еН DESTѓЖ%”{еН DEST№Ж%”{еН DEST Љ0џџџџџџџџ! pformel l x tћЖ%”{еН DESTLЗ%”{еН DEST CalculateuЗ%”{еН DEST…З%”{еН DEST " & t & "ИЗ%”{еН DEST ''ѕЗ%”{еН DEST FehlerљЗ%”{еН DESTіЗ%”{еН DESTјЗ%”{еН DESTїЗ%”{еН DEST_И%”{еН DEST Б3џџџџџџџџ! РИ%”{еН DESTИ%”{еН DEST '%И%”{еН DEST)И%”{еН DEST&И%”{еН DEST(И%”{еН DEST'И%”{еН DEST i5џџџџџџџџ! p=И%”{еН DESTAИ%”{еН DESTHИ%”{еН DESTNИ%”{еН DESTIИ%”{еН DESTMИ%”{еН DEST FormelstringLИ%”{еН DEST 7џџџџџџџџ! Р[И%”{еН DEST`И%”{еН DEST\И%”{еН DESTLabel2Label3]И%”{еН DEST 98џџџџџџџџ!   tuf_dat4 tt.mm.2001 '=datum(2001;rechts('x';2);links('x';2)) #=datum(2001;rechts(x;2);links(x;2)) =datum(2001;rechts(eИ%”{еН DEST '=datum(2001;rechts("x";2);links("x";2))oИ%”{еН DEST uf_betrag5 BetragxИ%”{еН DEST =N(x/100)š@=ыˆеН DESTž@=ыˆеН DEST›@=ыˆеН DEST€@=ыˆеН DEST@=ыˆеН DESTœ@=ыˆеН DEST a=џџџџџџџџ!   @=ыˆеН DESTЋ‹п}ŽжеЉ,t‰ 2А‹п}ŽжеЉ,t‰ 2ProtectIЏщ™жеЉ,t‰ 2QЏщ™жеЉ,t‰ 2щrэШжеЉ,t‰ 2шrэШжеЉ,t‰ 2 UserformJ1чыЫжеЉ,t‰ 2W1чыЫжеЉ,t‰ 2K1чыЫжеЉ,t‰ 2@1чыЫжеЉ,t‰ 2V1чыЫжеЉ,t‰ 2U1чыЫжеЉ,t‰ 2 1@џџџџџџџџ! ш `aТ€ѕдЉ,t‰ 2C:\WINDOWS\SYSTEM\MSForms.TWD Б@џџџџй@бј u1чыЫжеЉ,t‰ 2t1чыЫжеЉ,t‰ 2p1чыЫжеЉ,t‰ 2‹1чыЫжеЉ,t‰ 2 џџџџ H  uf_terminate)Ыл7пжеЉ,t‰ 2'i щHKeyCodeShift )БX ‰Б h Б x ЉБ ˆ 1Б ˜ 9Б Јsrscsrsscs  Б И Ё!Б Шsel с"Б и 1$Б ш %Б ј Б'Б  ™ ( ™ Ё((l q*Б 8 Q-Б H љ.Б X б0Б ht 4Б x ‘5Б ˆ )7Б ˜ a8Б Јcapbstr_lfstr ‰=Б И Y@Б Ш max_erreicht !AиkcR$H @}б ЇД„$хoџџџџарCompObjџџџџџџџџзaVBFrameџџџџџџџџџџџџйPROJECTwmџџџџо†€H€,E{5€ЅTahoma@ @€H€,РРР€"{1ZIu€ЅTahoma@(€Lфnge(x)іЈ5€ЅTahoma@(€x=IЇЈ5€ЅTahoma@€4TextBox1Ї,ѕ €2@str_laengeLEЇ(ѕ€28Label1@E(ѕ€24Label2@ ѓўџ џџџџMicrosoft Forms 2.0 FormEmbedded Objectє9ВqVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1 Caption = "UF" ClientHeight = 675 ClientLeft = 45 ClientTop = 330 ClientWidth = 1860 StartUpPosition = 1 'CenterOwner TypeInfoVer = 17 End DieseArbeitsmappeDieseArbeitsmappeTabelle1Tabelle1Modul1Modul1UserForm1UserForm1ID="{F9FD58A0-7A50-11D5-BDA0-444553540001}" Document=DieseArbeitsmappe/&H00000000 Document=Tabelle1/&H00000000 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} Module=Modul1 BaseClass=UserForm1 Name="VBAProject" HelpContextID="0" CMG="34369139911F951F951F951F95" DPB="1614B35B77DF58E058E058" GC="F8FA5D9E5E9E5E61" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] DieseArbeitsmappe=13PROJECTџџџџџџџџџџџџсASummaryInformation(џџџџџџџџыРDocumentSummaryInformation8џџџџџџџџџџџџю CompObjџџџџџџџџџџџџѕh2, 132, 709, 496, Z Tabelle1=66, 66, 643, 430, C Modul1=66, 66, 643, 430, UserForm1=61, 43, 638, 407, , 77, 124, 584, 488, ўџ р…ŸђљOhЋ‘+'Гй08@Xd |ˆф unknown userxwrnMicrosoft Excel@€эХєLСўџ еЭеœ.“—+,љЎDеЭеœ.“—+,љЎФ PXd lt|„ Œ ЁфlГ   Tabelle1  Tabellen˜ 6> _PID_GUIDфAN{F9FD58A1-7A50-11D5-BDA0-444553540001}ўџ џџџџ РFMicrosoft Excel 8.0-TabelleBiff8Excel.Sheet.8є9Вq