аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ§џџџ *  +,# !"$%&'ўџџџ)ўџџџўџџџ;-.70123456(89:<ўџџџ=ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot Entryџџџџџџџџ РF€jb<АžСр ђœŸСР-Workbookџџџџџџџџ‚ _VBA_PROJECT_CUR"`шЎœŸСр ђœŸСVBAџџџџџџџџ `шЎœŸС`RЧœŸС  !"#$%&'()*+,-./0123456ўџџџ89:;<=>?@ABCDEFGHIўџџџKLMNўџџџўџџџQRSTUVWXYZ[\]^_`abcdўџџџfghўџџџўџџџklmnopqrstuўџџџwxyz{|}~€ ЬI‡сАСт\pwr BАa=гКDieseArbeitsmappeœЏМ=xxL;ƒ"<X@"Зк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\ _Ќ _-;_-* "-"??\ _Ќ _-;_-@_-рѕџ Р рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР р Р р+ѕџ јР р)ѕџ јР р ѕџ јР р,ѕџ јР р*ѕџ јР р @ “€џ“€џ“€џ“€џ“€џ“€џ`… Tabelle1Œ11Ўќџњўџџџ8Тb“BHьСbsBHьСb8ТbХЙїПаЕд‡ЬH:HќHќHmEHТbО ”.я тЭr0 œ.яєУbџџџџџџџџ(GHџџџч №Џ00бbHHФђGьТbц5HHHHIЩr0ˆ.я рУb  рУbˆ.я LHZ8HУbЬЦHHУbxHФђGH„цS0œУb]Ч0Х0PЊH[84ЬbђHАы^n0Ч0гоУbќ ѓG0Х0њЧ0#G0ˆ.я рУb „.ярХb]‚Y0мУb џџџџ.яЦb Wфhrung [0]_< ZцS0lФb'яpХb№Ю0r‡lХb‰0ZT0в_T0Qw0в_T0# э‰h‡ЌФb-Q0 Є‰‡ќ‡њ‰;e0!Цb ‡v‰0 ‡!ЦbvРЧ0 ‡!Цb;NJT0e0№YT0ь‰L‰0ь‰№YT0LNJT0њХbЦb1v0 $<цbшM0ŒХb„јьДР‰Ї=s0{=s0?0lХb'яx/яр !'яx/я|Б0'яэ‡иХbјХb”/я$Цb”s0ЦbЦ ЬI  а .  dќЉёвMbP?_*+‚€%џСƒ„Ё"џFvŠ<ќ§~п?Š<ќ§~п?NJU  џT0џbџbџ16џС  џ џ џbНј?@`@~ @"ffffff@§~пќ D€D€О О О О О Н @"@зFŒ4>Ж@  К Tabelle1 Жџџџџџџџџ<џџіынЇ жЉ,t‰ 2РFDieseArbeitsmappe$џџџџџџџџџџџџ7Ѕ__SRP_6џџџџџџџџџџџџJ __SRP_7 џџџџO@Tabelle1џџџџџџџџџџџџP:ѕынЇ жЉ,t‰ 2џџџџџџџџџџџџxњŠ8џџџџ™g›gџџ#ˆѕынЇ жЉ,t‰ 2іынЇ жЉ,t‰ 2џџІђђњџџџџ4џџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ6"џџџџџџN0{00020819-0000-0000-C000-000000000046}I+G<$*\Rffff*153c45b041пџџџџаўџџџџџџџџџ(џџџџџџџџџџde52$џџџџHƒўџџџџџџџ`џџџџџџџџџџџџџџl#mi $‚ џџџџўџџџџџўџџџџџџџџџџџЎ $ƒўџџџџџџџРџџџџџџџџџџџџџџ $џџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџh˜@hhџџџџџџџџџџџџџџџџџџџџџџ0MEџџџџџџџџџџўЪџџџџџџџџxЇАAttribute VB_Name = "DieseArbeitsmappe" "  Bas 0{00020819ъ-0C$ 0046} |Cr@eatabl†False ^Pre declaIdTru "ExposeTemplateDeriv$eCustomizD2rU€€€ 1Yџџџџ 4ЉСбџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ“crU€€€ џџџџџџџџ@pЖџџџџџџџџ<џџ ьнЇ жЉ,t‰ 2 РF ьнЇ жЉ,t‰ 2џџџџџџџџџџџџxњ*8џџџџ™ggџџ#ˆ ьнЇ жЉ,t‰ 2 ьнЇ жЉ,t‰ 2џџFђђšџџџџ4џџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ6"џџџџџџN0{00020820-0000-0000-C000-000000000046}I+G<$*\Rffff*2b3c45b454пџџџџpўџџџџџџџџџ(џџџџџџџџџџ$џџџџHƒўџџџџџџџ`џџџџџџџџџџџџџџ6 $‚ џџџџўџџџџџўџџџџџџџџџџџR9 $ƒўџџџџџџџРџџџџџџџџџџџџџџ# $џџџџ0џџџџШƒўџџџџџџџџџџџџџџџџџџџџџ##4 $‚ џџџџўџџџ0џџўџџџџџџџџџџџ $ƒўџџџџџџџ`џџџџџџџџџџџџџџџ $џџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8@џџџџџџџџџџџџџџџџџџџџџџаMEџџџџџџџџџџўЪџџџџџџџџxœАAttribute VB_Name = "Tabelle1"  јBas|0{00020820-; C$0046} |Creatabl†False МPredeHclaId‡Tru "ExposeTempla€teDeriv$eCustomizˆ2rU€€€ €ё ‘ џџџџ™ 4с q џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ__SRP_4џџџџџџџџџџџџeк__SRP_5 џџџџi@Modul1 џџџџ“)_VBA_PROJECTџџџџ/Бџџџџџџџџџџџџџџ{crU€€€ џџџџџџџџ@pаВ€0* pH‚dф VBAProjeˆct4@j = r I+G<” J< r€stdole>stdo€le f%\*\G{00€020430-C 0046}#2.0#0#C:\WINDOWS\SYSTEM\StdOle2.Tlb#OLE Autom`ation^€MSFor ms>SFErmsа/z€ p€FC29D6160-F580-11€D4-A92CF374890932F3.TWD#Microsoft = ` ObА LibrarŽy9P0r€P1F1147C2-EE9D P5"P€JP\VB€€€ џџџџ"8@ 'H uX uxPpo№€ј+€ џџџџ"…ˆaи € џџџџ"$"А€ (џџџџ€(€0€H€8€@€H€P€ % 'X*Žh*Ž˜ PG`hp № ј#а шJЯx+˜h ˜ ЈИоРи x рˆ 8 XP Ј %ш€№ %(+ј€ џџџџ" (PPHџџџџАZ@ъpZ@ъ˜С^Сх ,. lџџH С08х ,. ЄЄ %4%6!8'2ЄЄ %4%6!<':Џ @(BiЖџџџџџџџџџџџџџџџџџџџџџџџџxоЁПџџџџ™g•gџџџџНжж &џџџџпџџdџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@<џџ"<&(T $B@JЏ @(Buџџp›0hЎFehler!A@VlџџHlџџ(Zъ€Zъ ZъРZърZъZъх \$".f f!8ЄЄ %4%6!8 '2mer f!<ЄЄ %4%6!< ':.bahї `і !4Œ%  `B@jl.bžх 2 :Є `%6%l!R$" 2 `!n!N Є : `!p!N Є Є `%6%l!R$" $%".bglei bB@rINDE_~ dЈ•№52х b.dfinde_aџџ`х d b$t.d.BAShџџ@їП8uџџ ›^ЎFehler aufgetreten!A@Vlџџ№0Ср (B@FM/,cP›xИlџџ Є „%J!6B@Fџџџџ0Є „%J!6B@FџџџџШ 2 :$6!RA@Pх b.d%6х d b$t.d `hPї `і !4Œ `љ $эхЈ.dхЄ „%J.$„%Zъp Џ'І 2 `!n!N Є : `!p!N Є Є `%6%l!RA@V!х `!n!N `!p!N 2 :Є `%6%l!R7"%і.b- 1, a 2 `!n!N Є : `!p!N Є Є `%6%l!RA@Vх 2 :Є `%6%l!R7".bџџџџш $Ј•,џџaџџАЏ'Іhџџ  `B@ќdB@J І•џџџџ Ю ж ю bB@rЈž (((яЏ  єЈ Z!R > Ю ж юA@PџџџџЈџџџџ€Џ @(BЏ @(BЏ @(B dB@JІZъP hџџи B@ј.(0).AхЄ$b.џџџџИџџџџ ž яЏ  є џџџџА‚ГAttribute VB_Name = "Modul1" Privals As@ RangeLhPWorksheet Sub copy_areas() On Error GoTo er r_>^et spSelecti on rs.A?1).Cells(Row  cColum!nC)ЃŒ!5Jч3 zц.CРdy.тŒ Яч%0сЁ0 :PC7+ЙцgЙŸlН aufgetreten №ОdBЫЂо_cliРpboardЪпЊЌпд %A Ј thiswokbook5А€џџџ_B_var_thiswokbook—Ё €џџџ_B_var_WithYБadressЄDselfг €џџџ_B_var_selw €џџџ_B_var_OffsetR% €џTransposeзР€џџџ_B_var_TransposeЪ€џџџ_B_var_Worksheet…јCellЏ‰Celж}CeЩ\ €џXlPasteTypeл— xlpastetyp" xlpastetyЅЄxlpastetЃЛxlpasteѕxlpast=xlpas•xlpaицxlp*яxlй_xoptЙ^pg€џPaste operation№yot”^ofoperatioŠ•operatiАoperate’operaсНoperkope’Пop^pastpasЮТpaІ^sb_ €џџџ_B_var_ptaѓ €џџџ_B_var_xlє €џxlPasteAlluž€џResize@4€џActivate—|outlinesОВ €џClearOutlinerњ €џAutoOutliner3yl€џxlPasteSpecialOperationNone&јџџlџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџ6‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œўџџџžŸ ўџџџЂўџџџЄЅІЇЈЉЊўџџџЌ­ўџџџЏАБВГДўџџџЖўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџdirџџџџџџџџџџџџjд__SRP_0џџџџџџџџџџџџv __SRP_1 џџџџмPROJECTwmџџџџџџџџџџџџЁh$E\…(EXЇ(с.E р….Р`ŒM ДA”Cx OfficDxO@u ficBx‹Р+Ф,2DF8D04C-5BFA-101B-BDEв5UAA@w4Р UPROGRAMM+ICROSOFTOFFICE\„MSO97.D LLYC" 8.0ERYЛТ™g'DieseArbeit€smappe“X2"A 7e@Œe@Arb€9iEЕs@‘ap@eD@ HB1С‚ЦњB,B›gA+Т РTab@elle1J2ЄСaBlЯк1PšіMLr`Modul` g2Х‚sM aduр Б Ф &o•g! eЁ“K)^џџџџrU€€€€~~~~~~~~~~~~~~~~~~~~~~~~* й sџ‹ жЉ,t‰ 2 фƒ џџџџџџџџџџџџџџљƒ џџџџџџџџџџџџџџ)џџџџџџџџџџџџџџџџџџџџџџ‰aaiI9Projekt1 VBAProjectDieseArbeitsmappeTabelle1Tabelle2Tabelle3Modul1яРF?C:\PROGRAMME\GEMEINSAME DATEIEN\MICROSOFT SHARED\VBA\VBA332.DLLVBA Ёџџџџ ЩQ(РF .C:\Programme\MicrosoftOffice\Office\EXCEL8.OLBExcel ЙџџџџсI80РF paste_fktC:\WINDOWS\SYSTEM\StdOle2.Tlbstdole Йџџџџ QH`aТ€ѕдЉ,t‰ 2C:\WINDOWS\SYSTEM\MSForms.TWDMSForms СЁщ1XЬ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:\Programme\MicrosoftOffice\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{1F1147C2-EE9D-11D5-A92C-000374890932}#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:\PROGRAMME\MICROSOFTOFFICE\OFFICE\MSO97.DLL#Microsoft Office 8.0 Object LibraryџџџџџџџџI+G<џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ™g"DieseArbeitsmappe 153c45b041*Dџџ›gњџџTabelle1 2b3c45b454*Dџџgšџџ Modul1 63c472b81*Dџџ•g` &џџ0€џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџфынЇ жЉ,t‰ 2џџџџцынЇ жЉ,t‰ 2џџџџџџџџ(Љ,t‰ 2џџџџxЉ,t‰ 2џџџџюынЇ жЉ,t‰ 2џџџџџџџџ€€–џ 7 €џAs€џBoolean=€џdimC€џEachD€џelseH€џendifS€џFalseU€џFor_€џGoto`€џIfc€џInl€џIs‡€џNothing€џOptionalž€џResumeЅ€џSetГ€џThenЕ€џTrueН€џVariantС€џWithExcel€+VBAїтWin16С~Win32MacГВProjekt1вAstdole“`MSFormsC VBAProjectОПOfficeuDieseArbeitsmappeЏ €џ_EvaluateйTabelle1RŠTabelle2SŠTabelle3TŠModul1Эsj€џRangeк sh_ WorksheetСўtempsh(фcopy_areas_localсŸ SelectionZЎ copy_areasaerr_copy_areasЭЙri€џAreasќK€џCellsRow‰ЯcZColumn i €џActiveSheet%N €џApplicationЅ*ScreenUpdating!  DisplayAlertsєі€џDeleteИxActiveWorkbookЂ€џSheets AddїrCount0v paste_fktзЉ€џAddressЇХVisibleЖгMsgBox—R paste_areas&™ ActiveCellНЗta:_ err_paste_fkt,aXh_zqtk IsMissing˜эCopyЦП€џOffsetшЊRowsЁUColumnsp9 €џPasteSpecialОKUnionљВdelete_area_clipboardз­err_delete_area_clipboardљУWorkbookk€џ_DefaultjТ€џџџ_B_var_rЂ€џџџ_B_var_cЂTabelle4UŠ €џThisWorkbook|у €џџџ_B_var_On6ѓClearуЭ €џџџ_B_var_Deleteaѓ €џџџ_B_var_Clearа‘ €џџџ_B_var_IfPђ €џџџ_B_var_setmissing|€џџџ_B_var_missing‰ €џџџ_B_var_ForjLRangeavRana‰ Ra№^ с.E р….`ŒM ДТGюеЉ,t‰ 2C:\WINDOWS\TEMP\VBE\MSForms.EXD ЩЁё1hLај-њ[НхЊDоR -C:\PROGRAMME\MICROSOFTOFFICE\OFFICE\MSO97.DLLOffice ‘џџџџЙ!xcopy_areas_local copy_areas paste_areasdelete_area_clipboard РFyАйРFyЙџџџџFРF`РFRowColumnиРFеРFзРFкРFAddressVisible VBA332.DLL ‰ џџџџS Р Fehler!Tabelle4 ‰ џџџџP иOffsetRange Fehler aufgetreten!ђынЇ жЉ,t‰ 2 РFёынЇ жЉ,t‰ 2DРF Worksheet @єынЇ жЉ,t‰ 2ѓынЇ жЉ,t‰ 2  Delete ьнЇ жЉ,t‰ 2 ьнЇ жЉ,t‰ 2ClearCells PasteSpecialGotoSheetsSelectіынЇ жЉ,t‰ 2РFѕынЇ жЉ,t‰ 2DРFWorkbook $D$9 $A$7ActivateorU€€€€~~~y џџџџџџџџџџџџџџџџџџџџџџџџta aс  a™ sh aЉ(ptotsb^DieseArbeitsmappeDieseArbeitsmappeTabelle1Tabelle1Modul1Modul1ID="{03DDEBF7-0AA7-11D6-A92C-000374890932}" Document=DieseArbeitsmappe/&H00000000 Document=Tabelle1/&H00000000 Module=Modul1 Name="VBAProject" HelpContextID="0" CMG="B9BB057309730973097309" DPB="7270CE958696869686" GC="2B29975C515D515DAE" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005APROJECTџџџџЃТSummaryInformation(џџџџџџџџЋДDocumentSummaryInformation8џџџџџџџџџџџџЎ CompObjџџџџџџџџџџџџЕh};VBE;&H00000000 [Workspace] DieseArbeitsmappe=110, 110, 668, 534, C Tabelle1=88, 88, 646, 512, C Modul1=49, 8, 607, 432, ўџ р…ŸђљOhЋ‘+'Гй0„8@LX p|фwrwrMicrosoft Excel@€њ~ЋžСўџ еЭеœ.“—+,љЎDеЭеœ.“—+,љЎФ PXd lt|„ Œ Ёф-lГ   Tabelle1  Tabellen˜ 6> _PID_GUIDфAN{03DDEBF8-0AA7-11D6-A92C-000374890932}ўџ џџџџ РFMicrosoft Excel 8.0-TabelleBiff8Excel.Sheet.8є9Вq