ࡱ>   C D5 !"#$%&'()*+,-./012346789:;<=>?@BQEPOHIJKLMNAh}S\UVWXYZ[F]^_abcdefgRi{klmnoxqrstuvwjyz|~Root Entry Fwb&8 e1Workbook _VBA_PROJECT_CUR"x`ZVBAX  !"#$%&'()*+,-.0123456789:;<=>?@ABCDEFGIJKLMNOPQRSTUVWXYZ[\]^_abcdefghijlmnopqstvwxyz{|}~ I\pwrH Ba=DieseArbeitsmappe=s-"<X@"1Arial1Arial1Arial1Arial#,##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_-;_-@_-                + )  , *  @   ` Tabelle111:BOg8 0P 1O _br0< r0 DbDD0wB DIr07bIr00 b  b0 _\/Z`b'0bN0  b bS0b]00 b& 0^n00b G000#G00 b ,b]Y0b  b Whrung [0]_< ZS0pbtbϝ0vpb0ZT0_T0Qw0_T0# pb-Q0 #?b-P0-"b bXNJT0e0YT0L0YT0LNJT0bb1v0 $@bM0b=s0{=s0?0pbg|00bb$(bs0 b I  ^  dMbP?_*+%""b<~?<~?NJU } m T0bb16     <>@ Tabelle1 -zDESTFDieseArbeitsmappe$ / Tabelle1HUserForm1'___SRP_4Gxzz#_ PSLSS<<<<<N0{00020819-0000-0000-C000-000000000046}((2.$` $ $ $0 $ $ $i h` $ $ $xME(0xl B@hAttribute VB_Name = "DieseArbeitsmappe" " Bas0{00020819-0C$ 0046} |Cr@eatablFalse ^Pre declaIdTru "ExposeTemplateDeriv$eCustomizD2-zDEST Fxzz#S PSLSS<<<<<N0{00020820-0000-0000-C000-000000000046}($` $ $ $i  $ $ $i `2%ePxME (0lpl` B@hPAttribute VB_Name = "Tabelle1"  Bas|0{00020820-; C$0046} |CreatablFalse PredeHclaIdTru "ExposeTemplateDeriv$eCustomiz2 ( >H " B@ $ " 0 H  J0  " h 4        h  "  8  (  8 @  H P  " P & & 4     H`  D  D h` 6h&W &Z  $Y0 ($YX 0  *SX " 8 . , * 4  7`7   ((@((H(   p @ " $X` X  " x px ` - -8@8P !    ` 2 " h 0P !@.8H1xdX +0Pp "   0h !0:@H(=h +h8 "@ 8 B xX`+ tlpl` B@lH@l8 t Ek(l  8%BB@Duu  8! $B@J  8%BB@D ! !el B@Drows 8! 6:!h 8! $B@D 8! bakLetzte Zelle erreicht!A@|' !f (\h(HQE ndere Keycode NICHT!'t't't'tX0l0l'thh (\IQ% Call my_proc(CInt(TextBox1))6G08 Wiederholung der letzten Eingabe solange ENTER Taste gedrckt istG(Eingabe einer Ziffer in die aktive Zelle&HQE ndere Keycode NICHT!/Bewegung des Cursors fr eventuelle Korrekturen XPE'tpls HQE ndere Keycode NICHT!entwickelt von Winfried Radnerp@=DEST@=DEST@=DEST@=DESTxJ:6z9@=DEST@=DEST:BBT HLPTX\`dhH@SPSSS1>"<<<< <$<(<,<0<4<8<<<@x ""M$= 13I$0'&sCall my_proc_s(Left(), l)RH)S)!+`BewegSs Curso>1_evpB6 KorrekA4Y4"37:D AtveC9.Offset(0, -1).>/ 8t(-1, 0#*= 492 / 't40t( Up 'U&&LenX!2)(l|'#L$ g\p' I ub`X@Up@q@ger@^@ @$st@ v0uaevtl.p Spr,`nxchACqR96 To 1050xt) < cExitQlod=tbHq)>dbP H 9EmIE Jokvj"+G'ep1lt ll qhx lh x  DDpt! t F>pFXH  H`D/Dt6XHDpt! t F>pFXH  H`D/Dt6XH/lhx lhq@l@%~I(0%D %t"$ (tX0)t5Xx 8l@&ID0%( %t"$ (tX0)t5Xx 8l@'OH(0%( %t"$ (tX0)t5Xx 8l@(H(0%( %t"$ (tX0)t5Xx 8*pt! t llpJF/pt6Spt! t lF>pFXH  H  !  )t6X  p@,8lx(pDtXH L l xKtx ltqplp`i8*hl! l llhJF/hle4hl! l llhd! d /h)ld D7l! FQloTD  D`h/h6TD7l! FQloTD  D`h/h6TD l! l hllp%Ilp&Zlp'klp(|lplp x  l! l hl l! l ll! l l 8(x hldTDK`(T%hx"$ x hEDD%d"$ d4@BF)xd6h4x! x xH$ xdh4x"$ Qxoh, D7 D`(T%hx"$ x hEDD%d"$ d4@BF)xd6h4-x "$ xWh"4x5h-x "$ xWh "8x5h8x "$ xWh W4 "<x6h48x "$ xWh W4 "@x6h4!x"$ (xxx! x x x! x hx x! x xH$7 xdh4!x"$ (xpx0hl h%x"$ (x,x5h!x"$ (xx.x"$ (xah"x5hH(X%(H%x"$ (xhDD0)xD5h.xNot Gaxeng >el i= ' Show En d JAU X5\"$4$ X\HkrU 8`Userform =xp0* pHd VBAProject4@j = r k; J< rstdole>stdole f%\*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\SYSTEM\c2.tl_VBA_PROJECT`xdiru__SRP_0p!__SRP_1 srForm_Click ReturnIntegerUserForm_KeyUpcKeyCodeShiftKeyUpM _B_var_Select'EMsgBoxRUserForm_ActivateZsuserfor0}SetFocus_B_var_UserFormTextBox1STextBox1_Change=TextBox1_KeyUp~ _B_var_CaseValueK Workbook_OpenTextBox1_MouseDown;ButtonXoYlUserForm_KeyDownA_KeyDown.aUserForm_KeyPress4KeyAscii#KeyPressqTextBox1_KeyDownjV _B_var_IfPTextBoxQ_B_var_TextBoxNU Application* EnableEventsUserForm_Initialize5c InitializeNtempR _B_var_tempCommandButton114BCommandButton11_ClickCommandButton11_MouseDown ~ MouseDowns Modul1uf1"uf2# UserForm2* _B_var_On6 nach_obenyhCells activecelactiveceactivec3activeSactiv actiactrac}\aXColumnifertigrix z3 6 <$LLL"<(<,<0<4<8<<<k;$*\Rffff*163b6bf5c8*\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*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\SYSTEM\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#47*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\SYSTEM\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#5e$*\Rffff*143b6bf53bUserform=x$ p$$$$h32$$$@$$$p$$x(p$  @l   (@\ @X hp@H h `Hk I 0I X I I  88X0P8(0ME $h , " J &"$0P ( -@1 - -8   lp B@hlP B@h8l8$B@Dentwickelt von Winfried Radner&e-mail: Wolf.W.Radzinski@onlinehome.deBenutzung frei - ohne GewhrC+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++  (^2l B@h(l arbeitet auf GANZEM Arbeitsblatt@  (`  (b (` (b  setze Stringlnge auf konstant 4 (` tt.mm.2001 (2'=datum(2001;rechts("x";2);links("x";2)) (" x' =N(x/100) ( (b001; B@h _B_var_forjL SelectionZby\RowRowsUColumnsp9casI} _B_var_Elseifqm endselect_B_var_endselectO _B_var_EndFtest4 ActiveSheet%N ThisWorkbook|Sheets  _B_var_OffsetR%TextBox1_KeyPressX(ufd_VisibleHide9z _B_var_LeftQ my_proc_sŜ _B_var_subro^selectioselecti۳selecseleselfse_sjoffsez  StatusBarʜsr&_sc_srsNscs#Count0vCaptionxuf_swUserForm_Deactivate DeactivatejUserForm_TerminatelD TerminateyL OptionButton1k@ OptionButton2l@OptionButton2_Click/TextBox2SLabel1,lcMaxȲ _B_var_MaxoWorksheetFunction&TextBox2_ChangeOptionButton1_ClickcChangeChrK~ _B_var_Chr\;lastx9Tag&ob_Blattb ob_Selectiont str_laengeob_Blatt_ClickMob_Selection_Clickstr_laenge_Change tr_laengeuf_3s*msgbo _B_var_msgbo|concat#formel# _B_var_formelltkFormulaqY Substitute^ Calculate FormulaLocalD my_form_erra ClearFormats FormelstringPLabel2,Label3,uf_dat4M uf_betrag5capF}str_lcfstr&x   Ha^ *\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{D5ABE868-40E4-11D2-BD9B-0CF066C50000}#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 Libraryk;z"DieseArbeitsmappe 23b6bf4f1*Dz_Tabelle1 43b6bf4f1*DzSUserForm1 143b6bf53b*D9T Modul1 163b6bf5c8*Dx0xCXPzDESTEXPzDEST@DEST(DESTDESTZ-zDESTa-zDESTPlC as bbooleanCallCase=dimCEachDelseEElseIfHendifSFalseUFor_Goto`IfcInkintegerylongnotoptionalpublicresumeSubThenTotrueVariant Excel+ VBAWin16~Win32MacProjekt1A stdole` MSFormsC VBAProject Officeu DieseArbeitsmappe _Evaluate Tabelle1RTabelle2STabelle3T UserForm1)UserFormNCommandButton1|CommandButton2}CommandButton3~CommandButton4CommandButton5CommandButton6CommandButton7CommandButton8CommandButton9CommandButton103BCommandButton1_Click ActiveCellClickRange rang  _B_var_rangnOffsetActivate|CommandButton2_Clickmy_procZB_B_var_my_procE _B_var_Calli`CommandButton3_ClickFACommandButton4_ClickVyCommandButton5_ClickCommandButton6_ClickCommandButton7_Click0CommandButton8_ClickYxCommandButton9_ClickiCommandButton10_Clickb WorksheetWorksheet_SelectionChange4TargetFWorksheet_Activate+ShowWorkbookk_DefaultjUseb#OLE Automation#^MSForms>!SFErms/z pFD5ABE868-40E4-11D2-BD9B-0CF0686C5HF3.twd#Microsoft = ` Ob Libprary9P04rPF2A68632-6(3F3P5PA0-44455354P1PJP\VBE\(EXD(.E .`M ACxOfficDxO@uficBx +x,2DF8D04C-5BF@A-101B,E5@xAA@w4DE52,MICROSOFT OFFICE\MSO97.DLL. P 8.0W¸z$DieseArbeitsmappe2"A 4eeArTb@7isaDp@e@ THB1B_KB,BzAD+ Tabelle1J2aBl1PSPL UserP 2brFb!1 T9(`~Modul g2bMnduq ǀm ! "rU~~~~~~~~~~~~~~~~~~~~~~~~~~~~G   ) !  A ( A 8i HKeyCodeShift )! h-zDEST-zDEST-zDEST-zDEST-zDEST -zDEST-ͰzDEST4ͰzDEST8ͰzDEST<ͰzDESTDͰzDEST i xP5&zDESTV5&zDESTQ5&zDEST@5&zDESTU5&zDESTR5&zDEST !  my_proc_sRowRowsColumnColumnsF  5&zDEST5&zDEST5&zDEST5&zDEST5&zDEST !  TCount5&zDESTuf_s UF_s UF5&zDEST5&zDEST5&zDEST5&zDEST5&zDEST5&zDEST5&zDEST Y ! 5&zDEST5&zDEST5&zDEST5&zDEST5&zDEST y!!  X5&zDEST5&zDEST5&zDEST5&zDEST5&zDEST "! 0UserForm_Deactivate5&zDEST5&zDEST5&zDEST5&zDEST5&zDEST $! UserForm_Terminate5&zDEST5&zDEST5&zDEST5&zDEST5&zDEST Y%! HideD5&zDESTH5&zDESTT5&zDEST-zDEST-zDESTɳkzDESTܳkzDESTʳkzDESTkzDEST۳kzDESTڳkzDEST '! XRҋB ` OptionButton1 OptionButton2TextBox2"-?@Label1 hCҋB `TextBox2kzDESTkzDESTkzDESTkzDESTkzDESTkzDESTkzDEST I*! OptionButton1_ClickOptionButton2_ClickTextBox2_ChangekzDESTkzDEST ` Puf_3s kzDESTkzDEST kzDESTkzDESTob_Blatt ob_Selection str_laengekzDEST )-! ob_Blatt_Clickob_Selection_Clickstr_laenge_ChangekzDESTkzDESTkzDESTkzDESTkzDEST .!  !0m{DEST0m{DEST0m{DEST%{DEST%{DEST%{DEST%{DEST%{DEST%{DK)^rU~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~I Y@=DEST  A 8 --Q.9$)19A y !9) DieseArbeitsmappeTabelle1Tabelle2Tabelle3 UserForm1 VBAProjectF?C:\PROGRAMME\GEMEINSAME DATEIEN\MICROSOFT SHARED\VBA\VBA332.DLLVBA y )PF %C:\microsoft office\Office\EXCEL8.OLBExcel `0FC:\WINDOWS\SYSTEM\stdole2.tlbstdole ph@ fC:\WINDOWS\SYSTEM\MSForms.twdMSForms aA.E .`M 2cDESTC:\WINDOWS\TEMP\VBE\MSForms.EXD iAL-[DR $C:\MICROSOFT OFFICE\OFFICE\MSO97.DLLOffice 1YFcXPzDEST FbXPzDESTDF WorksheetWorksheet_Activate @XPzDESTYPzDESTXPzDESTPXPzDESTYPzDEST{lFWJOCommandButton8!-6S` q CommandButton9CommandButton10ҋB `TextBox1CommandButton11ȏ[qJ eUserFormXPzDEST F3Dynamic ! CommandButton1CommandButton2 pCommandButton3CommandButton4CommandButton5CommandButton6CommandButton7CommandButton1_ClickCommandButton10_ClickCommandButton11_ClickCommandButton2_ClickCommandButton3_ClickCommandButton4_ClickCommandButton5_ClickCommandButton6_ClickCommandButton7_ClickCommandButton8_ClickCommandButton9_Clickmy_procTextBox1_KeyDownp#tTextBox1_KeyUpUserForm_ActivateƏYl|ҋB `FYFYFFFS-zDESTFR-zDESTDFWorkbook Workbook_OpenModul1 UserForm2uf1uf2 ^-zDESTl-zDEST_-zDEST[-zDESTk-zDESTh-zDEST a! p DActivatetestSelectCells-zDEST-zDESTF VBA332.DLL S  Letzte Zelle erreicht!-zDEST-zDEST-zDEST-zDEST-zDEST-zDEST-zDEST ! -zDEST 0 9uf-zDEST-zDEST-zDEST-zDEST-zDEST EST 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?X  h  x   1  9 srscsrsscs  ! sel "  1$  %  '  ( ((l q* 8 Q- H . X 0 ht 4 x 5  )7  a8 capbstr_lfstr = a$H @ } \$H,E{5Tahoma@4F {1EArbeitsblatt5Tahoma@4F {0ESelectionattUserForm1gfo CompObja5Tahoma@ @H,"{1EuTahoma@(Lnge(x)5Tahoma@$@H,g {=xE5Tahoma@(x=E5Tahoma@ ( Formel: =f(x)Gq5Tahoma@4TextBox1$Tob_Blatt"( Tob_Selection( @str_laengeonE(28Label1@E( DFormelstring (24Label2@(2@Label3@E  Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1 Caption = "UF" ClientHeight = 1815 VBFramePROJECTwmPROJECTCSummaryInformation( ClientLeft = 45 ClientTop = 330 ClientWidth = 1860 StartUpPosition = 1 'CenterOwner TypeInfoVer = 13 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="6567C06940CA44CA44CA44CA44" DPB="CAC86F08D509D509D5" GC="2F2D8AB78A79EE7AEE7A11" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] DieseArbeitsmappe=132, 132, 709, 496, C Tabelle1=66, 66, 643, 430, C Modul1=66, 66, 643, 430, UserForm1=61, 43, 638, 407, , 77, 124, 584, 488, Oh+'08@Xd | unknown userxSCHMicrosoft Excel@L՜.+,D՜.+, PXd lt| l   Tabelle1  Tabellen 6> _PID_GUIDDocumentSummaryInformation8CompObjhAN{F9FD58A1-7A50-11D5-BDA0-444553540001} FMicrosoft Excel 8.0-TabelleBiff8Excel.Sheet.89q