ࡱ> '&  !"#$%+E)*,;-./912345678:<@=>?ADBCHVGIJKTMNOPQRSFUWZXYRoot Entry FM xM(2WorkbookG_VBA_PROJECT_CUR" wM xMVBA wM T xM \pFrederik Mueller Ba=DieseArbeitsmappe=hxX/#8X@"1Arial1Arial1Arial1Arial1Arial1Arial1Arial3#,##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\ _ _-;_-* "-"??\ _ _-;_-@_-3" "\ #,##0;\-" "\ #,##0=" "\ #,##0;[Red]\-" "\ #,##0?" "\ #,##0.00;\-" "\ #,##0.00I"" "\ #,##0.00;[Red]\-" "\ #,##0.00q6_-" "\ * #,##0_-;\-" "\ * #,##0_-;_-" "\ * "-"_-;_-@_-,'_-* #,##0_-;\-* #,##0_-;_-* "-"_-;_-@_->_-" "\ * #,##0.00_-;\-" "\ * #,##0.00_-;_-" "\ * "-"??_-;_-@_-4/_-* #,##0.00_-;\-* #,##0.00_-;_-* "-"??_-;_-@_-                          !  `"@ @)  `"@ )  `" @ ) `N MA_bersicht)5Prozess1<Prozess2FTabelle111 MA;"bZ  3 A@@  l6Mitarbeiterbersicht MitarbeiterMA 1MA 2MA 3MA 4MA 5MA 6 ZeitbedarfZeitbedarf gesamtMA 7MA 9MA 11MA 13MA 15MA 17MA 19MA 21MA 23MA 8MA 10MA 12MA 14MA 16MA 18MA 20MA 22MA 24MA 25MA 26MA 27MA 29MA 31MA 33MA 35MA 37MA 39MA 41MA 43MA 45MA 47MA 49MA 51MA 53MA 55MA 57MA 59MA 61MA 63MA 28MA 30MA 32MA 34MA 36:& u [  C ) i ccV  !,,  dMbP?_*+%MAcrobat DistillerS 4d,,A4PRIV0''''(P4((EBDAeBook" d,,??U } } } $ } I} $ !;            &@c'`L'!A%cb"ad '`d'!B%cb"aBProzess1Prozess2Prozess1Prozess2~ &@ @c'`|'!A%cb"ad '`'!B%cb"aBProzess1Prozess2Prozess1Prozess2~ @ @@c'`'!A%cb"ad '`ğ'!B%cb"aBProzess1Prozess2Prozess1Prozess2~ @@ @c'`ܟ'!A%cb"ad '`'!B%cb"aBProzess1Prozess2Prozess1Prozess2~ @ K@ c'` '!A%cb"ad '`$'!B%cb"aBProzess1Prozess2Prozess1Prozess2~ K@  @ c'`<'!A%cb"ad '`T'!B%cb"aBProzess1Prozess2Prozess1Prozess2~ @   @S@ c'`l'!A%cb"ad '`'!B%cb"aBProzess1Prozess2Prozess1Prozess2~ @S@   @ c'`'!A%cb"ad '`'!B%cb"aBProzess1Prozess2Prozess1Prozess2~  @   X@ c'`̠'!A%cb"ad '`䠨'!B%cb"aBProzess1Prozess2Prozess1Prozess2~ X@  $@c'`'!A%cb"ad '`'!B%cb"aBProzess1Prozess2Prozess1Prozess2~ $@  @^@c'`,'!A%cb"ad '`D'!B%cb"aBProzess1Prozess2Prozess1Prozess2~ @^@ (@c'`\'!A%cb"ad '`t'!B%cb"aBProzess1Prozess2Prozess1Prozess2~ (@  a@c'`'!A%cb"ad '`'!B%cb"aBProzess1Prozess2Prozess1Prozess2~ a@ ,@c'`'!A%cb"ad '`ԡ'!B%cb"aBProzess1Prozess2Prozess1Prozess2~ ,@ d@c'`졨'!A%cb"ad '`'!B%cb"aBProzess1Prozess2Prozess1Prozess2~ d@ 0@c'`'!A%cb"ad '`4'!B%cb"aBProzess1Prozess2Prozess1Prozess2~ 0@ `g@c'`L'!A%cb"ad '`d'!B%cb"aBProzess1Prozess2Prozess1Prozess2~ `g@ 2@c'`|'!A%cb"ad '`'!B%cb"aBProzess1Prozess2Prozess1Prozess2~ 2@  j@c'`'!A%cb"ad '`Ģ'!B%cb"aBProzess1Prozess2Prozess1Prozess2~  j@ 4@c'`ܢ'!A%cb"ad '`'!B%cb"aBProzess1Prozess2Prozess1Prozess2~ 4@ l@c'` '!A%cb"ad '`$'!B%cb"aBProzess1Prozess2Prozess1Prozess2~ l@ 6@c'`<'!A%cb"ad '`T'!B%cb"aBProzess1Prozess2Prozess1Prozess2~ 6@ o@c'`l'!A%cb"ad '`'!B%cb"aBProzess1Prozess2Prozess1Prozess2~ o@ 8@c'`'!A%cb"ad '`'!B%cb"aBProzess1Prozess2Prozess1Prozess2~ 8@ 0q@c'`̣'!A%cb"ad '`䣨'!B%cb"aBProzess1Prozess2Prozess1Prozess2~ 0q@ :@c'`'!A%cb"ad '`'!B%cb"aBProzess1Prozess2Prozess1Prozess2~ :@ ~ |@ 1~ k@BX  ~ }@0(  f  c $T A@`=0(]`T   <!Werte ala 10 zu vergeben ist ein usserst unglcklicher Zustand, :eek: da eine Fehlersuche bei gleichlautenden Werten, doch arg frustrierend ist ;) -welche der 10 ist nun falsch, ist sie berhaupt falsch?... Drum werden wir ein wenig abstrakt Prozess1 hat ungerade Mitarbeiter1-23 und die Zeiten sind 'Nummer des Mitarbeiters'*10 Prozess2 hat gerade Mitarbeiter1-12 und die Zahlen sind x+1 im Mitarbeiterblatt haben wir alle Mitarbeiter, egal ob gerade oder ungerade ;-) nun bauen wir die Formel und da wir nicht mit Vorgaben von 10 arbeiten, erkennen wir schnell ob die Formel Fehler hat, bzw. das richtige Ergebnis ausspuckt... Mitarbeiter mit geraden Nummern sollten also nur ihre eigene Nummer als Ergebnis bekommen bsp MA 12 = Ergebnis 12 und die Mitarbeiter mit ungeraden Nummer, ihre (eigene Nummer * 10)+ eigene Nummer Bsp. MA 23 = Ergebnis (23*10)+23 = 253 ist dem so, so arbeitet die Formel richtig und wir knnten und einen lauen Lenz machen und ins Blaue fahren, auch wenn es Dunkel ist ;-) ...meiner einer wre mit der Formel noch nicht zufrieden, da sich Prozess1,Prozess2...Prozess10 ect. sicherlich auch noch dynamisch gestalten lsst aber Nomen est Omen - Pimpen ist immer mit viel Arbeit verbunden ;-) und es wre ein frevel, wenn nun der Pimper so faul wrde wie ein progger^^ drum' grbel ein wenig wie es gehen knnte :-) ungetestet wrde ich mal INDIREKT("Prozess"&SPALTE(A:J)...in erwgung ziehen Wobei A 1 entspricht und J10 ansonsten pimste halt die {"Prozess1"."Prozess2"} weiter um ."Prozess3"."Prozess4"."Prozess5"... die Bltter drfen auch schon existieren Nullwerte sollten nicht stren ;-) und das befllen mit copy & paste^^ dem Blauen Bereich wurde ein Name vergeben. - ist aber nicht notwndig , dachte ich knnte die Formel anders aufbauen und lasse die Formel sprechen <* >@!!!7 Tabelle1bb)  "5<<  dMbP?_*+%"??n U } } $ } $ "        ~ $@ ~ >@ ~ I@  ~ Q@  ~ V@  ~ [@  ~ @`@ ~ b@ ~ @e@ ~ g@ ~ @j@ ~ l@ ~ @o@ ~ p@ ~  r@  ~ `s@ !~ t@ "~ u@ #~  w@ $~ `x@ %~ y@ &~ z@ '~  |@ (~ `}@ )~ ~@ *~ @ +~ @ ,~ 0@ -~ Ё@ .~ p@BX ! /~ @ !0~ !@`>@7 Tabelle2  '=CgE  dMbP?_*+%"??n U } } I } $ '        ~ ? ~ @ ~ @ ~ @ ~ @ ~ @  ~ @ ~  @  ~ "@ ~ $@  ~ &@ ~ (@  ~ *@ ~ ,@ ~ .@ ~ 0@ ~ 1@ ~ 2@ ~ 3@ ~ 4@ ~ 5@ ~ 6@ ~ 7@ ~ 8@ ~ 9@ ~ :@ ~ ;@ 1~ <@ ~ =@ 2~ >@BX !"#$%&  ~ ?@ !3~ !@@ "!~ "@@ #4~ #A@ $"~ $A@ %5~ %B@ &#~ &B@PxPH 0(  > @7 Tabelle3  F{G  dMbP?_*+%"<~?<~?U  ~ j@ 1~ j@ ~ j@ (> @7 Tabelle4 Modul10__SRP_2@__SRP_3oDieseArbeitsmappe$  !"#$%&'()*,-.023456789:;<=>?@ABCEFGIKLMNOPQRSTUVWXYZ[\^_`bdefghijklmnopqrstuwxy{}~rU~| 1)QI  9 yy ) Q  0   krU $`anL<Gt#xME (SLSS<N0{00020819-0000-0000-C000-000000000046}@(%H@0pAG  xpʰAttribute VB_Name = "DieseArbeitsmappe" " Bas0{00020819-0C$ 0046} |GlobalSpacIFalse dCreatablPredeclaIdTru BExposeTemplate`DerivBustomizD2Option /licit O Tabelle1 __SRP_4+__SRP_5/BTabelle21Drt#<|߱tC6T;8Ҝ F P8CI7[x P8CI7[|߱tC6T;8ҜME(SLSS6"N0{00020820-0000-0000-C000-000000000046}(%H@h %B %Xp@@HH0pAG $*\Rffff*1x47418c414 xpAttribute VB_Name = "Tabelle1"  Bas|0{00020820-; C$0046} |GlobalSpac False dCr@eatablPredeclaDIdTru BE xposeTemplateDeriv$Bust0omizD2Op tion /licit "rU Iqy4`ene gerade Nrn abfangen7rU @nMeldungA@X]8Png,]Drt1#<ʥHG( ' FәoIp! wxәoIp! wʥHG( 'ME(SLSS6"t(P PtPxME,6 (>Ly4741a1f3*\R1*#1c8*\R0*#14*\R0*#1*\R1*#5e*\R1*#e4*\R1*#dc*\R1*#d7*\R1*#e8*\R1*#2ac "  8P  "@@PM  5x/H lp T` 0V     "hPgpxohk`H' j n!pn n(jMA '^ j! MA_bersichtX  '  !! ' 'r  n(s2"  ^ "  <( j!$p!%%b!d r 'r r ^ "  <( MA_bersicht$p!%%b(dA10 MA_bersicht$p%>!.CA10 ist willkrlich gewhlt! ain 'Prozess1' stehen nur ungerade MA-Nrn. - Fehlermeldung fr nichtvorhandene gerade Nrn abfangen7Werte bermittelt fr p!  Prozesse MeldungA@X]8Png,]8,, `>Attribute VB_Name = "Modul1" Option Explicit Sub MitarbeiterZ n() <.Descriakro am 10.02.2007 vjFrederik Mueller aufgezeichnetfProcDatarInvoke_Func \n14A Dim maNr As Sng, zWorksh@eet, iI@ntegern!, zt!ingle, BerSRangeApa.ScreenUpdngIFalsJi1et!= Cs("MA_ berst")..("A10Current(Reg' ist willkrh gew hlt!GFor n7 To6.Rows.Cotun@x FiA " & i CAEachJIB6+  If hNot .2 Then O@rr)Resu@Next 'in 'hess1' ste nur uYrade MA-Nrn.@ - Fehmeld f;Mvorhand8eneC abfAj !v`0).Cs.Find(What:B=AK, Af@:=Active, _6LookA xlWhole).Offset(0, 1).Value + End If_BC؆n'2=UBD%0 "5) y^Tru@^MsgBox "(Wer@[mittelt6Ngk#S ;1`Q"I@e", vbOKOnly,@={A& N0{00020820-0000-0000-C000-000000000046}(%H@h %D %Xp@@HH0pAG $*\Rffff*2447418c474 xpAttribute VB_Name = "Tabelle2"  Bas|0{00020820-; C$0046} |GlobalSpac False dCr@eatablPredeclaDIdTru BE xposeTemplateDeriv$Bust0omizD2Op tion /licit rU )qQy4`__SRP_6 D__SRP_7HBTabelle3 J__SRP_8 ]rU @nDrt#<`OC6na FFHR]@4xFHR]@4`OC6naME(SLSS6"N0{00020820-0000-0000-C000-000000000046}(%H@h %F %Xp@@HH0pAG $*\Rffff*3j47418dac4 xpAttribute VB_Name = "Tabelle3"  Bas|0{00020820-; C$0046} |GlobalSpac False dCr@eatablPredeclaDIdTru BE xposeTemplateDeriv$Bust0omizD2Op tion /licit rU yqy4`rU @nDrta#< C5 C Flؕ@mJxlؕ@mJ C5 CME__SRP_9aBTabelle4c__SRP_av__SRP_bzB(SLSS6"N0{00020820-0000-0000-C000-000000000046}(%H0h % %8p@@HH8pAG $*\Rffff*?54741a2344 xpAttribute VB_Name = "Tabelle4"  Bas|0{00020820-; C$0046} |GlobalSpac False dCr@eatablPredeclaDIdTru BE xposeTemplateDeriv$Bust0omizD2Op tion /licit rU x q y4`rU @n0* pHd VBAProject4@j = r pAG J< rstdole>stdole h%^*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\syst em32\e2.tlb#OLE Automation`EOffDicEOficEE2DF8D04C-_VBA_PROJECTL"dir|__SRP_0__SRP_1vbOKCancelx? vbOKCancevbOKCanc)vbOKCanL|vbOKCavbOKC vbOK%vbOKo% vbOKOnlyBereich2berxWorksheetFunction& _B_var_withYsh_Sheets ScreenUpdating! trK_MitarbeiterZeitenTabelle4UACEGlC-5BFA-101B-BDE5-00AA0044DE52}#2.3#0#C:\Programme\Gemeinsame Dateien\Microsoft Shared\OFFICE11\MSO.DLL#Microsoft Office 11.0 Object Library pAG t Modul1>y4741a1f3 Mo5BFA-101B-BDE5EAAC42Egramme\Gemeinsame Dateien\Microsoft Shared\OFFICE11\MSO.0DLL#N 1@1.0 Ob LibraryLEtModul1GMduQ12NHB1oV,B,P!B+BDieseArbeitsmappeG"iRsArbi{smap@e$2O,$MO,#E,&TabeltleHA$'lgBI2I2G2KD2213q3k3q3Dv4qj4k4q4baia7Tabelle4?54741a234TabK*yrU~~~~~~~~~~~~~~K ab0Bߡ a `q  e  e  !e  Ae  !) 1Modul1DieseArbeitsmappeTabelle1Tabelle2Tabelle3 VBAProjectF /C:\PROGRA~1\GEMEIN~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA  0F 0C:\Programme\Microsoft Office\OFFICE11\EXCEL.EXEExcel y@0FC:\WINDOWS\system32\stdole2.tlbstdole PL-[DRAC:\Programme\Gemeinsame Dateien\Microsoft Shared\OFFICE11\MSO.DLLOffice a`Makro1Makro2 FFFF MA_bersicht MA FF|߱tC6T;8Ҝ F P8CI7[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 pAG t Modul1>y4741a1f3 Modul1PV"DieseArbeitsmappe0[47418826A"DieseArbeitsmappeMTabelle11x47418c41CTabelle10Tabelle22447418c47ETabelle21HTabelle33j47418dacGTabelle3`Tabelle4?54741a234Tabelle4ax0Hx` 'H7v嶪w^QH!FF&` KR{NbaJ'LPOkv?J H1fTME$f@+ ho}<4 As=DimCEachRFalseTFor_IfbInNotResumeSetThenToWithExcel+VBAWin16~Win32MacVBA6#Projekt1Astdole` VBAProjectOfficeuModul1 _EvaluateMakro1C|CellsFindnWhatCAfterX ActiveCellLookInP xlFormulasZLookAtOxlPart< SearchOrderxlByRowsSearchDirectionrxlNext MatchCase SearchFormatActivate|FindNextuxlWholeRange DieseArbeitsmappeTabelle1RTabelle2STabelle3TStart _B_var_SetstaAddrAddress WorksheetWorkbookkse_ActiveWorkbookSavema7^maNrE-ZeitKOffsetValueKman _B_var_WhatMProzt _B_var_forjL Application* WorksheetsztNr _B_var_ztNrMakro2D|Zeilecurr#ran{ _B_var_ran CurrentRegion|i`appl9 _B_var_IfP_Defaultjworks9 _B_var_Zeile\dm\ _B_var_dmnoj^st(_worksh4ac}\ztnrang  _B_var_rangn MitarbeiterR_B_var_Mitarbeiter SelectionZRowsUCount0vcurrente_B_var_ActivateDselfne_B_var_n _B_var_On6 _B_var_Error)MsgBoxR DF Worksheet @ʥHG( 'әoIp! w`OC6naFHR]@4F SelectActivate A10Rows Count ,Werte bermittelt fr   Prozesse MeldldungVBE6.DLL  S @ RangeCurrentRegion CellsWhat After LookAtFind Offset ValueMitarbeiterZeiten MeldungTabelle4 C5 Clؕ@mJXrU~}    6Makro am 10.02.2007 von Frederik Mueller aufgezeichnet 14 )^Modul1Modul1DieseArbeitsmappeDieseArbeitsmPROJECTwmPROJECTuSummaryInformation(DocumentSummaryInformation8LappeTabelle1Tabelle1Tabelle2Tabelle2Tabelle3Tabelle3Tabelle4Tabelle4ID="{20779107-FB70-4E4E-A589-8D23C2AC254F}" Module=Modul1 Document=DieseArbeitsmappe/&H00000000 Document=Tabelle1/&H00000000 Document=Tabelle2/&H00000000 Document=Tabelle3/&H00000000 Document=Tabelle4/&H00000000 Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="9193416745674567456745" DPB="4143911292129212" GC="F1F321C222C2223D" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] Modul1=44, 58, 571, 316, Z DieseArbeitsmappe=0, 0, 0, 0, C Tabelle1=0, 0, 0, 0, C Tabelle2=0, 0, 0, 0, C Tabelle3=0, 0, 0, 0, C Tabelle4=0, 0, 0, 0, C Oh+'0@HTp Frederik MuellerMicrosoft Excel@ORL@+wM՜.+,0 PXd lt|   MA_bersicht Prozess1 Prozess2 Tabelle1MA ArbeitsbltterBenannte Bereiche F$Microsoft Office Excel-ArbeitsblattBiff8Excel.Sheet.89qCompObjp