ࡱ>   )! "#$%&'(*,+-Root Entry F5Workbookp_VBA_PROJECT_CUR"VBA0p  !#$%&'()*+,-./012346789;=>?@ABCDEFGHIJKLMNPQRTVWXYZ[\]^_`abcdfghjklmnopqrstuvwxyz{|}~ F\pNahme Ba=DieseArbeitsmappe=-68X@"1& Courier New1& Courier New1& Courier New1& Courier New1& Courier New3#,##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\ _ _-;_-* "-"??\ _ _-;_-@_-                + )  , * `ZTabelle111T F   dMbP?_*+%"<~?<~?U >@7 Tabelle1 <jxTBL>#<O7Fj)cFw7Hwm3xw7Hwm3O7Fj)cMEDieseArbeitsmappe$ "__SRP_4 5__SRP_5 :BTabelle1<(SLSS6"N0{00020819-0000-0000-C000-000000000046}(%H` % %`h8@0F$*\Rffff*0[469bbd724 xpʰAttribute VB_Name = "DieseArbeitsmappe" " Bas0{00020819-0C$ 0046} |GlobalSpacIFalse dCreatablPredeclaIdTru BExposeTemplate`DerivBustomizD2Option /licit rU 09a4a`rU @n<jxTB0;#<MCWN(sP F99& F֗x99& F֗MCWN(sPME(SLSS6"N0{00020820-0000-0000-C000-000000000046}(%H` % %`h8@<<0F$*\Rffff*0]469bbd724 xpAttribute VB_Name = "Tabelle1"  Bas|0{00020820-; C$0046} |GlobalSpac False dCr@eatablPredeclaDIdTru BE xposeTemplateDeriv$Bust0omizD2Op tion /licit rU __SRP_6 O__SRP_7SBModul16__SRP_2 UAi4`rU @nrU~| 1   8 q`*l`l MP@@ @U^i0h5@h(P]g}3l`l MP@@-Su-j (ɀ:((r)_7Ͽ_//us/C'--- eof (> <h+"`xk@i$ @&h `(f`*`+, `ki0  @(0 U^ih5@h(Pf]Z3l`l MP@@ @(0 U^pf6@ kf kfDPhh(P@(0 Upz5 l(h@ \k d d"qt5d:ltiDtMT@d  d4($"qx6dh\$ d4 kTh1l MT@D DU4 4"qd6D4:ldi$dMT@D  D4("qd6D)hldiTD($4(Upz5x(hD4\k d d"qt5d:ltiDtMT@d  d4($"qx6dh\$ d4\rU (`+(`(`+(__SRP_3e_VBA_PROJECTi dirN__SRP_0`nas *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\GEMEIN~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.4#0#C:\Programme\Microsoft Office\Office10\EXCEL.EXE#Microsoft Excel 10.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automation,*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.2#0#C:\Programme\Gemeinsame Dateien\Microsoft Shared\Office10\MSO.DLL#Microsoft Office 10.0 Object Library BFTB"DieseArbeitsmappe0[469bbd72"DieseArbeitsmappeL>Tabelle10]469bbd72Tabelle10; Modul10`469bbd72    TBXfxME (> <h+"`xk@i$ @&h `(f`*`+, `ki0 `2tm+:``k`i$ @*h `2d+>`k#i0 `2t  p%@x`hP0`"z@.,@P @@ @0 @ @ `,x486@d @T @0D @H4 @$ @ `h8P`:z(@T .4<6@D @4 @$ @ @ `>x4<6@d @T @0D @H4 @$ @ H(F$*\Rffff*0`469bbd72*\R0*#12*\R0*#5*   "8 (`  B  *  3  3 @X`x B : B  1:)8X B `hp:  VBA-Modul woy Version 2.0 / 2006-10-01 made by pstrainer@gmx.net" Berechnung der ISO-Kalenderwochep]`x] $'* * $$.$, '& & * $$. $, '& &fe * $$. $, '( (G ('&jk & '"i] 0$4'2 2 2 8$6  ',i0 ] $'* $$.$4'2 2 2 <$6  '2 * 2  ':i] 0$4'2 2 2 <$6  '>iP --- eof ---0"Attribute VB_Name = "Modul1" ' A-< woyDersion 2.0 / 2006-10-018made by pstrainer@gmx.net:Berechnung der ISO-Kalen woche Opt]Explici7 Funck ,_iso(datum As Double) Integer Dim dif,nLong d|K() if d - dref70YearIf. < 0 Then&(1Else!>= (358"n@ + #8"n #E K=JEnd \IfP(J \ 7)A A ]AePriva@bDByVal yyWBaCV`r Z rDSerial(yy, 1, 4CEr@IWeekday(r, vbMon'%6usCkA V, K( -B/aA Modul1Xf`0`V;aIoTʴOzE'Fpy;x(u="*xx}U)34Ou !"(Excel+VBAWin16~Win32MacVBA6#Projekt1Astdole` VBAProjectOfficeuDieseArbeitsmappe _EvaluateTabelle1RTabelle2STabelle3TWorkbookkModul1kalenderwoche_isodatum@4difdifncd[dref_iso'Year6nyys_ri DateSerialUWeekdayvbMondaykalenderwoche_usvbSunday&dref_us˓ Worksheet Kalenderwoche@ `!B 6J0* pHd Kalender@woche@T@ = +x F J< rstdole>std@olerh%^*\G{00020430-;C 0046}#2.0#0#C:\WINDOWS\sys@tem32\e2.tlb#OLE Automat8ion0EOfficEOficEE2DF8D04C-5BFA-101B-BDE5EAAC42EProgramme\Gemeinsame Dateien\Microsoft S@hared\A10\MSO.DL L# 10.0 Object LibraryL TB DieseArbeitsmappeG" ilsArbi_smap@e2(HB1BXB,B)L">#+ Tabelle1GA$'lB1%2 0;AModul@M@duwAG2ªI.:Xf!3:6K*srU~~~~~~~~~~~~~K  h