аЯрЁБс>ўџ  ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ§џџџ  ўџџџ (=!"#$%&',;*+ўџџџ-.70123456)89:<@>ўџџџ?AўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot Entryџџџџџџџџ РFˆіRїЦ |0UїЦ РDWorkbookџџџџџџџџ<_VBA_PROJECT_CUR"0+т/UїЦ |0UїЦVBAџџџџџџџџ0+т/UїЦаil0UїЦ ьЭЩТсАСт\p BАaР=гКDieseArbeitsmappeœЏМ=№K<-Ž8V@"Зк1Шџ-Arial1Шџ-Arial1Шџ-Arial1Шџ-Arial1 џ-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_-;_-@_-3Є#,##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\ _Ќ _-;_-* "-"??\ _Ќ _-;_-@_-#Ќ[$-407]dddd\,\ d\.\ mmmm\ yyyy ­d/m;@рѕџ Р рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР р Р рєџєР р+ѕџ јР р)ѕџ јР рєџєР р ѕџ јР р,ѕџ јР р*ѕџ јР р `@ @ * р h""@ @  р d@ @ + р Р р l""@ @ + “€ џ“€џ“€џ“€џ“€џ“€џ“€џ“€џ`…Њ Tabelle1Œ11Ў џџџџџџџџџџџџџџџџџџџџ$ANZ1;кџјџџРџРЛaZСС"Оќ&<--- hier Suchwert eingebenџ a cc" ьЭЩТ  f !  dќЉёвMbP?_*+‚€%џСƒ„Ё"џŠ<ќ§~п?Š<ќ§~п?U   џџџџџџ   ~ (@§ Н(@@@N@Дџ§8D@%РРBf$Р$РBЗ BН*@@@N*џџџ8D@%РРBf$Р$РBЗ BН,@@@N*џџџ8D@%РРBf$Р$РBЗ BН(@$@$@NY@ў8D@%РРBf$Р$РBЗ BНI@4@4@N*џџџ8D@%РРBf$Р$РBЗ BН(@@@N>@ џ8D@%РРBf$Р$РBЗ B1 a@џ%РР>0%РРBYзЃ nnnnnn >Ж@я7АБџџ;$€џ%РР>0%РРBYYР$РBЗ џџџџ+šџџџ€lРalРa~ B$К Tabelle7 DieseArbeitsmappe$џџџџџџџџџџџџ__SRP_4џџџџџџџџџџџџ0__SRP_5 џџџџBTabelle7џџџџџџџџџџџџг ўџџџўџџџўџџџ !"#$%&'()*+ўџџџ-./0123456789:;<=>?@ABCўџџџEўџџџGўџџџIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyўџџџ{ўџџџ}ўџџџ€Дфт№TіП!ъџџ#ˆЖџџџџџџџџ<џџŠџ џџџџ<(џџ<џџ< џџ<џџ<џџ<џџ<џџ< џџ<,џџ<0џџ<4џџ<8џџ<<џџ<џџџџџџиhlџџџ џџџџт€œ` џџџџ@џџџџџџџџт€Њџџџџ$џџџџ@џџџџџџџџ џџџџт€,8џџџџ@џџџџџџџџР мp`џџџџџџџџџџџџ џџџџ џџџџŒ%Ђ€‘џџш@џџџџџџџџТ€*x џџ џџ@џџџџџџџџƒXџџџџџџhџџџџџџџџџџџџџџ% šџџџџ`џџџџџџџџџџџџ|џJџџџџџџџџџџ„џџџџHџџџџАџџџџџџџџpџџџџ џџџџит€&џџџџ@џџџџџџџџт€(№џџџџ@џџџџџџџџт€.џџџџ@џџџџџџџџт€Ќ@"џџџџ@џџџџџџџџџџџџџџџџџџџџџџџџ8џџџџ№Ј`@шxџџџџp џџџџџџШ Јџџџџшџџџџџџџџџџџџpџџџџ@џџџџџџџџџџџџџџџџџџџџ@,џџџџџџџџџџџџџџџџџџџџџџџџџџџџˆ^qАF%*\R1*#2ab$*\Rffff*2s46b06f83пўЪ'€€h€@€8€€˜€ џџџџ€ џџџџB  P€ џџџџ€ џџџџ€ џџџџ" € џџџџ€ џџџџX˜20*hR№HH€ џџџџ€ 4и€ џџџџ€ џџџџ< >рX Vx€ џџџџ€ џџџџ€ џџџџ(€ џџџџ€ џџџџ€ џџџџ€ џџџџџџџџ€Эџџx–p м'Њi–ЈiџџhЌ',р#erste Kostenstelle steht in Zeile 4Ќ'.рTabelle beginnt in Spalte B  ЌЌ$’%”'р$9"Auswertungstabelle" hier definiert zum leichteren Фndern F B!DЌ %0%!H'œр8#letzte beschriebene Zeile, Spalte BџџџџЌ( %B'Ќр0Die Auswertungstabelle soll in Zeile 40 beginnenџџџџ@]ђ@џ *ў , . %0“р5fќr jede Zelle der Spalte06e ( *(2р4+Zellinhalt = Variable Kostenstelle (strKst) ( Ќ . %0(2р78Schreibe in Auswertungsbereich die Kostenstelle (strKst) Њ ЌЌ . %0(2р<0Eine Zeile drunter: wie oft taucht diese Kst aufeџџџџXр.iAnzahlKst = 5 'Funktion fќr ZфhlenWenn ?rKstџџџџр]ђxђ8ђђ`ђ]ђ]ђ№џџџџhЖB2:B32 ($А'м]ђшђџџџџpџџџџјВAttribute VB_Name = "Modul2" Option Explicit Dim strGeraet As "S|ng,(Ks#"TwksHWo@rkshee€cell>iReihe"Integer, iSpalŽ[LetzteZeileB -Auswertung\Anz˜ahl–L FuncйANZ`1() €|ZФHLENWENN("B2:B3 2"mEnd ƒ…ƒ# Pub  Sub E2)= boo@ks(1).†…s(4) '"stabŽe" hier defint zum leichteren Фndern „Ÿ= 4$ 'ers€Ko€n€lle€Ьeht in Ÿ 4€Б= 2 'TC begиinn „B@ _$= Р4.C)s(Rows.Cou€nt, 2).€G€(xlUp). Р"lmschr@iebeneУ ,> H?Р_СA(4Т0ТF 'Di€‡ЦxAХG sollШ40…„.eРD 'iG~X= 5„F@nkТ|fќr Zфhle€nWenn ?€8Щ ‚CwFor Each Ќ In?ˆ>^FЋ+SježdС:_j„; СС.ValuAк€в'Ї'ZРZinhХHVariaіb@uŠx(У€ЈhNiW‡*'S@4e˜ibea*‡sb M€N d 0?ls(a( + 1Аh3 ˆ'EieB drрH er: w` of`t tauР]AsФe Ё$aufC(Ѓ3Бq rU€€€€~| 0 ќЦdœЈ  0 ќЦp  frU€€€ џџџџџџџџ,$`§џџџџџџџџџџџ$Љ`§џџџџџџџџџџџ n€Г€0* pH‚dф VBAProjeˆct4@j = __SRP_3џџџџМž_VBA_PROJECT џџџџ/ЯdirџџџџџџџџџџџџП„__SRP_0џџџџџџџџџџџџЮн џClickŠу„џRangeк Worksheet_SelectionChangeб4TargetЌF€џSelectionChangeуnWorksheet_Calculatete €џCalculateћ•Tabelle6WŠTabelle7XŠTabelle8YŠTabelle9ZŠ Tabelle10 ђ Tabelle12 ђ Workbook_Open›с Diagramm1…%wksVф €џWorkbooksBь €џWorksheetsМјensм‰ €џџџ_B_var_ensэF Auswertung2яЈ iLetzteZeileBЈ iStartEintrag+ѕiStartAuswertung™Тistratauswertungc €џџџ_B_var_istratauswertung]D €џџџ_B_var_ForjListartauswertunщ iAnzahlKstін iAuswertungХw CellsValueт( ZФHLENWENNN€џџџ_B_var_ZФHLENWENNњМ€џCountIfƒ€џџџ_B_var_CountIfReset> €џџџ_B_var_Redim•В initialiseаM€џџџ_B_var_initialise:Мformт €џџџ_B_var_formNv€џUserFormN€џџџ_B_var_UserFormм userform1)ж€џџџ_B_var_userform1эЯ €џInitializeгNChart?Є€џџџ_B_var_iStartAuswertung“fModul3Я„џџџMakro1C| €џActiveCellНЗ €џFormulaR1C1S„џџџMakro2D|ANZ1@0 €џEXCEPINFO\Z newfunction6}€џFormulaqY €џџџ_B_var_ANZ1Ќ•celж} €џџџ_B_var_celч:B2‘\stskstс€џџџ_B_var_Tabelle3нa €џџџ_B_var_strKstK– €џџџ_B_var_NewФuџџ„џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџг# џџџџџџџџџџџџƒ Y ZџџџџџџџџџџџџџџџџџџџџџџџџџџZ€€osoft Forms 2.0 Object Lr ^qАF%” J< r€stdole>stdo€le h%^*\G{00€020430-C 0046}#2.0#0#C:\WINDOWS\syst em32\e2.tlb#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Т €LibraryL€MSF€orms>SFЈrms3€ЇD452EE1-E08F0A-8-02608C@4D0BB4™SFиM20L'B @`Ь&ш/;"1РkЩqAШq00}#0Тq#Р €ž50Ћ € РA9FB4D5E2-F201-4C3A-9194-437A€8ADE64FIgDOKUME~1\NCA07~1.FRE\LOKALTemp\Excel8.0У€d9.exdˆe>Р#€с.E р….`ŒM ДгеAТіП@ DieseArbeitsmappeHG"i@ sAРArbРiE@Щstap@eT“2Є€ THЂ1BuZ@€K",Ђ!ъD+трTabelle7GЄЁaТlТw67Рi2ro%dmЃ kС†M@odul3GТ†MбрZduр3 Ї2Ўя аpŠ!Wрg& 1э 1щ 1iэ 1я рЈэjЊ@є 2э 2щ 2э ’2№ u я)[€щ a7џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ“K*y џџџџrU€€€~~~~~~~~~~~~~~~ ~~~3 бвb’ЄpфNІЩXyеYВ[ фџџџџƒŠe ёџџџџџџЙ џџџџџџџџџџџџљ ˆ i џџџџ8џџџџс џџЙˆ i џџџџPџџџџI џџ)ˆa q џџџџиџџџџ9 Q џџЁ‘™‘Ь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#C:\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о*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\system32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{9FB4D5E2-F201-4C3A-9194-437A8ADE64F2}#2.0#0#C:\DOKUME~1\NCA07~1.FRE\LOKALE~1\Temp\Excel8.0\MSForms.exd#Microsoft Forms 2.0 Object Libraryс.E р….`ŒM Д џџџџџџџџ^qАF%џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџіП"DieseArbeitsmappe2l46b06f83џџ"DieseArbeitsmappeџџ!ъZџџTabelle72x46b0715eџџƒTabelle7џџЃ  %џџ Modul32t46b06f83џџв Modul3џџŠаџџ Modul13046b073fbџџ" Modul1џџj@H џџ Modul22s46b06f83џџX Modul2џџ[€иu џџ@џџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџиџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ… gітвAŠО#œcƒ2џџџџh(LA€ЈBЖˆџџџџk˜9‰ЯЇ”mrк}џџџџлО0И’ѕKГ•ЈR4ТиџџџџџџџџˆЎ&L!эТЧ<џџџџџџџџHИ‹ŽyєїFџџџџџџџџhџџџџ џџџџЈџџџџ‰_“И@Z5џџџџџџџџ˜†€^…аSNœн–і`6“ЏџџџџџџџџИџџџџ№{ У‰ ФVIŠуLŽЊkZџџџџџџџџрNЭЬмyŒO›ЩX@>рfџџџџџџџџ€y„џМ6 €џAs€џcall=€џDimC€џEachT€џForb€џInƒ€џnew•€џPublic›€џRedimЏ€џSubExcel€+VBAїтWin16С~Win32MacГВVBA6­#Projekt1вAstdole“` VBAProjectОПOfficeuDieseArbeitsmappeЏ €џ_EvaluateйTabelle1RŠWorkbookkTabelle2SŠ Tabelle11 ђ WorksheetСўModul1Э Auswertung_б strGeraetlБstrKstЂcellЏ‰iReiheџiSpalte†ф€џCells€џValueфKTabelle3TŠ xlLastCellО% Tabelle211ђ€џ_DefaultjТiLZeileWў iLetzteZeilemri€џRowsЁUCount0v€џxlUp ч€џRow‰ЯiLetzteZeile2Ar†iLetzteZeile2Ct†iLetzteZeile2Ev† iEintrag2CA/ iEintrag2EC/Tabelle4UŠTabelle5VŠModul2ЮMSFormsCCommandButton1|дCommandButton1_ClickфС MailSenden‚šhttpgЗ ERROR_HANDLER•4 strEreignisГ€џActiveWorkbookЂ€џSendMailЂ’ €џRecipientsб€џSubjectRPMsgBox—R€Й™DieseArbeitsmappeTabelle1Tabelle9Modul1Tabelle5 Diagramm1Tabelle2Modul2Modul3 VBAProjectяРF /C:\PROGRA~1\GEMEIN~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA ёџџџџ `РF 0C:\Programme\Microsoft Office\OFFICE11\EXCEL.EXEExcel щџџџџp0РFC:\WINDOWS\system32\stdole2.tlbstdole џџџџ1y€Lај-њ[НхЊDоRAC:\Programme\Gemeinsame Dateien\Microsoft Shared\OFFICE11\MSO.DLLOffice щџџџџЁс.E р….`ŒM ДC:\WINDOWS\system32\FM20.DLLMSForms 9 теДŸђ:L‘”CzŠоdђ:C:\DOKUME~1\NCA07~1.FRE\LOKALE~1\Temp\Excel8.0\MSForms.exd ёАкРFŠџ РF`? фi$^BŠJ#мм†–­DРF Worksheet#[*WџA-AšLзт/Шіs™|4ХПsMОие­Ž&N Auswertung РFйРF‰ Б џџџџлРFзРFЎєL›”šFЉ&іЙ‡Ч+=‰ЊЎєIМЇщ У<EndRow Value‰ hжqЎФЁЂяEЃЋRэф^щрXpіѓыjШEƒ?Ниm$„ЄжРFЪАXЉNНH™znиpz*є!РFq—в "›B†RZр—Й§&DРFChartANZ1 Auswertung2 ,  B2:B32Makro1Tabelle7=rU€€€€~~~y џџџџџџџџџџџџ џџџџ    ™Љ__SRP_1џџџџі§PROJECTwmџџџџџџџџџџџџњ’PROJECTџџџџ§SummaryInformation(џџџџџџџџш ™Б  ™љ ( 'Makro am 24.10.2006 von aufgezeichnet 14ZDieseArbeitsmappeDieseArbeitsmappeModul1Modul1Modul2Modul2Modul3Modul3Tabelle7Tabelle7ID="{9507DB8B-EBD4-41B2-9228-5F667FBFEB45}" Document=DieseArbeitsmappe/&H00000000 Module=Modul1 Module=Modul2 Module=Modul3 Document=Tabelle7/&H00000000 Name="VBAProject" HelpContextID=ўџџџ   ўџџџ ўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ"0" VersionCompatible32="393222000" CMG="2D2F275BEBB9EFB9EFB9EFB9EF" DPB="8F8D85F58535E636E636E6" GC="F1F3FBFCFCFCFC03" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 &H00000002={00020818-0000-0000-C000-000000000046};Excel8.0;&H00000000 [Workspace] DieseArbeitsmappe=198, 198, 526, 665, Modul1=110, 110, 667, 390, Modul2=44, 44, 513, 519, Z Modul3=88, 88, 750, 563, Tabelle7=0, 0, 0, 0, C ўџр…ŸђљOhЋ‘+'Гй0ИHPht Œ ˜ ЄАфTobias Saalmann Microsoft Excel@†DOм№Ц@<ŒW\eТ@š90UїЦўџеЭеœ.“—+,љЎ0ф PX€ ˆ˜  Ј Нф Gustav Marsch GmbH und Co. KGц  Tabelle1 ArbDocumentSummaryInformation8џџџџџџџџџџџџ CompObjџџџџџџџџџџџџpџџџџџџџџџџџџџџџџџџџџџџџџeitsblфtterўџ џџџџ РF$Microsoft Office Excel-ArbeitsblattBiff8Excel.Sheet.8є9Вq