аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ§џџџ ўџџџ&2!"#$%'.()*+,-/341ўџџџ[G56@89:;<=>?0ABCDEFJYIўџџџKLMVOPQRSTUHWXZ^\ўџџџ]_ўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot Entryџџџџџџџџ РFЯoяЄЗЧPв —oЧ €EWorkbookџџџџџџџџk7_VBA_PROJECT_CUR"np–oЧPв —oЧVBAџџџџџџџџnp–oЧ I—oЧ ЉЭЩФсАСт\pPatrick Shane Costanigro BАaР=гК ThisWorkbookœЏМ=ёџgт;”8ˆ@"Зк1ШџеArial1ШџеArial1ШџеArial1ШџеArial1џМеArial1ШџМеArial1ШџеArial1 џеArial1ШМеArial1Ш МеArial"$"#,##0_);\("$"#,##0\)!"$"#,##0_);[Red]\("$"#,##0\)""$"#,##0.00_);\("$"#,##0.00\)'""$"#,##0.00_);[Red]\("$"#,##0.00\)7*2_("$"* #,##0_);_("$"* \(#,##0\);_("$"* "-"_);_(@_).))_(* #,##0_);_(* \(#,##0\);_(* "-"_);_(@_)?,:_("$"* #,##0.00_);_("$"* \(#,##0.00\);_("$"* "-"??_);_(@_)6+1_(* #,##0.00_);_(* \(#,##0.00\);_(* "-"??_);_(@_)рѕџ Р рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР р Р р+ѕџ јР р)ѕџ јР р,ѕџ јР р*ѕџ јР р ѕџ јР р Р р Р р1 <Р р 0Р р0Р р x р  | р1 | р | р  | р 8Р р |Р р8Р р  x/ р  |/ р1 tР р0Р р!0Р р xР р |Р р xР р1 |Р р4Р р1!4Р р  x/ р1 $Р р `Р р14Р р $Р р x5 р Р “€џ“€џ“€џ“€џ“€џ“€џ`… Parts…Sheet1…ƒ0Sheet2ŒЎ!  ;_ъ :  ; : Parts;'СС"Оќ­PBDMCustomerest k$Expected Order DateExpected Ship DateWinning chance Quantities Products Order NrDecember86146BDec86120B86122AN4373A861202CAA981B5433VParts E6062A-OC-PWRCRD E6090A-ABF E6090A-ATO E6090A-OC-DOC E6059A-902 E6059A-905 E6059A-906 E6059A-917 E6059A-919 E6059A-927 E6059A-ATOE6059A-OC-INTFC E6059B-021 E6059B-022 E6059B-900 E6059B-902 E6059B-903 E6059B-906 E6059B-917 E6059B-919 E6059B-922 E6059B-ATOE6059B-OC-INTFC E6060A-022 E6060A-023 E6060A-901 E6060A-903 E6060A-905 E6060A-912 E6060A-918 E6060A-922 E6060A-927E6060A-OC-PWRCRD E6062A-022 E6062A-023 E6062A-901 E6062A-903 E6062A-906 E6062A-918NovemberNov123a321ProduktSummeStatus Comments: Product LineMonat123081508110812OctoberOct8122979797555151Oct 141џRѕ d {Д Ы 5‹ Ђѓ ` wЮ х /a xccО ЉЭЩФ (Э[Г  dќЉёвMbP?_*+‚€%џСƒ„Ё"џр?р?U} (џџџџџџџџџ џ џ џ џ џџџџџџџџџџџџџџџџџџџ§ О  $§ О  $§ О #$§ О  $§ О  *§ О  *§ О  *§ О  .§ О  .§ О  .§ О #"§ О  .§ О  .§ О  .§  О  .§ !О  .§ "О  $§ #О  $§ $О  *§ %О  *§ &О  .§ '§ (§ )§ *§ +§ ,§ -§ .§ /§ 0§ 1зDfl џ!џ"џ#џ$џ%џ&џ'џ§ 2§ !3§ "4§ #5§ $6§ %7§ &8§ '9зŒ>Ж@  я7К Sheet2 ЉЭЩФ +i8-„/  dќЉёвMbP?_*+‚€%џСƒ„M–\\wbbnip01\BIDP5002мИ?€ dXXA4”.HP LaserJet 8100 Series PCL 6М2U†xœeЙJƒQ…чќї&зlЦB‘ˆћŠˆњj‘ˆZYEp 3‰I@—”ZD ХЦЮW0ŠyKпУЮ}Йї'С)Ю9ї+fцNБјП<аa-‡kт!Ш7qк“Q№8x…1Шxм €v‘ ќ>xцР>IŽРЧ nAХƒ 8T00AЬ6B”свz)Зš%йYбѓ-TU%HюtхR•Ї 3ЎѓRd-MЮОфм… 8ЋЩЎ*.[п@‚W• ХuЏG4‡Е„ДдЕд”1юŒ&ъыƒrzoW™іOВ cЯcйazOцчЪх<эYSВнЪP|H'У2ї3!oЙЩЎ‘ХЄНЏN§я”МХзћ9ю^‹Ё" dXXр?р?U} $ } m } m 1} Ж.} $ +} $} m } л } m } m 0} m %} m &} m Column OXtt+hРў€!ўџџџџџџ џ џ џ џ џџџџџўџџџџџџџџџџџџџ§ 2BО(33333333333§ >§ ?§ § § § C§ § § § @§ §  §  §  AО §  §  ;§ " О""#"""""""" § $ F%^@џ0ed edР eBфF&џ0ed edР eBф~ №?О ''§  § $ ~ (^@ )§ $ %6@џМ:0ed elџР eBф&ўМ:0ed elўР eBфО ''§  § $ ~ (5@ )§ $%№?џ&џО ''§  § $~ (№? )§ $ %№?џ&џ~ @О ''§  § $ ~ (№? )§ *%№?џ&џО ''§  § $ ~ (№? '§ *%(@џ&џ~ @О ''§  § *~ (№? '§ *%?@ џ&€^@ џ~ @О ''§  § *~ +(@§ , %@@ џ & џ~ @О ''§  § *~ +@§ ,7 %јЁ@ џ & џ~ @О ''§  § *~ +.@§ ,4 %@ џ &РX@ џ~ @О ''§  § *~ +&@ - % џ & џ~  @О ''§  § .~ +&@§ ,< %џ &7@џ~ "@О ''§  § .~ +5@§ ,=%џ&№?џ~ $@О ''§  § .7~ +FЁ@§ ,D%џ&uЧ@џ~ &@О ''§  § .7~ +@V@,%џ&џ~ (@О ''§  § .4~ +@,%Р$_§&џ§ ":О""#"""""""" ,~ 6@О ''§  ;§ .~ +@^@,~ 7@О ''§  ;§ .~ +№?,~ @@О ''§  ;§ .<~ +7@,~ €@@О ''§  ;§ .=~ +№?,~ /Рk@§  ;§ .D~ +uЧ@~ /\‘@§  ;§ .4~ +РX@~ /ђw§  ;§ .4~ +№?§  ;§ .4~ +№?§  ;§ $4~ +"@§  ;§ $<~ +@§  ;§ $E~ +Y@§  ;§ $F~ +&@§  ;§ *G~ +Y@зDРl`фаŽŽœŽœ’’’Ž’’’ŽŽ8PPPP888***** џ!џ"џ#џ$џ%џ&џ'џ(џ)џ*џ§ "HО #"#"§ ! I§ !*J~ !+№?§ " I§ ".J~ "+№?§ # I§ #.K~ #+@§ $ I§ $.L~ $+@§ % I§ %.M§ & N§ &.O' ( ) * зШ **** >Ж@х  я7ВџџџџО3 "# К Sheet1ggh'h ЉЭЩФ (C1З57  dќЉёвMbP?_*+‚€%џСƒ„Ё"џр?р?U(џџџџџџџџџ џ џ џ џ џџџџџџџџџџџџџџџџџџџО О  О  О  О  О  О  О  О  О О О О О О  О  О  О  О  О  О  *О  О  .О  О  О  О  О  О  О  О  О  О  О  зD\l џ!џ"џ#џ$џ%џ&џ'џО О ! О " О # О $ О % О & .О ' .зŒ>Ж@000я7К Sheet4 ThisWorkbookџџџџQSheet1џџџџџџџџ~__SRP_4 џџџџ$ф__SRP_5џџџџџџџџџџџџ(B ўџџџ !"#ўџџџ%&'ўџџџ)ўџџџ+,-./0123456789:;ўџџџ=>?ўџџџAўџџџCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`ўџџџbcdefgўџџџiўџџџkўџџџmўџџџopqrstuvwxyz{|}~€<фjC—МŸŒџџ#ˆЖџџџџџџџџџџџџ@бю„TА‘IЎq1 gT›РF G>_зJЂmзEЖ{•—џџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ<џџџџџџN0{00020819-0000-0000-C000-000000000046}џџџџ €ўџџџџџџџ(џџџџџџџџџџ%џџџџƒўџџџџџџџ`џџџџџџџџџџџџџџ %‚ џџџџўџџџџџўџџџџџџџџџџџ %џџџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџh8@TTџџџџџџџџџџџџџџџџџџџџџџ0pјєFпўЪџџџџџџџџxџџџџААAttribute VB_Name = "ThisWorkbook" ŒBasŒ0{00020P819-0C$0046} |GlobalаSpac’False dCreatablPredeclaIdБTru BExposeTemplateDeriv’BustomizD2<фjxЬМ#Xџџ#ˆЖџџџџџџџџ<џџx}lnI‰QЛгe“іƒ РF,—љѕt,Ь@‘e-bЩ‡PJџџџџџџџџџџџџx,—љѕt,Ь@‘e-bЩ‡PJx}lnI‰QЛгe“іƒџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ6"џџџџџџN0{00020820-0000-0000-C000-000000000046}џџџџ €ўџџџџџџџ(џџџџџџџџџџ%џџџџƒўџџџџџџџ`џџџџџџџџџџџџџџ %‚ џџџџўџџџџџўџџџџџџџџџџџ %џџџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџh8@HHџџџџџџџџџџџџџџџџџџџџџџ0pјєF$*\Rffff*2A46f4f617пџџџџ4ўЪџџџџџџџџxџџџџЈАAttribute VB_Name = "She@et1" шBast0{000Р20820- C$0046} |Global!ФSpac’False dCreatablPre declaIdЋTru BExposeTemplateDeriv$’Bustom izD2rU€€€ Иa ‰ Б џџџџ9 4й ё џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ‹`rU€€€ џџџџџџџџ@n<фjxЬМф3џџ#ˆЖџџџџџџџџ<џџћ>Џи;ЁEЊу]џ‘mŽ РFќj>пgšhB›иHю/ѓ™mџџџџџџџџџџџџxќj>пgšhB›иHю/ѓ™mћ>Џи;ЁEЊу]џ‘mŽџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџSheet2џџџџ*~__SRP_a џџџџ<ф__SRP_bџџџџџџџџџџџџ@BModule2џџџџџџџџџџџџBІџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ6"џџџџџџN0{00020820-0000-0000-C000-000000000046}џџџџ €ўџџџџџџџ(џџџџџџџџџџ%џџџџƒўџџџџџџџ`џџџџџџџџџџџџџџ %‚ џџџџўџџџџџўџџџџџџџџџџџ %џџџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџh8@HHџџџџџџџџџџџџџџџџџџџџџџ0pјєF$*\Rffff*2F46f4f69cпџџџџ4ўЪџџџџџџџџxџџџџЈАAttribute VB_Name = "She@et2" шBast0{000Р20820- C$0046} |Global!ФSpac’False dCreatablPre declaIdЋTru BExposeTemplateDeriv$’Bustom izD2rU€€€ 0щ ‰  џџџџ9 4й ё џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ‹`rU€€€ џџџџџџџџ@n№<диџџџџђтМvїџџЖџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџP6 џџџџLџџџџLџџџџ”џџџџLџџџџš"џџџџџџџџ<џџџџџџџџџџи tџџџџ`џџџџџџџџˆ ўkџџџџџџџџџџ„џџџџџџџџаƒ`џџџџџџxџџџџџџџџџџџџџџ%џџџџјџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџp0џџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(џџџџџџџџhv@ўџXlџџџ џџ @ўџ \џџџ џџ @ўџˆXџџџ џџ @ўџИTџџџ џџ @ўџаDџџџ џџ @ўџџџџџ@џџџ џџ @ўџш0џџџ џџ @ўџ џџџ џџ @ўџџџџ џџ @ўџHџџџ џџ @ўџ№ўџџ џџ @ўџ`рўџџ џџ @ўџxаўџџ џџ @ўџџџџџРўџџ џџ @ўџЈАўџџ џџ @ўџџџџџ ўџџ џџ џџџџиџџџџРџџџџШџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@pјєF$*\Rffff*2B46f4f617*\R1*#dc*\R1*#e8*\R1*#2ac*\R1*#e4$*\Rffff*2F46f4f69c*\R1*#4fпўЪ"L} џџџџ€–џџџџ0oџџHџџџџи hбfЖA1 %4бjЗбlЖ D4:E60000ЖSheet1$v%4B@dџџџџ(џџџџpџџџџКАAttribute VB_Name = "Module2" Public Sub FilterAktualisieren()  Sheets("1").Range("D`4:E60$A€dvancedŒ Action:=xlCopy$, To=:=M2KAW, Unique:=True Endš rU€€€€~| )@ 9 Ёй! yQ 1 й Q y Б Ь„}ўСџ%Xџ'\џ%:lџ%$ QXџ§o№ў%cаў%:0џ%@џ:Dџ%Tџ$ ИTџ d @џўš ў §ŸўІ  )Tџ@џ6№ў ўм„$ $XџTџ@џ№ўАў ўk__SRP_6џџџџaœ__SRP_7џџџџџџџџџџџџhgModule1џџџџ7Ђ__SRP_c џџџџjTrU€€€ џџџџџџџџ$`§џџџџџџџџџџџnrU€€€€~|  џџџџkrU€€€ џџџџџџџџ$ `§џџџџџџџџџџџnџџпџџ0џџџџџџДфˆ˜Л›Мс]џџ#ˆЖџџџџџџџџџџџџпЋјнцJЗ Ь’РМ=Я РFel. Diese cden mit dem EinzelprDei>undr Gesamta nzahlƒneu:‰ Ўgeg eben.wDЂ4‚% wird errechne†tchriЁ€Pn Kl€!-€Jt€Oppermann, Oktob 2005  .VariabBl€=dekleren Dim iZiel A s IntGr ' LetzЫ@gefќllZfe•"az  ,' ZфhlMfќr€ЋrayfelderE#" ' Sc@ifenz‘ƒ(ArРs A&len€A6tЗbe t„sРYittelarr()ѓ‚YntTPР-‚)@)?ti•abe Ai ƒb= Range("A65536").End(xlUp).јRow”c@ŒІС&D (@ОSpaAjAгФФHdiРЕsбРО9ReKС0Т, ќ0)0B0Т-ƒ•DТWBо` For i@ю4 To шUBoРP(€W”' `\frn Zei@s2 bis, T€& On!t AIf Ap‚a „.W xshee tFunc"C€PtIf(Ѓ+C€Ws(i, 5), v_Cc1a€(.@Value)р1И Th hДР'рƒТnf† das@2 “а MalХŠt u8 ..РzE 0azЙЂ/= nЅї'С о І?"3Ÿl@– }хu= €+ 1W 8Ѓ ‘x pluиs 1#) V 2_ +Z  e‚ЉA#ЛunРg Nex€К? з=ˆ'@ЁhтfЁseД DrM4"т, б" &‰ZCР7е hn лnУ`–g€YрЕe в s МleibЃhtЅhЂ63Ÿ 0ЕhбhhУNРS1Ц4aћiSumЅihТ(232,тjУn4jЁ 3 $*FH4:Fр")Eƒ'уЄs@Jge ap ,џ‚ПUя…Q+р„УXџџ ИШЈєўџџ џџ @ўџфўџџ џџ @ўџдўџџ џџ ‚ƒ„…†‡ˆ‰Š‹ŒŽ‘ўџџџ“”•–—˜™š›œžŸ ЁЂЃЄЅІЇЈЉЊЋЌ­ЎЏАБВГўџџџЕЖЗИЙКўџџџМўџџџОПРСТУФХЦЧШЩЪЫўџџџЭЮЯабвгдежзийклмнопрстуфхцчшщъыьэюя№ёђѓєѕўџџџїјљњўџџџќ§ўџџџџ__SRP_dџџџџџџџџџџџџlgSheet4џџџџџџџџџџџџnоModule3 џџџџ’e__SRP_9џџџџџџџџџџџџДЌК-^|f`HŸюЯ?bЄ"џџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ [LџџџџSџџџџS”џџџџ<џџ<$џџ<(џџ<џџ<џџ<џџ< џџ<,џџ<0џџ<4џџ<8џџ<<џџ<џџџџџџN0{00020820-0000-0000-C000-000000000046}P €ўџџџџџџџ(џџџџџџџџџџ%џџџџHџџџџxџџџџџџџџ0и 4H@@џџџџџџџџ ”џџџџ`џџџџџџџџџџџџ ў@џџџџeTœiƒўџџџџџџџџџџџџџџџџџ In@ƒўџџџџџџџџџџџџџџџџџџџџџ%‚ Rџџџџўџџџ8џџўџџџџџџџџџџџ%Xџџџџџџџџџџџџ(џџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџјџџџџ˜v˜xlџџџ џџ @ўџ\џџџ џџ џџџџˆ(Xџџџ џџ Ъ$@ўџTџџџ џџ @ўџDџџџ џџ џџџџ@џџџ џџ @ўџ0џџџ џџ Ј@ўџ џџџ џџ џџџџ@ўџџџџ џџ џџџџ@ўџџџџ џџ џџџџ`№ўџџ џџ џџџџ@ўџрўџџ џџ џџџџ@ўџаўџџ џџ џџџџ@ўџРўџџ џџ џџџџ˜(Аўџџ џџ џџџџ@ўџ ўџџ џџ џџџџџџџџШџџџџxџџџџџџџџџџџџџџџџxџџџџџџџџџџџџџџџџџџџџр№ д(џџџџ2 VМm џџЖџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ 6 џџџџ<4џџ<џџ<џџ< џџ<џџ<џџ<џџ<џџ< џџ<$џџ<(џџ<,џџ<8џџ<<џџ<џџџџџџP№ ƒџџџџџџ0џџџџџџџџџџџџџџ% &џџџџ`џџџџџџџџџџџџt§@џџџџџџџџџџ##„`„(џџџџzџџџџџlpre`„*џџџџxџџџџџer G`„,џџџџvџџџџџ neu`„.џџџџtџџџџџ „0Рpџџџis w€рјџџџџ8p(@: џџ `џџџ џџ @ џџџџџџџџаџџџџџџџџџџџџџџџџџџџџxџџџџџџџџиџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџаџџџџ0Pџџџ џџ џџџџpLџџџ џџ Р@ўџ<џџџ џџ џџџџ@ўџ,џџџ џџ џџџџh@џџџ џџ џџџџhџџџ џџ џџџџ@ўџџџџ џџ @ўџџџџџџ ј p€џџџџ ИШЈєўџџ џџ @ўџфўџџ џџ @ўџдўџџ џџ @ўџФўџџ џџ ј(Рўџџ џџ @ўџМўџџ џџ @ўџЌўџџ џџ @ўџœўџџ џџ @ўџŒўџџ џџ @ўџ|ўџџ џџ pXlўџџ џџ Ш(hўџџ џџ @ўџdўџџ џџ @ўџTўџџ џџ @ўџDўџџ џџ  4ўџџ џџ @ўџ$ўџџ џџ Шўџџ џџ ј(ўџџџџ @ўџўџџџџ 0 ўџџџ 8џџџџўџџ џџ @ўџј§џџ џџ @ўџш§џџ џџ @ўџи§џџ џџ џџџџд§џџ џџ @ўџФ§џџ џџ @ўџД§џџ џџ @ўџЄ§џџ џџ @ўџ”§џџ џџ @ўџ„§џџ џџ @ўџt§џџ џџ џџџџџџџџ08џџџџџџџџџџџџџџџџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџpјєF$*\Rffff*2G46f4f6f9пўЪ$€"€ :€ BP€ <˜€ &и€ <€ џџџџ€ @€$`€&ˆ€.А€Hр€((€ џџџџ€ џџџџVUP€ Ј$"Ш€ џџџџ€ №@†ьPBMи4 X( x€  PDИ€ џџџџ@‚+H( ај€ џџџџ€ џџџџџџџџ(Эџџx–8р4 findet in einer Liste, die nicht sortiert sein mussр< alle vorkommenden Artikel. Diese werden mit dem EinzelpreisXр6 und der Gesamtanzahl in einer neuen Liste ausgegeben.р Der Gesamtpreis wird errechnet.р5 Geschrieben von Klaus-Dieter Oppermann, Oktober 2005р Variablen deklarieren]ђxр, Letzte gefќllte Zelle]ђр, Zфhler fќr Arrayfelder]ђЈр, Schleifenzфhler (Arrays fќllen)]ђРр,: Schleifenzфhler (Gesamtpreise und Gesamtanzahl ermitteln)]ђир, Array fќr Artikelausgabe 6ЖA65536$4%!8'(р,. Letzte gefќllte Zelle ermitteln (in Spalte A)р Arrays dimensionieren€Ю (ЮЌс0`р, Artikelџр Arrays mit Werten fќllenџ ,ўЌ 0‘’рH# laufe von Zeile 2 bis TabellenendeІ ,Ќ$@ЌЌ$@$4 ,Ќ$@!B :!<%>ЌœрH. wenn Artikel das erste Mal vorkommt, dann ... ,Ќ$@!B *Ќ+0рH ... Name in Array einlesen *Ќ '*рH ... Zфhler fќr Arrayfeld plus 1is ikрH Ende der Auswertungџ ,ўШрH Schleifenzфhler plus 1р Inhalte ausgeben 0ЖM4ЖM 0‘+4рH) Artikelnamen in Ausgabebereich schreibenџ .ўЌ *Ќ ’рH! laufe von Zeile 2 bis ListenendeІЌшЌ$@ЌЌ$@$4 .Ќ $@ЖF4:F232$4 :!<%H .Ќ+@рH Gesamtmenge berechnenџ .ўШрH Schleifenzфhler plus 1oџџџџџџИџџџџјџџџџ8џџџџџџџџџџџџBДAttribute VB_Name = "Module1" Option Explicit Sub liste_auswerten() ' findet in einer LH, die nicht sorti` s@ musslalle vorkoˆmmeAn A&kHXHџџџџџџџџџџџџџџџџџџџџџџ@pјєFпўЪ"J}џџџџpџџџџx–xoџџ hбfЖF1 %4бjЗбlЖD4:E6000ЖSheet2$v%4B@dRange(џџџџаџџџџ9БAttribute VB_Name = "She@et4" шBast0{000Р20820- C$0046} |Global!ФSpac’False dCreatablPre declaIdЋTru BExposeTemplateDeriv$’BustomlizD2P€€ Sub CommandButton1_Click() ‚œs(ƒ 2").Range("D4:E6€AdvancedFilter Action:=xlCopyB,€/pyTo: =*2%F1"), UniqueD:=MEndK №|диџџџџ2>Мђ џџЖџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџP6 џџџџš"џџџџLџџџџLџџџџ”џџџџџџџџLџџџџ<џџџџџџШџџџџ8ƒ‚џџџџџџ0џџџџџџџџџџџџџџ% „џџџџ`xИџџџџ ўHџџџџџџџџџџ„5Macro recorded 12/14/2006 by Patrick Shane Costanigro 14џџџџ8џџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџhџџџџџџџџv˜џџџџџџџџџџџџџџxlџџџ џџ ˆ@ўџ\џџџ џџ 6?ј(Xџџџ џџ Gj@ўџTџџџ џџ `K@ўџDџџџ џџ FYp@џџџ џџ 70@ўџ0џџџ џџ i8@ўџ џџџ џџ =D@ўџџџџ џџ l$@ўџџџџ џџ 5,а№ўџџ џџ Cw@ўџрўџџ џџ g(@ўџаўџџ џџ yX@ўџРўџџ џџ 3{џџџџ(Аўџџ џџ 0H@ўџ ўџџ џџ FLџџџџџџџџџџџџ8џџџџџџџџџџџџџџџџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџpјєF$*\Rffff*2^46f4fd24$*\Rffff*2F46f4f69c*\R1*#dc*\R1*#e8*\R1*#2ac*\R1*#4f*\R1*#e4пўЪ"€ џџџџN8џџџџ–8oџџpџџџџџџџџџџџџPџџџџ@џџџџx hбfЖA1:B1 %4бjЗбlЖD2:E6000ЖSheet1$v%4B@dџџџџ€џџџџБAttribute VB_Name = "Module3" Sub Macro`1() АL.ЬDescrip0tiontX recorded 12/14/2006 by Paиck Shane Costan0igrohZPr@ocDatafInvoke_Funcf \n146Ёheets("S1").Range("D2@:E6000AdvancedFilter Ac!Ќ:=xlCopy,€FpyTo):=&2%A1:B€,, Unique:=Tru€e End € rU€€€€~|  )! yQ9 й 1 й Q y Б @ 9 IЬ„}ўСџ%Xџ'\џ%:lџ% $ QXџ§o№ў%cаў%:0џ%@џ:Dџ%Tџ$ ИTџ d@џўš ў§ŸўІ  )Tџ@џ6№ў ў\м„$ $XџTџ@џ№ўАў ўkrU€€€ џџџџџџџџ$ `§џџџaйnˆГ€0* pH‚dф VBAProjeˆct4@j = r pјєF” J< r€stdole>stdo€le h%^*\G{00€020430-C 0046}#2.0#0#C:\WINDOWS\syst em32\e2.__SRP_8 џџџџЛo_VBA_PROJECTџџџџџџџџџџџџNdirџџџџџџџџџџџџНŒ__SRP_0џџџџџџџџЬC CopytosheetЩЌ(FilterAktualisierenў@€џSheets Tabelle2SŠ€џSheet[ж €џ_B_var_SheetHšSheets2 U€џ_B_var_Sheets2X Module3dЌ(Macro1еNModule4eSchnellUndSchmutzigВŸ€џActivate—| €џWorkbooksBь €џ_B_var_Action†ЭMSFormsCCommandButton1|дCommandButton1_ClickфС€џClickŠу €џActiveWindowУ+ €џSmallScrolltmDown;†€џџџ_B_var_CopyToRangeщХShhet2l €џџџ_B_var_Shhet2Ћцџџœџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџƒ S џџџџџџџџџџџџџџџџџџџџџџџџџџa џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ ~@ E11\MSO.DLL#Microsoft Office 11.0 Object Libraryо*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\tlb#OLE Automation`ƒEOffDic„EOf€iдc‚Ež€”€E2DF8D04C-5BFA-10€1B-BDE5€EдAA€C4€2ˆE€˜gram Files\CommonMicrosoft Shared\OFFICE11\MSO.0DLL#‡ƒM 1@1.0 ObС €LibraryK€MSF€orms>SFЇrms3€ІD452EE1-E08F`A-8-02608C@4D0BB4SFиM20L'B Р_Ь&ш/;"1РƒjIqAHq00}#0Bq#Р €ž50Ј € ŠРA1A12BB85-175D-4726-96D5A8A8@FEF8A3ˆ6DOCUME~1\pcostani€\LOCALS@Temp\Exc`el8.0РcB8.xexdШdU=#€с.E р…€.`ŒM ДAв"ТгТМТНThisWorkbookGЊРT@ПimW‚okbРok*Ю 2к Р HB1ТсB,Т!ŸŒ""+ЂтrShePet1Gт S eqр`t1 ЁvЃ2KЎя в№ #Xє 2•э 2щ 2э 2џ т—3ы "eodulжe#eouAн2Di Џш€"­*јvї!Њ*‡ Р*­+KЏ1p\o9mV ЋІ54m+4i+45m+4№ Ё ­с]iu+3GN'3@Ї3•Џ3АDАђ Љт,et1џџ#Xвџџ Sheet22F46“K*yџџџџrU€€€~~~~~~~~~~~~~~~~~~E Й88}DУM•PР4Iљ™  фџџџџ џџџџџџџџџџџџЙƒŠe ! џџџџџџсƒŠe ! џџџџџџљˆa бџџџџшџџџџA џџqˆ бџџџџ`џџџџq џџ)ƒ џџџџџџџџџџџџџџAA бџџџџРџџџџЙџџ‰y‰i‰i ThisWorkbookSheet1Sheet2Sheet3Module1Sheet4Sheet5Module2Module3Module4 VBAProjectяРF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA йџџџџ i0РF4C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXEExcel бџџџџљq@0РFC:\WINDOWS\system32\stdole2.tlbstdole сџџџџЬayџ  фњ*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.5#0#C:\Program Files\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:\Program Files\Common Files\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{1A12BB85-175D-4726-9626-D5A8A8FEF8A3}#2.0#0#C:\DOCUME~1\pcostani\LOCALS~1\Temp\Excel8.0\MSForms.exd#Microsoft Forms 2.0 Object Libraryс.E р….`ŒM Д џџџџџџpјєFџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџМThisWorkbook1x46f4f53dџџThisWorkbookџџŸŒџџ Sheet12A46f4f617џџ Sheet1џџ#Xвџџ Sheet22F46f4f69cџџ Sheet2џџф30вџџModule22B46f4f617џџ`Module2џџvї0џџџџАшџџModule12G46f4f6f9џџModule1џџm `\ Sheet42O46f4f867џџS Sheet4џџс]xЁModule32^46f4fd24џџ‚Module3џџђ 0џџџџHDџџџџџџџџџџџџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџАџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџxџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџsЊЙГYCОфSм$HХџџџџосb…аxМL€№@ =ќвЫџџџџ;f?Іƒ|nJЁ\уйtџџџџ˜+ў=щUIЂЮѓќ_2ђХџџџџ”†MІŽ‘П@”ДрЅhTymџџџџBXы8НOCЌё4ѓ)їТ–џџџџа•йЋ=—ЧџџџџџџџџPsтlžLЅ)РЬœ™/џџџџџџџџ№ЃHєЁ5ЪџџџџџџџџАџџџџšљЎРппІ+џџџџџџџџа€QTџ0R€џFALSEД€џTrue Excel€+ VBAїтWin16С~Win32MacГВVBA6­#Project1  stdole“` VBAProjectОП Officeu ThisWorkbook|у €џ_Evaluateй Sheet1ш Sheet2щSheet3ъ Module1b„џhalloуOWorkbookk WorksheetСўЌ(liste_auswerten[ŽiZielˆaz”\i`tkarr uarr2}D€џRangeк €џxlUp ч€џRow‰Я €џApplicationЅ*€џWorksheetFunctionѓ&€џCountIfƒ€џCells€џValueфK€џValue2Ђ €џNumberFormatеR€џSumIf- €џColumnsp9 €џEntireColumnє•€џAutoFit& €џ_DefaultjТ Sheet4ыSheet5ьwhereж €џ_B_var_whereУQsdasd6Ќ €џSelectionZЎ€џp Module2c €џActiveSheet%N€џAdvancedFilterbzActionнR €џxlFilterCopy„П CopyToRange‡дUniqueТ  €џ_B_var_SubН’kopieren"/ QPLај-њ[НхЊDоR?C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLLOffice Сџџџџщq`с.E р….`ŒM ДC:\WINDOWS\system32\FM20.DLLMSForms сс Qp…Л]&G–&еЈЈўјЃ7C:\DOCUME~1\pcostani\LOCALS~1\Temp\Excel8.0\MSForms.exd СсщQ€Macro1  F1РFйРF)Qџџџџ D4:E60000 Sheet1зРF Range ActionCopyToRange UniqueAdvancedFilter)ЈиРFx}lnI‰QЛгe“іƒ РF,—љѕt,Ь@‘e-bЩ‡PJDРF Worksheet @FilterAktualisierenпЋјнцJЗ Ь’РМ=ЯК-^|f`HŸюЯ?bЄ"С{lЏЮŸFЊWJOCommandButton1@2зiЮЭЇwнЏи;ЁEЊу]џ‘mŽќj>пgšhB›иHю/ѓ™m D4:E6000liste_auswertenSchnellUndSchmutzig Sheet4 Sheet2 A1 D2:E6000 A1:B1+rU€€€€~~~y џџџџџџџџџџџџџџџџ   џџџџ 5Macro __SRP_1џџџџџџџџџџџџі-PROJECTwmџџџџџџџџџџџџћАPROJECTџџџџўѓSummaryInformation(џџџџџџџџ јrecorded 12/14/2006 by Patrick Shane Costanigro 14 ‰й  a1 CommandButton1 aY (QThisWorkbookThisWorkbookSheet1Sheet1Sheet2Sheet2Module1Module1Sheet4Sheet4Module2Module2Module3Module3ID="{44C576A9-D002-45A0-936C-0518813DB430}" Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Document=Sheet2/&H000 ўџџџ   ўџџџўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ00000 Module=Module1 Document=Sheet4/&H00000000 Module=Module2 Module=Module3 Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="DEDC51D2B3326836683668366836" DPB="9795189D68EF20F020F020" GC="5052DFE0E0E0E01F" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 &H00000002={00020818-0000-0000-C000-000000000046};Excel8.0;&H00000000 [Workspace] ThisWorkbook=132, 174, 817, 629, C Sheet1=44, 58, 729, 513, C Sheet2=22, 29, 707, 484, C Module1=0, 438, 839, 657, C Sheet4=0, 0, 839, 329, C Module2=419, 329, 838, 658, Module3=110, 145, 795, 600, Z ўџр…ŸђљOhЋ‘+'Гй0Ш@Hl Ј ДРфPatrick Shane CostanigroPatrick Shane CostanigroMicrosoft Excel@€W]DцЧ@€Д}–oЧўџеЭеœ.“—+,љЎ0P PX| „Œ”œ Є DocumentSummaryInformation8џџџџџџџџџџџџ€CompObjџџџџџџџџџџџџmџџџџџџџџџџџџџџџџџџџџџџџџфAgilent Technologies, Inc.Ћ PartsSheet1Sheet2Parts!ExtractSheet1!ExtractSheet2!ExtractParts  Worksheets Named Rangesўџ џџџџ РF!Microsoft Office Excel WorksheetBiff8Excel.Sheet.8є9Вq