аЯрЁБс>ўџ $ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ§џџџ#  !"ўџџџ:E&'(/*+,-.ўџџџ912345678);I<=>?@ABCDFўџџџGHJLKMўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot Entryџџџџџџџџ РF`[eН›ЫрЧhШU•Ы%Р*Workbookџџџџџџџџв@_VBA_PROJECT_CUR"lЧU•ЫрЧhШU•ЫVBAџџџџџџџџ`;ШU•ЫR_ШU•Ы ЊЭЩсАСт\p Wolff, Marco BАaР=гКDieseArbeitsmappeœЏМ=x<уI88X@"Зк1ШџArial1мCalibri1мCalibri1мCalibri1ШџМArial1ШџArial1ДQTahoma1мZCalibri1м ZCalibri1м?МZCalibri1м4МZCalibri1м>ZCalibri1мМZCalibri1мZCalibri1мZCalibri1м<ZCalibri1мZCalibri1h8МZCambria1,8МZCalibri18МZCalibri1м8МZCalibri1м4ZCalibri1м ZCalibri1м МZCalibri3#,##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\ _Ќ _-;_-* "-"??\ _Ќ _-;_-@_-рѕџ Р рѕџ Р рѕџ Р рѕџ Р рѕџ Р рѕџ Р рѕџ Р рѕџ Р рѕџ Р рѕџ Р рѕџ Р рѕџ Р рѕџ Р рѕџ Р рѕџ Р р Р рѕџ ДŸ рѕџ Д­ рѕџ ДЊ рѕџ ДЎ рѕџ Д› рѕџ ДЏ рѕџ ДЌ рѕџ Д рѕџ Д‹ рѕџ ДЎ рѕџ ДЌ рѕџ ДГ р ѕџ Дž р ѕџ Д р ѕџ Д‹ р ѕџ ДЄ р ѕџ ДБ р ѕџ ДД р ѕџ ДО р ѕџ ДŠ р ѕџ ДЙ р ѕџ ДЄ р ѕџ ДБ р ѕџ ДЕ р ѕџ ”ПП– р ѕџ ”— — – р+ѕџ јР р)ѕџ јР р ѕџ ”— — Џ р ѕџ дa>Р рѕџ єР рѕџ ДЊ рѕџ ДЋ рѕџ œ  š р ѕџ јР рѕџ Д­ рѕџ єР рѕџ дPР рѕџ дP Р рѕџ д Р рѕџ єР рѕџ д`Р р,ѕџ јР р*ѕџ јР рѕџ єР рѕџ ”ffППЗ р"8""@ @ Р р"0""@ @ Р р"x""@ @  р"p""@ @  р @ р"x р"x"@ @ 7 р"x""@ @ 7 р"Р р"x@ @ ( р"p@ @  ||IеOіx}A} _Ќ _-ef#0.0}A} _Ќ _-ef#0.0}A} _Ќ _-ef#0.0}A} _Ќ _-ef#0.0}A} _Ќ _-ef#0.0}A} _Ќ _-ef #0.0}A} _Ќ _-ЬL#0.0}A} _Ќ _-ЬL#0.0}A} _Ќ _-ЬL#0.0}A} _Ќ _-ЬL#0.0}A} _Ќ _-ЬL#0.0}A} _Ќ _-ЬL #0.0}A} _Ќ _-23#0.0}A} _Ќ _-23#0.0}A} _Ќ _-23#0.0}A} _Ќ _-23#0.0}A}  _Ќ _-23#0.0}A}! _Ќ _-23 #0.0}A}" _Ќ _-#0.0}A}# _Ќ _-#0.0}A}$ _Ќ _-#0.0}A}% _Ќ _-#0.0}A}& _Ќ _-#0.0}A}' _Ќ _- #0.0}‘}( ???џ_Ќ _-ђђђџ#0.0???џ-;_-???џ?\ _ ???џ@_-@ ???џ}‘}) њ}џ_Ќ _-ђђђџ#0.0џ-;_-џ?\ _ џ@_-@ џ}‘}, ??vџ_Ќ _-џЬ™џ#0.0џ-;_-џ?\ _ џ@_-@ џ}U}- _Ќ _-#0.0-;_-}-}. џ_Ќ _-}A}/ aџ_Ќ _-ЦяЮџ#0.0}A}0 œeџ_Ќ _-џыœџ#0.0}x}1џџЬџ_Ќ _-ВВВџџыœџ#0ВВВџ-; ВВВџџ?\ ВВВџџ@_}A}3 œџ_Ќ _-џЧЮџ#0}-}4 _Ќ _-}A}5 _Ќ _-#0}A}6 _Ќ _-џ?#0}A}7 _Ќ _-23#0}-}8 _Ќ _-}A}9 њ}џ_Ќ _-џ€џ#0}-}< џџ_Ќ _-}‘}= _Ќ _-ЅЅЅџ#0???џ-; ???џ?\  ???џ@_-@ ???џ}(}@џџџ_Ќ _-}(}Aџџџ_Ќ _-}(}Bџџ_Ќ _-}(}CАPџ_Ќ _-}(}D4г_Ќ _-}(}E4г_Ќ _-}(}GА№џ_Ќ _-}(}Hef_Ќ _-“ 20% - Akzent1’M’џ 20% - Akzent1 efлхёџ џ%“ 20% - Akzent2’M’"џ 20% - Akzent2 efђнмџ џ%“ 20% - Akzent3’M’&џ 20% - Akzent3 efъёнџ џ%“ 20% - Akzent4’M’*џ 20% - Akzent4 efхрьџ џ%“ 20% - Akzent5’M’.џ 20% - Akzent5 efлюѓџ џ%“ 20% - Akzent6’M’2џ 20% - Akzent6  ef§щйџ џ%“ 40% - Akzent1’M’џ 40% - Akzent1 ЬLИЬфџ џ%“ 40% - Akzent2’M’#џ 40% - Akzent2 ЬLцЙИџ џ%“ 40% - Akzent3’M’'џ 40% - Akzent3 ЬLзфМџ џ%“ 40% - Akzent4’M’+џ 40% - Akzent4 ЬLЬРкџ џ%“ 40% - Akzent5’M’/џ 40% - Akzent5 ЬLЖншџ џ%“ 40% - Akzent6’M’3џ 40% - Akzent6  ЬLќеДџ џ%“ 60% - Akzent1’M’ џ 60% - Akzent1 23•Гзџ џџџџ%“ 60% - Akzent2’M’$џ 60% - Akzent2 23й—•џ џџџџ%“ 60% - Akzent3’M’(џ 60% - Akzent3 23Тжšџ џџџџ%“ 60% - Akzent4’M’,џ 60% - Akzent4 23ВЁЧџ џџџџ%“ 60% - Akzent5’M’0џ 60% - Akzent5 23“Энџ џџџџ%“! 60% - Akzent6’M’4џ 60% - Akzent6  23њРџ џџџџ%“ "Akzent1’A’џAkzent1 OНџ џџџџ%“ #Akzent2’A’!џAkzent2 РPMџ џџџџ%“ $Akzent3’A’%џAkzent3 ›ЛYџ џџџџ%“ %Akzent4’A’)џAkzent4 €dЂџ џџџџ%“ &Akzent5’A’-џAkzent5 KЌЦџ џџџџ%“ 'Akzent6’A’1џAkzent6  ї–Fџ џџџџ%“ (Ausgabe’y’џAusgabe џђђђџ џ???џ%џ???џџ???џџ???џ џ???џ“) Berechnung’’џ Berechnung џђђђџ џњ}џ%џџџџџџ џџ“*€џ’$’џDezimal“+€џ’,’џ Dezimal [0]“ ,Eingabe’y’џEingabe џџЬ™џ џ??vџ%џџџџџџ џџ“ -Ergebnis’S’џErgebnis џ%OНџOНџ“.Erklфrender Text’G’5џErklфrender Text џџ%“/Gut’9’џGut џЦяЮџ џaџ%“ 0Neutral’A’џNeutral џџыœџ џœeџ%“ 1Notiz’d’ џNotiz џџџЬџџВВВџџВВВџџВВВџ џВВВџ“2€џ’$’џProzent“ 3Schlecht’C’џSchlecht џџЧЮџ џœџ%“€џ’&’џStandard“4 мberschrift’=’џ мberschrift I}џ%“5 мberschrift 1’O’џ мberschrift 1 I}џ%OНџ“6 мberschrift 2’O’џ мberschrift 2 I}џ%џ?ЈРоџ“7 мberschrift 3’O’џ мberschrift 3 I}џ%23•Гзџ“8 мberschrift 4’A’џ мberschrift 4 I}џ%“9Verknќpfte Zelle’U’џVerknќpfte Zelle џњ}џ%џџ€џ“:€џ’$’џWфhrung“;€џ’,’џ Wфhrung [0]“<Warnender Text’C’ џWarnender Text џџџ%“=Zelle ќberprќfen’‹’џZelle ќberprќfen џЅЅЅџ џџџџ%џ???џџ???џџ???џ џ???џŽXŽTableStyleMedium9PivotStyleLight16`…š0Tabelle2ššЃЃŒ11Ў!  ;  # CAD_Daten;$ Hilfszelle; ССыыZ№R№3 №ПAР@@ё  їќй:MaterialXYST(1)M(1)ST(2)M(2)StahlAluB1-1B1-2B1-3B1-4B1-5B1-6B1-7B1-8BauteilStќck Daten aus CADDaten von HandAbfrage-MaterialAbfrage-Stќckzahlџ1/ j/EЁ/|cc––Bх››ŒŒ——4cўЗЂС хН=_MAЛТу ЊЭЩ А1e>  dќЉёвMbP?_*+‚€%џСƒ„&[4ЎЩd2щ?'[4ЎЩd2щ?(Š<ќ§~я?)Š<ќ§~я?Ё"џ4cўЗŠ<ќ§~п?Š<ќ§~п?(1œ&œє~U } $} $ } m} I} m} I} m} лF} IFtt                                   § B§ D§ E§ E§ E§ E§ E§ E§ G§  G§ @ Н?€Q@?рp@?№?§ ?~ ?§ ?зHXњ’џџ џСDР DР B$ $РDР DР B$ $РrDР DР DРDР B$ $Р<DР DР B$ BEIDES NIX"""BStahl‘ H№?Р§{DРDР DРDР B$DРDРMDРDР  $Р-DРDР  $Р NIX""B§ @ Н?€Q@?рp@?№?§ ?~ ?§ ?HLњ’џџ ўМЫ СLћР L§Р B$ ,ќРLћР L§Р B$ ,ўРrLћР L§Р LќРLўР B$ ,ќР<LћР L§Р B$ BEIDES NIX"""BStahl H№?џ М… {LџРLћР LџРL§Р B$LњРLќРMLџРLћР  ,њР-LџРL§Р  ,ќР NIX""B§ @ Н?@U@?€k@?№?§ ?~ ?№?§ ?H№6мџџ џ BEIDES Hx/Шџџџ NIX§ @ Н?D@?4@?№?§ ?~ ?№?§ ?H€/Шџџ џAlu H@џ § @ Н?€K@?Р\@?§ ?~ ?№?§ ?Hˆ/Шџџ џAlu H№?џ § @Н?>@?@Z@?§ ?~ ?№?§ ?H/Шџџ џAlu H№? џ § @Н ?K@?4@?§ ?~ ?№?§ ? H˜/Шџџ џAlu H№? џ § @Н ? b@?Аu@?§ ?~ ?№?§ ? H /Шџџ џAlu H№?џ § C§ D§ E§ E§ E§ E§ > Н?€Q@?рp@?№?§ ?§ > Н?€Q@?рp@?№?§ ?§ @ НA@U@A€k@A№?§ A§ @ НA@U@A€k@A№?§ A§ @ НAD@A4@A@§ A§ > Н?€K@?Р\@?№?§ ?§ >Н?>@?@Z@?№?§ ?§ >Н?K@?4@?№?§ ?§ >Н? b@?Аu@?№?§ ?з.ї ~аіЉœœœœœF88888888ьр№р№№Ш№( № №№Ђ № г №N€акЯ‹ПXџџсƒџџс…єПУєє?П№ r aе№]4@акЯџЯ …м5/tрБK’–ЁƒЊТsіь №ЖS<TNur Abfrage, welche Stќckzahlfelder gefќllt sind und entsprechende Materialpaarung <ЯSЉ Wolff, Marcoќ>Ж@ff‹‹bf  яїК Tabelle1ggџџџџD DieseArbeitsmappe$ џџџџџџџџяTabelle1џџџџуModul1 џџџџ0a__SRP_2џџџџ > ўџџџўџџџ!"#$%&'()*+,ўџџџ./012ўџџџ456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopўџџџrstuvwxyzўџџџ|}~€№ддџџџџл/Е§ЈЯџџ#ˆЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ<џџџџџџN0{00020819-0000-0000-C000-000000000046}џџџџH€ўџџџџџџџ(џџџџџџџџџџ%џџџџџџџџ0џџџџ(џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8яd”N пўЪџџџџџџџџxџџџџЖАAttribute VB_Name = "DieseArbeitsmappe" "  Bas 0{00020819ъ-0C$ 0046} |GlobalкSpa‚cIFalse dCreatablPredeclaIdЖTru BExposeTemplate`Deriv’BuРstomizD2№ддџџџџл/Е§јƒџџ#ˆЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ<џџџџџџN0{00020820-0000-0000-C000-000000000046}џџџџH€ўџџџџџџџ(џџџџџџџџџџ%џџџџџџџџ0џџџџ(џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8яd”N пўЪџџџџџџџџxџџџџЊАAttribute VB_Name = "Tabelle1"  јBas|0{00020820-; C$0046} |Glob„alШSpac’ False dCr@eatablP€redeclaDId­Tru BE xposeTemplateDeriv$’Bust0omizD2 .&\ХeрADurch das Einfќgen der Leerzeilen - siehe unten - wird rgTemp mitр; nach unten verschoben - Adresse des Einfќgepunktes merken:ЌЌ &%4'(eр rgTemp.Selectр2Spaltenќberschriften werden mitgezфhlt, 1x Offset: $Ќ '$Їэ "Ќ Ж: $$ !6.р<Selection.Insert Shift:=xlDown 'Kopierte Zeilen (!) einfќgenр> Funktioniert leider nicht fќr einen gefilterten Bereich. Alsoр8 vorab so viele Zeilen einfќgen, wie Treffer vorhanden:te  "$8'* eleme & *A@: tр rgTemp.Selectcu B@< ($ B@> ($ B@HЗ @(Blang" эА.&эА.oџџxџџџџа–рр<ermittelt die Anzahl der Ergebnisse fќr aktuellen AutoFilter------]ђ`]ђxџ Hў FЌ D!0!2 F ’ i HЖ: H$0!6!LЗ›GЌ J 'Jjџ HўШ im Er J'8iџџаџџџџШ–Ар'fќgt "nRows" Zeilen ab Bereich "rg" einf ]ђ0џ PўЌ N’exType D!6B@RСџ PўШict vaoџџ–HрEDeaktiviert den Filter im Bereich "strBer" und blendet den Filter auserat | p% B@€nRowoџџ џџџџ˜џџџџТЕAttribute VB_Name = "Modul1" Sub FilternKopierenEinfuegen() Application.Scre enUpdngAFalseJSet objWS(ThisWorkbook.ActiveSheeŠt'Baichr "Hilfszelle", "@BEIDES–  ,‘ 'und Umbenen FAus I NothiŒng šfTrufE4‹0Priva€œ’‹\(strA€ As S€Џng, €Krit  Ÿ'ƒPt eiZ in Excel canntHen + "("р nach‚&…Z'Range(‰–).SelecЊМ.ƒ#).Auto>Рweld@:=1, CР'eРria1:=Р A9<‰;Х^Dim rgCErge0bnis9B iСI@4ger '1. ZeiXle  bC~,€ ohne м€Рschrif@0Тk letzР]УrgTempС " 'freieC@@“ am Р5e desХXesУ €>InsAdr Co '€esseйƒ_de@€Сќ@С@€r LeerzA4nƒB†;Anzahl Treff€?a€ЃKAW iРФB(("CAD_D@”n").RoŠwСvkSCurРт0tRegоР s.CounТ{'Sp2a€ьnќQ@’werd€mitgezфhlt, 1x abzieh8en:a bЄ&= !DA" &@+ k - 1B~'D„ur€Pdas kА @sС `-р wird`D2  'c)#verР=>oр^@e-a3 punkt@5merk „Ч4=$ .Add‚r 4(0, 0Ёk> ga#‡?$'$Of0fsetт#a1k И+ 1‡%Ќ^Х&iЁ '":С'k).E ntired: B у!8 Nert Sh ^:=xlD`own 'Ѓl%]nа (!)A…fA. F#@Гt l(eidLn Јt fќraР/gefBИш‰. AlsoC vorab рso vi`†d@sjnц ,€7e†W`hьanI"p€SЃ[„[т(э€, ibFBugЧ3, pa 'чP5M \pyС#Sц?).PasteSРpecialч?С‰МCutCopўyопъе&aшУ#dŽ>9& ЎЅ 4`мonŽ %&“`$Sta ?; Х„†)d #er€ftelt d ˜ ЅЇ “с=aktоuх€ цЛ#’m !Њ`s F qFor4 miгp. T~oЁHфE`-гё  If ЁG(mІ.BmЈ..Hid!G=’ r TpF n1`R Nexјt mБЪ рГљх щgь$`'ё ‚!x, n1 јЁ@ 3tt "’".@/цurьg"/УoШ3ZЁžo’ Rrg—=ў.3<r р5ш ћ $Nn‰ž‚б Deiџр8@!усr р/А‚"Vd ble 9џР!Р>Є@fЏЉъ 7qR ўЪ\" "* (€ џџџџH€ P€ џџџџh€ "ˆ˜€ џџџџ"  € FЈ€ џџџџ€ №$2€ џџџџ8" P€X€<`€. €0а€6€(8€ џџџџ`rU€€€€~|  !љIqй™ЉбI!‘AaќИ"єѕ xџ$ xџ аxџ*tџxџѕ $ Рxџ 8Qtџќќdџxџ C\џ\џC`џ`џ 2`џ\џ C`џ`џ /`џќcќћdџ"єџѕ xџ$ xџ аxџМ И(1dџ`џ\џxџtџt82(Lџ%l§“@l §“@lџџ> џ §ŸўІ  5 џъ p8№Ь д(џџџџa •Е§“џџЖџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ 0џџ > џџџџ<$џџ<џџ< џџLџџџџLџџџџLџџџџ”џџџџ<(џџ<,џџ<0џџ<4џџ<8џџ<<џџ<џџџџџџ(%ƒџџџџџџ0џџџџџџџџџџџџџџ% Ўx`џџџџџџџџА\џkџџџџџџџџџџ „ v`џџџџџџџџр џkИџџџџџџ „iƒ|џџџџ џџџџи€џџџџiƒ~џџџџџџџџџџџџ€џџџџ%% xр`џџџџџџџџџџџџ џџџџџџџџџџ%%„ „џџџџџџџџџџџџ`„"џџџџџџџџџџџџџџ`„$џџџџџџџџџџџџџџ „&џџџџџџџџЈџџџџ%`„(џџџџџџџџџџ@`„*џџџџџџџџџџ+8А`џџџџџџџџџџџџ џџџџ 9Œ)ƒDџџџџџџџџј@€iƒFџџџџџџџџџџџџџџ€џџ`„Hџџџџџџџџџџџџ`„Jџџџџџџџџџџiƒ|џџџџџџџџџџџџџџ€џџџџ :H`џџџџџџџџџџџџ №џџџџџџ D„)ƒDџџџџџџџџ€џџџџiƒNџџџџџџџџџџџџџџ€џџџџ`„Pџџџџџџџџџџџџџџ zџџџџ`џџџџџџџџџџџџ џџџџџџN„џџџџ8HxАџџџџџџџџрџџџџџџџџџџџџџџџџџџџџ˜џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџАhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPџџџџџџџџ@rvxzџџџџџџ@ўџ€xџџџ џџ џџ@ўџџџџџtџџџ џџ @pџџџџdџџџ џџ@ўџШ`џџџџџ @ўџџџџџ\џџџџџ №џџџџџџџџџџџџџџџџ€џџџџиџџџџИџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџјџџџџ˜џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@pџџџџlџџџ џџp@ўџА\џџџ џџ џџџџ@ўџШLџџџ џџ џџџџ@ўџр<џџџ џџ џџџџ@ўџџџџџ,џџџ џџ џџџџ@ўџџџџ џџ џџџџ@ўџџџџџ џџџ џџ џџџџџџџџирXtџџџ џџ pр@dџџџ џџ@ўџ`џџџџџ @ўџ\џџџџџ (@plџџџ џџ@ўџ\џџџ џџ @ўџLџџџ џџ @ўџ<џџџ џџ \џ@@ўџ,џџџ џџ џџџџ№џџџџ8џџџџџџџџџџџџџџџџџџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ ˆяd”N *\R1*#222$*\Rffff*0;4e9466b2*\R1*#116*\R1*#fc*\R1*#10d*\R1*#33bпўЪ\" "* (€ џџџџH€ P€ џџџџh€ "ˆ˜€ џџџџ"  € FЈ€ џџџџ€ №$2€ џџџџ8" P€X€<`€. €0а€6€(8€ џџџџ`$€€ :Ј$ш€ H€ BX € И€ џџџџ€ 8а(€ џџџџ€ B@€ Dˆ€ >а(€ џџџџ€ 8 P`p€ џџџџ €˜€ џџџџ B  А€ BИ€€€ џџџџ&88 p€€ џџџџˆ"  ˜€ . €а€ џџџџи№ € џџџџ€ џџџџ"  € L pˆ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџџџџџ˜–8З @(n э r!t.pЖ HilfszelleЖBEIDESA@vESA@xрund UmbenennenbeneЖ HilfszelleA@zleA@эА.pЗ @(n o@–xр@Filtert einen in Excel benannten Bereich "strBer" nach "strKrit"stрRange("Hilfszelle").SelectЌб‚ ~б„ | p% B@€B@o џџџџИџџџџа#–]ђH]ђ`р-1. Zeile im Ergebnisbereich, ohne мberschrift]ђxрletzte Zeile im Ergebnisbereich]ђр!freie Zelle am Ende des Bereiches]ђАр(Adresse nach dem Einfќgen der LeerzeilenІ]ђШрAnzahl Treffer aus FilterЖ CAD_Daten$ !,'"Ж CAD_Daten$ !.!0!2'$р4Spaltenќberschriften werden mitgezфhlt, 1x abziehen:эЖA " $ Ќ $(1lџџ џ0 ќЦ  0 ќЦр  0 ќЦА  0 ќЦH  RrU€€€ џџџџџџџџ$`§џџџџџџџџџџџ,Љ`ќџџџџџџџџџџџay00$б`ќџџџџџџџџџџџ4љ__SRP_3џџџџџџџџџџџџ-o_VBA_PROJECTџџџџџџџџџџџџ3AdirџџџџџџџџџџџџqJ__SRP_0џџџџ џџџџ{%`ќџџџџџџџџџџџБС=‘&4!`ќџџџџџџџџџџџБй=‘&(I`ќџџџџџџџџџџџa0nЬaˆџ ф(*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\Program Files (x86)\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.6#0#C:\Program Files (x86)\Microsoft Office\Office12\EXCEL.EXE#Microsoft Excel 12.0 Object LibraryМ*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\SysWOW64\stdole2.tlb#OLE Automation4*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.4#0#C:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE12\MSO.DLL#Microsoft Office 12.0 Object Library џџџџџџяd”N џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЕ§"DieseArbeitsmappe0K4e9464d7џџ"DieseArbeitsmappeџџЈЯ5џџTabelle10J4e9464d7џџTabelle1џџјƒ5џџ Modul10;4e9466b2џџ Modul1џџ“0›џџџџџџPџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџупд-lFГР‹яЏ†џџџџњШIф%)іKІ]фєћLшџџџџё]1шЌ8ўKƒ~gŒЋћD–џџџџџџџџ0€efџш2 Excel€+ VBAїтWin16С~Win32MacГВVBA6­#Projekt1вA stdole“` VBAProjectОП Officeu DieseArbeitsmappeЏ €џ_Evaluateй Tabelle1RŠ Modul1Э„џџџtest1іcrgFilterErgebnis'|€џRangeк i`kbrgTemp strInsAdr‰Хpg€џRow‰Я €џCurrentRegion|”€џRowsЁUCount0v€џAddressЇХ €џEntireRowї AnzahlTrefferТwZeilenEinfuegen"Э€џCopyЦП €џPasteSpecialОK €џApplicationЅ* €џCutCopyModeЈrgі^iStartгќmdne€џHidden]цnRowsoэof€џInsertжrSicher{/lфsstОsichžјDIN1055зБdeю\Eine’*AntwortjaufnuAnzeigeХ, WorksheetСўWorkbookk€џ_DefaultjТ„џџџtest0ѕc€џScreenUpdating! objWSЄ  €џThisWorkbook|у €џActiveSheet%NBereichFilternУ+Kopieren"/ FilternAusЫЦstrBerИщstrKrit6d €џAutoFilterнFieldќ3 €џCriteria1еїrgPaste lc €џActiveCellНЗ €џSpecialCellsЅО €џxlLastCellО%€џCells€џVisibleЖгWieўуgesagt5 NichtsXРfertigesŸeherљ# CAD_Daten,WTabelle2SŠ Hilfszelle`Ohne"оdieМƒhageltlЎ €џџџ_B_var_objWSаЭCodeњНЌ(FilternKopierenEinfuegenЙЩPaulchenТ+Mitgliedё/DiplEeBeitrфge  RegistriertR)BќroCWin7ўJ EnterpriseЕerstelltO\am‡\ Kopieren_V1uЛAnzahlTreffer_V1ˆp€џџџ_B_var_KopierenЋ€џџџ_B_var_FilternAusі4џџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџ  џџџџџџџџџџџџ 6FВ€0* pH‚dф VBAProjeˆct4@j = r яd”N ” J< r€stdole>stdo€le h%^*\G{00€020430-C 0046}#2.0#0#C:\Windows\SysW OW64\e2.tlb#OLE Automation`ƒEOffDic„EOf€iдc‚EЄ€š€E2DF8D04C-5BFA-10€1B-BDE5€EдAA€C4€2ˆE€˜gram Files (x86)€\Common \Microsoft Shared\OFFICE12\MSO.D˜LL#‡ƒP 1€t ObФ LibАraryN‚з‚Е§€ DieseArbeitsma@ppeG" insРAr bРi`smˆap@e“Š2ЄHB‚1B5B%,B)ЈЯ#"+Т РTabelle1GЎA$'lB†1€%ЭЩ2вујƒЫAЄ`Modul@СЊMq@ЃduРAG2'ТЋIЯ›Я:“!Р3Х:С6“K*ˆџџџџrU€€€€~~~~~~~m !Ћ&ƒ0ћFƒј/­<‘ž фџџџџ џџџџџџџџџџџџЙ џџџџџџџџџџџџщˆa Бџџџџpџџџџ‘бљ‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“ўџџџ•–ўџџџ˜ўџџџš›œžŸ ўџџџЂЃўџџџЅІЇЈўџџџЊўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџi‘џџ ) 9DieseArbeitsmappeTabelle1Modul1 VBAProjectяРFFC:\Program Files (x86)\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLLVBA Aџџџџ i0РF:C:\Program Files (x86)\Microsoft Office\Office12\EXCEL.EXEExcel iџџџџ‘@0РFC:\Windows\SysWOW64\stdole2.tlbstdole џџџџЉёPLај-њ[НхЊDоREC:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE12\MSO.DLLOffice aџџџџ‰!`FilternKopierenEinfuegenBereichFilternKopieren AnzahlTrefferFРFZeilenEinfuegen FilternAus РFйРFбљџџџџеРFкРF Hilfszelle BEIDESбˆ Range FieldCriteria1AutoFiltergrU€€€€~} џџџџџџџџџџџџџџџџџџџџ strBerstrKrit )ArgiStartnRowsbDieseArbeitsmappeDieseArbeitsmappeTabelle1T__SRP_1џџџџџџџџџџџџ”АPROJECTwmџџџџџџџџџџџџ—hPROJECT џџџџ™рSummaryInformation(џџџџџџџџЁРabelle1Modul1Modul1ID="{23EE17CF-4DE7-4BD2-8980-4F848C1E1889}" Document=DieseArbeitsmappe/&H00000000 Document=Tabelle1/&H00000000 Module=Modul1 Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="3A38CCD8C6DCC6DCC6DCC6DC" DPB="3032C629C729C729" GC="2624D0EC301427152715D8" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] DieseArbeitsmappe=0, 0, 0, 0, C Tabelle1=25, 25, 948, 757, Modul1=50, 50, 973, 782, Z ўџр…ŸђљOhЋ‘+'Гй08@X p |ˆфWolff, MarcoMicrosoft Excel@€e‡ŠЫ@€њЧU•ЫўџеЭеœ.“—+,љЎ0єHP X`hp x Њф  Tabelle2 CAD_Daten Hilfszelle ArbeitsblфtterDocumentSummaryInformation8џџџџџџџџџџџџЄ$CompObjџџџџџџџџџџџџЉsџџџџџџџџџџџџџџџџџџџџџџџџBenannte Bereicheўџ џџџџ РF'Microsoft Office Excel 2003-Arbeitsbl.Biff8Excel.Sheet.8є9Вq