аЯрЁБс>ўџ  ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ§џџџ  ўџџџ%ўџџџ !"#$&+'()*,ўџџџ-ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot Entryџџџџџџџџ РF0gдlыХР7Workbookџџџџџџџџї_VBA_PROJECT_CUR"а lыХ0gдlыХVBAџџџџџџџџа”lыХ@ЪЪlыХ  ЭСРсАСт\pRainer Bergmann BАaР=гКDieseArbeitsmappeœЏМ=Z[;њ#8X@"Зк1Шџ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\ _Ќ _-;_-* "-"??\ _Ќ _-;_-@_-рѕџ Р рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР р Р р+ѕџ јР р)ѕџ јР р ѕџ јР р,ѕџ јР р*ѕџ јР р Р р UU@ @ Р р PP Р р @@Р р @Р р P @Р р @Р р P Р р P@ Р р P Р р U@ Р “€џ“€џ“€џ“€џ“€џ“€џ`…ЈTabelle1Œ11Ўўџўџ TestItСС"ОыZ№R№3 №ПAР@@ё  їќџccF  ЭСР ž 0  dќЉёвMbP?_*+‚€%џСƒ„M6HP DeskJet 722CмXCя€ š 4d,,A4DINU"4$@$ДЗ$˜$$˜$Ё" d,,Š<ќ§~п?Š<ќ§~п?U     0 0 0    џ     0   џ џ         0 0 0 0 0 0 0 0 О О О О О  О О  О  О  ООООО О О О  О О О ООООО О з6zр""""*,ьЮ№Ю№№Ж№( № №№~’ № Ѓ №<€„k‰…‹ПCƒCПР@П№ ц цё№],B„k‰h.ˆ4В$k‰9ь №Ж$ < Makrostart<> >Ж@  я7К Tabelle1 DieseArbeitsmappe$ џџџџџџџџTabelle1џџџџs__SRP_4 џџџџ+ф__SRP_5џџџџџџџџџџџџ/B ўџџџ !"#$%&'()*ўџџџ,-.ўџџџ0ўџџџ23456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefўџџџhijklmnopqrўџџџtuўџџџwxyz{|}~€№ЬдџџџџгG?ЋЄНџџ#ˆЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ<џџџџџџN0{00020819-0000-0000-C000-000000000046}џџџџ@€ўџџџџџџџ(џџџџџџџџџџ%џџџџHџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0ЕхD пўЪ€€ џџџџџџџџЭџџxџџџџpџџџџЪАAttribute VB_Name = "DieseArbeitsmappe" "  Bas 0{00020819ъ-0C$ 0046} |GlobalкSpa‚cIFalse dCreatablPredeclaIdЖTru BExposeTemplate`Deriv’BuРstomizD2€Option /licit дфˆЈ?Ћp–џџ#ˆЖџџџџџџџџ<џџЂˆ0kсE Ѓ0–Х6˜ РFЇcBšЙ џџџџ”џџџџLџџџџџџџџџџџџџџModul1 џџџџ1[ __SRP_2 џџџџgд__SRP_3џџџџџџџџџџџџsІ_VBA_PROJECTџџџџџџџџџџџџv› џџџџџџџџџџџџџџ<,џџ<0џџ<4џџ<8џџ<<џџ<џџџџџџXˆ и`џџџџџџџџˆ˜ўk@џџџџџџ„)ƒ џџџџ џџ`h€ %iƒ$џџџџџџџџџџџџ€x „(џџџџxџџџ %`„*џџџџhџџџ џџ`„,ˆXџџџ џџ @џџџџ`џџџџџџџџџџџџRџJџџџџџџџџџџ„џџџџиџџџџƒHџџџџџџPџџџџџџџџџџџџџџ%џџџџ(џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџјџџџџ€ˆ`јААА€plџџџ џџ АА@ўџ\џџџ џџ АА€(Xџџџ џџ @@@ўџTџџџ џџ ``@ўџRџџџџџ  pџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЈџџџџџџџџ@РџџџџџџџџшXxџџџџџџџџџџџџџџџџџџџџџџџџ џџџџРџџџџџџџџpџџџџџџџџџџџџџџџџ(8џџџџ.02468>А€ўџџџџџTџџџp ``@ @ўџDџџџ џџ pp@ўџЈ4џџџ џџ €p@ўџР$џџџ џџ p`@ўџиџџџ џџ ``@ўџ№џџџ џџ ``@ўџџџџџєўџџ џџ ј@ўџфўџџ џџ @ўџHрўџO џџ ` @ўџџџџџмўџџ џџ ˆH@ўџ˜иўџџџџ Аp@ўџџџџџдўџџџџ и˜@ўџџџџџаўџoџџ `Р@ўџЬўџџ џџ @ўџ0Мўџџ џџ @ўџџџџџИўџџ џџ @ўџHЈўџџ џџ @ўџџџџџ˜ўџџ џџ pР џџџџ  џџџџxџџџџџџџџџџџџџџџџџџџџиџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(џџџџџџџџџџџџџџџџџџџџџџџџџџџџЕхD *\R1*#1c8$*\Rffff*0K44e5b51f*\R1*#2ac*\R1*#e8*\R1*#2c*\R1*#a3*\R0*#17*\R1*#1d3*\R1*#241*\R1*#10пўЪ€€ џџџџ" €€€ џџџџ"•(P`Yp NЈ А ИР€ џџџџ" Ш€ Fа8€ џџџџџџџџHЭџџx–]ђˆ]ђЈђР . 0 2 4 6 8D'*џџ џ (ў “џ ,ў *“ , (%:!< >œ $ , (%:($kџџPџЧHџЧ@oџџ8–ир? xlHairline = 1, xlThin = 2, xlMedium = -4138 oder xlThick = 4ЖA1:J30$" JA@Б"oџџРџџџџИџџџџЄБAttribute VB_Name = "Modul1" Option Explicit Sub ChangeWeight(src Asd R$, ( Integer) Dim cellP(arrVariantx, x ##= Array(xlDiagona`lDown/Up EdgeBottom Lef5WlRАTop›For EaФchPIn h;ц † x D  If.Borders(x).LineStyle <> xlNone TheОn)ƒ‰„˜=1End€2…Neђx€П ƒ €ФШ€TestIt(‚g‚'=Hairl€F…ц1wThin€2Medium€-4138 o'@/@ @ck 4 xCv("A1: J30")Х !rU€€€€~|  Й‘iAБбљБ ц|•ѕѕTџўŽ€ўСDџѕlTџRўС4џѕlTџRўС$џ ѕlTџRўСџѕlTџRўСџ ѕlTџRўСєўѕlTџRTџфў TџZфўќіhџ€ xџўˆрўvhџXџў‰аўiYXџќ"§iDџ%xџaфўГ§ѓЬўЬўўЂМў§ѓИўИўaЈўwўС$џвяџџ]ћ@)ЬўИў6фўМўЈў\ND$џ%Xџќ"§iDџ%xџaфўГ§ѓЬўЬўўЂМў§ѓИўИў,x)ЬўИў6фўМў XџўŒаўЕ xџў‹рўЇ ф|<$аўрўмўhџXџxџ.ЬўИўфўМўЈў˜ўTџ0 ќЦи  frU€€€ џџџџџџџџ4`§џџџџџџџџџџџ‘=a&$Љ`§џџџџџџџџџџџnЬayџ фњ*\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.5#0#D:\Programme\Microsoft Office\OFFICE11\EXCEL.EXE#Microsoft Excel 11.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.3#0#C:\Programme\Gemeinsame Dateien\Microsoft Shared\OFFICE11\MSO.DLL#Microsoft Office 11.0 Object Library џџџџџџџџЕхD џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ?Ћ"DieseArbeitsmappe0H44e5b511џџ"DieseArbeitsmappeџџЄНMџџTabelle10M44e5b68fџџTabelle1џџp–Ўџџ Modul10K44e5b51fџџH Modul1џџeк`Г џџ0€џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ Њ6oфЯ.I•!ƒ=„ГW’џџџџ?•г/ ЕCИЅ†џўЅ#џџџџx(˜R4ѓ›šHђџџџџxЖyLW'Аœ)џџџџ.sЮ–“?{Bl`sж_џџџџџџџџ€'(џИ)Excel€+VBAїтWin16С~Win32MacГВVBA6­#Projekt1вAstdole“` VBAProjectОПOfficeuDieseArbeitsmappeЏ €џ_EvaluateйTabelle1RŠTabelle2SŠTabelle3TŠ ChangeWeightк~src>е€џRangeк „џWeight1Щ WorksheetСўcellЏ‰arr uxo€џxlDiagonalDownJ@ €џxlDiagonalUpЏ €џxlEdgeBottom €џxlEdgeLeftћL €џxlEdgeRight%v €џxlEdgeToph€џBordersC" €џLineStyleŒw€џxlNoneшћTestItš€џxlMediumЎёWorkbookk€џ_DefaultjТModul1Э€џxlThinМwxlhick8€џxlThick’‡џџ`џџџџџџџџџџџџџџџџIџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџ 6MВ€0* pH‚dф VBAProjeˆct4@j = r ЕхD ” J< r€stdole>stdo€le h%^*\G{00€020430-C 0046}#2.0#0#C:\WINDOWS\syst em32\e2.dirџџџџџџџџџџџџЅQ__SRP_0џџџџџџџџЏ)__SRP_1џџџџџџџџџџџџШЋPROJECTwmџџџџџџџџџџџџЫhtlb#OLE Automation`ƒEOffDic„EOf€iдc‚E €–€E2DF8D04C-5BFA-10€1B-BDE5€EдAA€C4€2ˆE€˜gramme\Gemeinsame Dateien\Microsoft Shared\OFFICE11\MSO.0DLL#‡ƒN 1@1.0 ObТ €LibraryLE‚е‚?Ћ€ DieseArbeitsmappeGR" ils€APrbРi_s@map@eT“2ЄHB1B€M,B,B)ЄН#+Т РTabellep1GA$'lmB…1€%Щ2вЯЎ3ЌЭp–ЫAЃMoXdul@СЉM@ЂdмuРAG2ТЊI‰ЯГ Я:eк!Р3Х:С6“K*yџџџџrU€€€€~~~~~~~~~c aGЬ,­фзAЈHCщПB. фџџџџ џџџџџџџџџџџџЙƒŠ$ ! џџџџџџщˆa ёџџџџpџџџџ‰йџџI!) 1DieseArbeitsmappeTabelle1Tabelle2Tabelle3Modul1 VBAProjectяРF /C:\PROGRA~1\GEMEIN~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA џџџџ Љ0РF 0D:\Programme\Microsoft Office\OFFICE11\EXCEL.EXEExcel yџџџџЁ@0РFC:\WINDOWS\system32\stdole2.tlbstdole џџџџЉёPLај-њ[НхЊDоRAC:\Programme\Gemeinsame Dateien\Microsoft Shared\OFFICE11\MSO.DLLOffice aџџџџ‰` ChangeWeightFРFTestIt  A1:G10РFйРFAiџџџџAˆUРFTРFVBE6.DLL !џџџџY ˜ A1:H30 A1:J30иРFЂˆ0kсE Ѓ0–Х6˜ РFЇcBšЙ