аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ§џџџU6 ўџџџ;' !"#$%&()*+,-./012345ўџџџ789:<T=>M@ABCDўџџџFGHIJKL?NOPQRSVYўџџџWXўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot Entryџџџџџџџџ РFо“пзѓФ@ц ?Ч&Workbookџџџџц_VBA_PROJECT_CUR"џџџџџџџџ`&vйѓФ`—xйѓФCtls џџџџџџџџPўџџџ  !"#$%&'()*+ўџџџ-./ўџџџ123456789:;<=>?@ABўџџџDEFGHIJKLMNOўџџџQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|ўџџџ~€@2зiЮЭЇwн*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\ _Ќ _-;_-* "-"??\ _Ќ _-;_-@_- Ќ0.00000 ­0.000Ў 0.0000000000рѕџ Р рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР р Р р+ѕџ јР р)ѕџ јР р ѕџ јР р,ѕџ јР р*ѕџ јР р Р рР р"Р рР р"Р р"x@ @ * рР рР рР р Р р"x@@ * р"x @ * р­Р р1Р р1#Р “€џ“€џ“€џ“€џ“€џ“€џ`…~Tabelle1Œ11СС€8ы•№№  ?№+№$џ•№$џ•"№ЫЋљЯrmZ7;%}нхџЇ•@=№ŸЋљЯrmZ7;%}нхР €hva~mўxкЕVKOSAўцоіK’ЈiM5CмЙ0–ˆЏ‰RMм˜€PRB‹•GЅK.\—&&КaуCŒQ6Ј ъо@ Ф…$ѕœЙgк4б„:Эwя93sпЬ™ЙU2ЈЖG„Kцz_М(Ќ6Ндяaw+…€хАЃ€sjїи№jWО@p|ѕ.ї_Н@гJp{CwžёМSGhмv тЄЖ&ЇpUщР‡{XjvЂXbc…Ц$“I™пCіфЧМ86…вЬЊ=Š4fi,П~YЋX*k^|*ЖeœЅБ,•JKЧšзNsxЎmЙЈ{eЙ\ЎXКжМ6mЉvY.œљEhФЉ9Ц­Ž[sеXRsfщД2ЃŽbё(сЗГ]іїюЉПI8ƒЉXj$›‹Ѕв3“уhšx{wЛ№‘рOш•кSЃŽШћwІЩC х Šё(Ї0RљбЉЬd.ŸŽЬц2щ\:QІžў1› жќž щќєtЧшVхВЋcaF„цHh!,ЂВcЖо$Кi{ЧутЇ[tSТ~M]‹ћcrVь3ctUёЙiŸѓЕхкЭФ€ј.ZчвФRћŒaИ:ЂћЇ Ъе铇iэ–Ќ$Ÿzp5k^Д|Н^\]cЁЯm•Ћkхaт…Ћб•шѕтЪОхmыѕтнПiЊ\{ђ0hЋЁзƒЋ#ў 7Ѓ/дk­Zu‹ТСш/ђтЙупшs„№>у§эоъ”|јьЖ‹ ‰kюЋ!ТДђяјmS иuПћ7cœy+Э­є6D1АЦrДU+&^њoJЗ§FвѓчšЦОzо<бёb%Šё§Б ћ˜>ћИР6 лЧ&™уйmmWlЋР~W>јяйN0и†ёseЋ№œєFЩџіЇ0цG;ёnuKЧшOHЅF‚ВGfOnоЫўёџЇћђ cлзЏ6њnнкш3cЉЏ€шžUOyBŠž;Х§{›ЄнЪг^ХhчfIЮœ#dЉђBR‹žs‚ж˜='(уFіЌ9'„я‹сI1J]UžЅ^‘“|ЭЊ_і•Аъ2aЅ„u'Ќ{*a­х!YˆO–џ–†п;3 №П Р@@ё  їќ> StќcklisteBG-EbeneKomponentenname Benennungџ 6 ЏЭЩ€ #TЂD  dќЉёвMbP?_*+‚€%џСƒ„M\\NT_SERVER1\HP LaserJet 4V 2.Oм4Cя€ š 4dXXA4џџџџDINU"4”уљŠЁ" dXXŠ<ќ§~п?Š<ќ§~п?U } } $,} I} } ’ } л } л } m } л} I #} $} $} #} #ЛРџ€џ€џџџџџџ џ џ џ џ џџџџџџџџџџџџџџџџџџџ§ О ! " "О § § §  О О #О #О #О #О #О #О   #О   #О   #О   #О   ###################зDVl2H$$$$$$$$$$$  џ!џ"џ #!#"з Z( ьц№о№№Ц№( №|уа Pi №№Ž’ № “ №TПA ?ПР@џ€УПCommandButton1№jЖс№]` D#•1 6$| ;ДчForms.CommandButton.1P>Ж@я7К Tabelle2 VBAџџџџџџџџ`&vйѓФ`—xйѓФTabelle2џџџџџџџџџџџџЅE__SRP_2 џџџџџџџџp __SRP_3 џџџџ,ѕ4*\R1*#c4*\R1*#229пџџџџLpTўЪf€ Jˆ€ Z€x€"HР€0€8€@€H€ € X€ џџџџ(`"!8#Ј$Px  ˆ`  p ИРШ4@ар (!Р#!Ш #0!H#h!А8 € 8 H`ИР"p„4аxB @ˆ€ј€Ш€Ш€а€Ш€№€&и €˜€0€  €А €8€   € џџџџ-( 4Шn6-р6и №#и".ј8 @ 6 (   Р  и 0„#X,$F$’;зˆџџcˆЖџџџџџџџџ\џџЦЛЫ‹^ЬMЏъu|Ъ_ РFŽЙA:'1еAІ:K•г… жџџџџџџџџџџџџx,CommandButton1, 1, 0, MSForms, CommandButtonŽЙA:'1еAІ:K•г… жЦЛЫ‹^ЬMЏъu|Ъ_џџMEџџџџџџџџџџпџџ<џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@[LџџџџSџџџџS”џџџџsџџџџ>"џџџџџџџџLџџџ џџџџ@„џџџџ<џџџ џџ`„Šџџџџ:џџџџџџџџџџџџџаџџџџиџџџџрџџџџшџџџџ№џџџџјџџџџџџџџџџџџpџџџџ џџџџџџџџџџџџ џџџџаџџџџџџџџџџџџˆџџџџџџџџШ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџаџџџџџџџџ‚Bџџ „fџџџџxџџџH€%  џџџџ џџџџшџџџџ№џџџџјџџџџ џџџџ џџџџ џџџџ џџџџ @ўџџџџџxџџџџџ џџ „fџџџџxџџџ€џџ „fџџџџxџџџ8€ џџB€vp8џџ џџ@џџџџџџџџ0 џџџџА „fџџџџxџџџ€џџџџџџџџ џџџџШ џџџџа џџџџи @ўџ hџџџ џџ @@ўџ( Xџџџ џџ @ўџ@ Hџџџ џџ џџџџp iƒўџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0 џџџџш џџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЈџџџџ „fџџџџxџџџш€џџ „fџџџџxџџџш€ @ўџX 8џџџ џџ џџџџ@ўџ (џџџ џџ e@ўџџџџџџџџ џџ `џџџџPџџџџx џџџџ€ @ўџџџџџџџџ џџ H8џџџџџџ џџџџџџ@8Ј lџџџ џџ џџ@ўџи `ўџџ џџ џџџџ( џџџџ№ @ўџ Pўџџ џџ џџџџ@ўџџџџџ@ўџџ џџ `„dџџџџАўџџџџ0џџџџ24vв8 џџџџ@ўџџџџџ<ўџџџџ @ўџџџџџ8ўџџ џџ Р p џџџџX џџџџ  џџџџЈ џџџџА џџџџИ џџџџР џџџџШ @ўџ@ (ўџџ џџ џџџџИ џџџџ№ џџџџј џџџџ џџџџ џџџџ џџџџ џџџџ џџџџ( џџџџ0 @ўџˆ ўџџ џџ џџџџ@ўџp ўџџ џџ џџ@ўџ˜ј§џ џџ џџ@ўџџџџџш§џџ џџ џџџџи „fџџџџxџџџР€ј˜0"Mesџџџџx џџџџа HџџџџИ€0џџџџ0 ИшˆјЈ№Р џџџџ` x џџџџи џџџџџџџџџџџџџџџџџџџџџџџџX џџџџџџџџџџџџџџџџџџџџџџџџџџџџР H ``„l ˆўџџџџџџџџ@ўџри§џџ џџ `„n pўџџ џџџџџџ „fџџџџxџџџ˜€џџџџ@ўџџџџџШ§џ џџ џџPр0џџ џџ@ўџџџџџЦ§џџџџ џџџџ „fџџџџxџџџ €џџ „fџџџџxџџџ €џџџџџџр3џџ џџШ „fџџџџxџџџ`€џџџџ8 џџџџ€џџџџˆџџџџџџџџ˜џџџџ џџџџЈџџџџАџџџџИX$џџџ џџџџџџ „fџџџџxџџџ8€џџџџ`„дИ„ўџџџџЈ `„иџџџџ‚ўџџџџџџџџ`„œџџџџ џџџ џџџџџџ „fџџџџxџџџи€џџ˜( џџџџџ˜2$œv4џџџџџџџџˆ``џџџ џџ `„дTџџџџџ`„МфўџџџџА џџџ џџ  џџџџ(џџџџџџџџџџџџџџџџџџџџ џџџџ(џџџџ0џџџџ8џџџџ@џџџџHџџџџPhшР pџџџџx P( џџџџџџџџџџџџџџџџџџџџџџџџ№0Ј pшџџџџиаџџџџpџџџџ џџџџџџџџџџџџјPШXџџџџџџџџˆџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPh џџџџ˜џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџX ќўџџ џџ  р(ьўџџ џџ X@ўџмўџџ џџ џџџџpв8џџџџџџџџџџ˜акўџџџџ џџџџ@ўџШўџџ џџ џџџџ@ўџИўџ џџ №@ўџДўџџџџ p@ўџАўџџџ ˜XЌўџџџџ џџџџ@ўџœўџџ џџ џџџџ@ўџŒўџџ џџ џџџџ@ўџ|ўџџ џџ џџџџр˜И€˜џџџџ0 Иш јh№р џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџјhИџџ џџ˜lџџџ џџ џџ џџўџа0ўџџ џџ ( ўџџ џџ @ўџўџџ џџ џџџџ4vвм0 џџp ўџџџџ џџ@ўџўџџ џџ џџ@ўџј§џџ џџ @ўџш§џџ џџ @ўџи§џџ џџ 0џџ џџPШ§џ џџ џџ@ўџ` џџHИ§џџ џџ џџ@ўџЈ§џџ џџ @ўџ˜§џџ џџ H@„Bўџџ џџџџџџЂўџџ џџА @„D€ўџџ џџџџџџ@„Fpўџџ џџ`„Llўџџџџџџџџh0ˆ§џџ џџ @ўџx§џџ џџ јџџџџh џџџџPџџџџX0И$š8џџ pxv§џџџџ ј@d§џџ џџ џџј(T§џџ џџ @ўџD§џџ џџ џџџџ@ўџ4§џџ џџ pџџџџ‚tќџџџ ИDџџџџџ @@ўџ4џџџ џџ @ўџ$џџџ џџ   cаџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0џџџџ(џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(џџџџ@аpџџџџаxџџџџџPџџџџxџџ џџаvџџџџџ џџџџџџџџ@ўџџџџ џџ (аџџџ џџ @ўџєўџџ џџ  @„zшўџџ џџџџџџ@„dиўџџ џџџџ@„ІШўџџ џџџџ€џџџџ €@Иўџџ џџ@„Јўџџ џџ`„АЄўџџџџџџџџр№Xфўџџ џџ @ўџдўџџ џџ №Фўџџ џџ @ўџДўџџ џџ џџџџџџџџра0Єўџџ џџ @ўџ”ўџџ џџ pџџџџАџџџџ(џџџџ0џџџџ8џџџџ@џџџџHџџџџPџџџџXџџџџ`џџџџhџџџџpџџџџxџџџџ€џџџџˆџџџџџџџџ˜џџџџ џџџџЈџџџџАџџџџИџџџџРXPџџџџџџџџˆџџџџ8џџџџџџџџџџџџи ` џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџXА„ўџџ џџ џџX˜tўџџ џџ џџX€$§џ џџ џџџџch @§џџ џџ X@ўџ§џџ џџ А@ўџєќџџ џџ џџџџАhџџџџџџРˆфќџџ џџџџџџ@ўџдќџџ џџ (@ўџФќџџ џџ @ўџДќџџ џџ @ўџЄќџџ џџ @ўџ ќџџџџ иˆPјœќџџџ џџџџшˆџџ џџ‹ъ Œќџџ џџ X џџџџpџџџџ(џџџџ0џџџџ8џџџџ@џџџџH џџџџџ@џџџџhџџџџpџџџџxџџџџ€џџџџˆџџџџџџџџ№|ќџ џџ џџџџ  џџџџШ0 pшhј И(шXџџџџРи8џџџџАрџџџџџџџџџџџџџџџџџџџџџџџџШџџџџџџџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџ˜џџџџџџџџџџџџџџџџџџџџџџџџ@ўџ`ќџџ џџ џџџџ №џџџџРpџџџџџџџџppџџџџџџџџрИ`4џџџџџџџџџџџџџџџџџџџџџџ АS–ѓB*\R8003*#5d$*\Rffff*0?433e7053*\R1*#175*\R0*#e*\R0*#1ш 2H @ АˆD$ и06&"xЈ 6№!6 (Ј0BˆVиH`€ ЈИ€ џџџџ€ BH€ џџџџ€ џџџџ8 "Аœр,% und jetzt rekursiv durch alle Ebenen .B@0р4 erst Blatt leeren, dann ,B@Hр4 Excellblatt aktivieren–рM3 rekursive Routine, die alle Komponenten durchlфuft]ђшђ  <!X'@р4D schauen, ob's ein Subassy ist und ggf. ќber die Kinder rќberschauenom]ђX]ђp]ђˆ]ђ эЖSldWorks.Application$$.э !&. Ќ 'р4. dann fќr die Ausgabe nфchste Zeile vorbelegenэ %(. э %*."]ђH]ђpђˆђ ђИzфhlerЖA3$2B@HЖB3$2B@HЖKomponentenname 4(6ЖC3$2B@HЌ'р,* Zeilenzфhler zur Ausgabe in TabellenblattkџџЈoџџ ]ђˆ]ђИЖB $2B@H :Ќœ(6ЖC $2B@HрEnd Sub2 !x'vnschdkџџ @‘Ќ 'Dџ >ўЌ DЌ ’э >$@.B :Ќ BA@8џ >ўШiџџР–№р&< aus aktiver SolidWorks- Baugruppe alle Komponenten auslesenЖA $2B@Hр!O in Excelblatt die aktuelle Baugruppenebene, den Komponentennamen eintragen ...џџџџшџџџџрC Makro liest Baugruppe aus und zeigt Stќcklisteninformationen an. d'Šр< Lфnge der BenennungrtieрS Vorlage Stefan Berlitz, angepaпt von Lutz Federbusch Theegarten-Pactec 2004Ќ "A@8р,4 Level gibt Strukturtiefe an; 1=nur oberste BG-Ebeneџџџџp :Ќ œF rџџџџџџџџШџџџџ0џџџџh :Ќ›G : 4(6je + ŠЌ ›GЖ... 'djр< falls leerџџџџhџџџџ€џџџџ џџџџ џџџџ8 џџџџ џџџџџџџџџџџџ ]ђРр4 Zeilenzфhler4(]ђЈђ0ђHB@HЖ Benennung 4(6э <%R.Fр< ModelDoc der Komponente holena beЖЖ BENENNUNG F%p'dр< Benennung aus Dateiinfo holen< dр<Private Sub Worksheet_SelectionChange(ByVal Target As Range)џџџџџџшџџџџ џџџџH ЖA1$2B@HD Ж Stќckliste 4(6ЖB1$2B@HџџџџP Жfќr Baugruppe v  4(6џџџџ џџџџр kр level>1џџџџh џџџџр џџџџ€ ]Ќђ џџџџ –0oџџџџ( A@œ|џџџџP џџџџ( џџџџp џџџџш A@œ|kЖGBitte das Makro ausfќhren, wenn eine Baugruppe das aktive Dokument ist.  Ж#Keine Baugruppe - keine Stќckliste! A@‚џџџџ` kџџџџР !’ ˜œр4 Baugruppe? Аœр4leer?џџџџШ џџџџ џџџџИ џџџџј ЖBG-Ebene 4(6џџџџXџџџџ џџџџ(џџџџ џџџџhџџџџxџџџџhџџџџˆџџџџ€ <А <!N›Gzj'џџџџ0џџџџџџџџАџџџџ џџџџЈџџџџ€џџџџџџџџиџџџџџџџџРџџџџр]ЌђџџџџЈџџџџ8џџџџ8џџџџрџџџџџџџџ`џџџџ€џџџџpџџџџ(џџџџ˜џџџџЈџџџџаџџџџЈџџџџИџџџџXџџџџЈџџџџ€џџџџ€Ж'  F!x 4(6џџџџ џџџџшџџџџџџџџ˜џџџџ`џџџџР]ђаџџџџР]ђјd]ђџџџџРЖ .  'џ ўШd 'kџџџџџџџџXџџџџ˜џ ўЌ :Ќ ’џџџџ :Ќ œр<$ Teile von Unterbaugruppen einrќckenџџџџpџџџџ џџџџ џџџџHџџџџ`џџџџxџџџџ˜џџџџџџџџиџџџџџџџџШџџџџаџџџџиџџџџрџџџџрџџџџ№џџџџјџџџџјџџџџPџџџџXџџџџHџџџџ€џџџџxџџџџ џџџџШџџџџ`џџџџАџџџџРџџџџџџџџИџџџџ`џџџџШџџџџАџџџџ0џџџџhџџџџ8 џџџџ0 џџџџИџџџџИ џџџџШ џџџџи џџџџP џџџџ!џџџџИ!џџџџ˜"џџџџ@"џџџџЈ"]ђИђђ8ђ№ђшђ0 usџџџџр"џџџџ#џџџџx#џџџџ#џџџџ$џџџџ]ђ€]ђАџџџџ@"џџџџp$џџџџА"џџџџш&џџџџ&џџџџШ'џџџџР' d 4(6р< Benennung ausfќllenџџџџ(џџџџ@(џџџџH)џџџџ`)џџџџ˜)]ђ(џџџџА(џџџџЈ+џџџџ-џџџџ -џџџџ(-џџџџp-џџџџ-џџџџ€-џџџџ`-џџџџ€-џџџџР-џџџџ џџџџ€-џџџџ-џџџџh.џџџџX.џџџџџџџџ(.џџџџи.џџџџ/џџџџh.џџџџ/џџџџј/џџџџџџџџ 0џџџџ 0џџџџ(0џџџџh0џџџџ№0џџџџˆ0џџџџЈ0џџџџџџџџ 0џџџџ˜0џџџџX0џџџџ˜1џџџџа1џџџџШ1]ђx ђpђЖAnfang'вamkр - Jetziges Model heiпt anders als das davor...мџџџџА1џџџџј1џџџџh2џџџџ`2џџџџр2џџџџ(2 в F!XœџџџџР3џџџџ F!X'вр4 Letzten Namen merkenџџџџШ3џџџџ№2џџџџ5џџџџ№4ЖC $2B@Hџџџџ5џџџџш5Ж..... II ..... 4(6џџџџа5З %'рD reduzierte Dateien nachladen("L4џџџџ85џџџџx6џџџџ6џџџџ`6џџџџр6џџџџа6џџџџш6џџџџи6џџџџИ5џџџџx8џџџџh8џџџџ€8џџџџH8џџџџр7џџџџа9џџџџР9џџџџш9џџџџx9џџџџ(:џџџџ0:џџџџ`:џџџџP:џџџџ :џџџџˆ(џџџџйЗAttribute VB_Name = "Tabelle2"  јBas|0{00020820-; C$0046} |Glob„alШSpac’ False dCr@eatablP€redeclaDId­Tru BE xposeTemplateDeriv$’Bust0omizD2Co ntrol—CommandBut@ton1, 0, MSForms, Š' Makro liest Baugruppe aus und zeigt Stќcklisteninf€%ationen an.  "Vorlage€efan B€erlitz,gepaпt von Lutz Fšrbusch> Theegar,-Pacte c2Рl DimA@_As In`tegerA й' Zeilenz фhlerУBGСy, letzt РSРšng P@^@` Sub G1_Click()'‚Cakt€ir SolidРWorks- L€Љр KompСE€3 €lesen AA3swAppAO bjectAssemblyDoc‘РwfigurУ]Root€vƒСnstat@t@>ярщ5РgТ'&wПЗХD=Љ.ResolveAllLiPghtW ‚hЧMsЮ(‚–фd@ЁuzР> И Dрji@„nachЈladAt mnZпЋ @ƒ/@D‡(ш5Ћ]§ =oЈ A% %У€\уШ=т*itl ЖС1ф`X.сЅulaR1єC1@"чŸ€ІAЅP3ЌPWBG-Ebшene Beh‹Жn уыCџхB€МnnрP$ М"м3сxkЋ zur Ausgє in =ѕnЂcXЎљAnнРТgD [рg 9j '"hj[ rekursiv duzr caсVV‘ Tшrav`CeЗP№o[ ' Level gibqmruk€turtief0o@n; 1=n€ oђbбGe E :qyc QcЊ=Х&СMsgBox ("Bitр0das #Ѓv ufќhQ, wenn ein–wЃf Dok@ument w." + vbCr$Lf€"K\- vk—*!1NІ …nFмun MАxО(s bОIУvт‚=ev>гe@„ut , diCMpТlфufиnChildCount, ipy, Tрextlфp]pGЅ~#asђтMassPro2tVarianmнuModЬel@SПm BJŒm `›aDou№ŸЗђс7C , Di€chtewerР TВ‡ummer, ZusaReЦf“LсStr@cч†r@—гm, kpLdatm nuКmCsб'|R…uр0ѓŠ}Qda‘”ёп2ъААv’€PА˜On1#Sр:('5w:) Or —.isАSupp0 Џ)“qџВf5'гz&б[$“СXOuc—Q47' Vdу чP ho ŸУuYИ" &УЃE‚q'J?BŠRJ+р?_8neŸaZ№,Аk 2ЃQ?]'р=0ЙРUErіbЅNтrХЕeаw– сЬoфZ- €Љ‡iБ7 . ! —ЗQNаE l7}1QIt–ё?4ф+џ†'ќ‚‡xй`Gpр!У,qPathб8b/Ч ЁP@™CрIn@foValuАЏ", "BENENРNUNG") m6}ПQЧCMqк™1‘wV=`ќn(ё]С?№r~ф‘Y17fї W1/‚Аc-ƒ+ 1 ' 'Qnn fќr die Ausgabe nфch ste Zи €_ bйgАChildrI= Comtpo€Уta† Œ2' schauen, ob's ein Subassy ist u€Sggf. ќb’eУ!KiСP rФУ7‚CountI9UBd(…)N Р;ƒ €‘ i@00 To  - 1)ƒС(Set 'B€ E(iTr”avРre†9 LA[-,CNЊi Ђ СdFunРГoЃ 'PrivaR€; Works heet_РionChBЧByVa@l Targ$A|s BЌ€!A Щ)QџџџџйLyaЁџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ TС Ј§џџ`Сџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€EyЯO˜Ldџ! аdџў ыdџ!dџѕ $ Аdџў˜dџ#dџ'Dџ%:Tџ%! dџў ыdџѕ4џ  4џќ4ќјxџ54џxџW4џќ4ќјtџ54џ ltџќcћвІ( tџW4џ (Tџ]ћ@54џЪ( ќfTџ%tџўš4џ ќ"qhџ54џtџW4џ ќ4ќјpџ54џpџW4џ ќ4ќјlџ54џtџW4џ§†854џ!:Tџ%dџ$ (dџ,dџ#dџ'Dџ%:Tџ%! dџў ыdџ!:Tџ%dџ$ (dџ,dџ#dџ'Dџ%:Tџ%! dџў ыdџ!:Tџ%dџ$ (dџ,dџ#dџ'Dџ%:Tџ%! dџў ыdџ!:Tџ%dџ$ (dџ,dџ єŽ4 §‘H llџќcћвУE4џlџє+"џ0 54џ\L4tџlџxџpџdџ4џ$џ€<4'џ'(џ'Hџѕ*#xџ*Fhџ /xџ6hџHџ(џџ0)t<$ xџhџHџ(џџ4˜џ.%€ќcћв§ј`ўHWPўћ@ўџ6`ўPў1џ/HWPўќ4ќјџ5Pў68ў'`ў%‰4ћ§#<ў*FPў%! 8ўў ы/<ў8ў5Pў  єЫЇ" D`ў%8ў$ (8ў,8ў68ў'`ў%‰4ћ§#<ў*FPў%! 8ўў ы/<ў8ў5Pў  єЦ<#8ў'(ў%:`ў%! 8ўў ы8ў.:`ў 8ћ”Pў%8ў$ (8ў,8ў5PўО :`ў!§Дў  єкŠ(ў<џ є­D(ўўhј§Š:`ў"Дўћ”PўќіДў <џў~ј§m2ДўџWPўћ”@ў%8ў$ (8ў,8ў6Pў@ў  єкјŠHF`ў]џWPў#ћ@5Pў‚:`ў!%:ў$%џўšPў%ќіфў фўћыPўUp:џ k:џєа' :`ў&§фў68ў'`ў%'‰4ћ§#<ў*FPў%! 8ўў ы/<ў8ў5Pў"фў§“ @8ў$ (8ў,8ўл68ў'`ў%'‰4ћ§#<ў*FPў%! 8ўў ы/<ў8ў5Pў!:`ў(%8ў$ (8ў,8ўџWPў#`#<ў§‘H/<ў5Pў‰4єЉŽ4HWPў)ќі(џ(џќ5IєќЫѕЊ§i`ўќі\џ(ўLџ\џ(`ўћœPўўhШ§ŽLџ§“ @(џўЎPўќ4ќјџ5PўPўџ єЉ+Ц§0 5Pў Lџў~Ш§Oџ/t4И˜€hlџўј§и§Ш§ŒўдўLџ<џўАўєў\џДўџџ ў џФўфўpўџ(џ<ў8ўPў@ўP T1rU€€€ џџџџџџџџ`$Й`,џџџџџџџџ$љ`)џџџџџџџџџџ09` 0џџџџџџџџџџщџџџџ&;/ Ёџџџџ@ЩPnDieseArbeitsmappe$џџџџџџџџџџџџ0”_VBA_PROJECTџџџџEdirџџџџџџџџџџџџC__SRP_0 џџџџP4 Dфr€дз%/џџ#ˆЖџџџџџџџџ<џџквtЉСАJˆk;*ЯРF#l|ЧsgJЛЉ6IY/џџџџџџџџџџџџx#l|ЧsgJЛЉ6IY/квtЉСАJˆk;*ЯџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ6"џџџџџџN0{00020819-0000-0000-C000-000000000046}џџџџЈ€ўџџџџџџџ(џџџџџџџџџџ%џџџџHџџџџ@ƒўџџџџџџџhџџџџџџџџџџџџџџ %‚ Zџџџџўџџџ˜џџўџџџџџџџџџџџ %џџџџXџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџp@@˜˜џџџџџџџџџџџџџџџџџџџџџџ0S–ѓB$*\Rffff*034194eee6пџџџџ4ўЪџџџџџџџџxџџџџЖАAttribute VB_Name = "DieseArbeitsmappe" "  Bas 0{00020819ъ-0C$ 0046} |GlobalкSpa‚cIFalse dCreatablPredeclaIdЖTru BExposeTemplate`Deriv’BuРstomizD2Г€0* pH‚dф VBAProjeˆct4@j = r S–ѓB” 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$3€DD452EE1-E08F-101A-8-02608€C4D0BB4 DNT\System32\FM20.DLSendMsgToUserЏ swDocAssembly…n€џџџ_B_var_swDocAssembly#B FehlermeldungјMaterialvergleichЏ› €џџџ_B_var_subН’Dichtemн€џџџ_B_var_Function™O DichtewertP€џџџ_B_var_DichtewertК‹Leistung€|BonusѕП Einkommenk MaterialЖЏWasserрy€џџџ_B_var_Material?‡stahlD €џџџ_B_var_caseГк AluminiumъСWert0w‚Name1ЌПBronze6Wert1x‚Name2­ПGrauguss~Wert2y‚Name3ЎП HartgummiWert3z‚Name4ЏП HartmetallхЙWert4{‚Name5АП HartpapiereЩWert5|‚Name6БПHolzŒ›KieferгњWert6}‚Name7ВП Kunststoffњ‹Wert7~‚Name8ГПKupferўOWert8‚Name9ДПMessing-!Wert9€‚Name10˜дWert10KўName11™джlŒ^Wert11LўMaterialvergleichvergleich0CLongє €џџџ_B_var_CLong Щsw*_€џџџ_B_var_swDocPart’G Teilenummer}И GesamtmasseSsBStrо €џџџ_B_var_BStrJunstatus ŽResolveAllLightWeightComponentsSo€џџџ_B_var_nStatus‚lc €џџџ_B_var_ForjLZusatzјм€џInterior;ф €џColorIndexгу€џPatterniа€џxlSolid7nMasseЯOLeerО{ €џџџ_B_var_Leer*сVolumenZм €џџџ_B_var_UBoundлdIsEmpty љCommandButton2}дCommandButton2_ClickєљStahlComponentqSetUserPreferenceDoubleValueє?swMaterialPropertyDensity Cdensity" €џџџ_B_var_Part`фvbYesNoMldg›fStil4Titelі}Hilfei|KtxtйAntwortjText1Г~ vbCritical+}vbDefaultButton2ДСvbYesa? Aktuellerqy GetPathNameФNDERN!( Fehlercode+6 Konfigtest 5FehlerОВswCompП RefConfigL€џџџ_B_var_Fehlercode•Є€џџџ_B_var_Component>,€џџџ_B_var_KonfigtestsЃ numConfigsГ`„џNamesЮПGetConfigurationCountYцGetConfigurationNamesИ/€џMessageŸѕThenFehlercode4CommandButton3~д Fehlercodes+ЅFehlercodes_ClickIнMeldunggъгMeldungћЮStl‘еSt(_ilЎ]€џџџ_B_var_AntwortюDateieigenschaftenJћfќr7 ZeichnungsZ?bzw{ €џџџ_B_var_bzwЁ8und]п €џџџ_B_var_Stil€™GetpathTЩProblemqІDateiь1OpenDocВЈPfad,—PartNameCбBlockerstellung€J FileExistsЌ€џџџ_B_var_Blockerstellung4 €џџџ_B_var_Pfad˜ќkonfdatа„€џџџ_B_var_konfdatTˆkondatэM €џџџ_B_var_kondat–Ш €џџџ_B_var_whileIfrestnameLшrestЙ €џџџ_B_var_rest%…posдФpg€џџџ_B_var_pЂRight  _B_var_Right9йEs!]gibt`ДEin‰left1Dmd€џџџ_B_var_m Ђ letztName‹Esuch‹8 €џџџ_B_var_suchїdaъ\ €џџџ_B_var_da’ё €џWorksheetsМј€џSortЌKey1OИProblemepљ€џ_DefaultjТ €џџџ_B_var_Key1|Sort1y…Sort2z…Sort3{…Sort4|…nochmalBТ durchreichenь џџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџ џџџџџџџџџџџџ[ џџџџџџџџџџџџ $Ьamџ фњ*\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.3#0#C:\Programme\Microsoft Office\Office\EXCEL9.OLB#Microsoft Excel 9.0 Object LibraryИ*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\SYSTEM\StdOle2.Tlb#OLE Automationк*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINNT\System32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{93EE9301-3DB6-48A5-BD83-AAF1A0091422}#2.0#0#C:\DOKUME~1\LutzF\LOKALE~1\Temp\Excel8.0\MSForms.exd#Microsoft Forms 2.0 Object Libraryс.E р….`ŒM Д*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.1#0#C:\PROGRAMME\MICROSOFT OFFICE\OFFICE\MSO97.DLL#Microsoft Office 8.0 Object Library  џџџџџџS–ѓBџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџзTabelle20?433e7053џџTabelle2џџˆ˜;џџ"DieseArbeitsmappe034194eee6џџ["DieseArbeitsmappeџџ%/кџџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЧccЏJјJNЏˆŸ ЁД!‘џџџџ(Ќ[ViEOŠžЌ…К#ƒGџџџџџџџџH€љџ\J €џAs€џBoolean€џCase"€џConst=„џDimD€џElseF€џemptyH€џendifQ€џF_€џIfk€џIsx€џLong…€џNot†€џNothing‡€џNullЄ€џSetЏ€џSubБ„џTextВ€џThenГ€џToД€џtrueН€џwendО€џwhile Excel€+ VBAїтWin16С~Win32MacГВVBA6­# VBAProjectОПstdole“`MSFormsCOfficeu Tabelle2SŠ €џ_Evaluateйzeileљ˜CommandButton1_ClickфСswAppы‘ AssemblyDoc“‰ ConfigurationŸњ RootComponentй  CreateObjectјŠ ActiveDocк’GetActiveConfigurationUџGetRootComponentЫDCells SelectionZЎ ClearContents{м„џRangeк  ActiveCellНЗ FormulaR1C1STraverseComponent_LevelФт Componentљ"i`Children>дChildЮ ChildCountW›ModelDoc ї ConfigName–ПMassPropn:retЮ isSuppressed2ReferencedConfigurationн  GetModelDocљShowConfiguration]ЗGetMassPropertiesW GetChildren6ж DieseArbeitsmappeЏCommandButton1|дWorkbookk WorksheetСў€џClickŠуWorksheet_SelectionChangeб4TargetЌF€џSelectionChangeуn €џџџ_B_var_ifPђretvalЭ; ModelDoc2Ї^GetCustomInfoValueЉ‰ FieldName‹ Objektnummerf BGName;фGetTitle- DateinameOPartє~KonfigurationsNameе|ObjektNummerlфnge…ОMsgBox—R _B_var_LeftQсStr—е _B_var_StrЈ’ TextlфngebY €џџџ_B_var_Set €џџџ_B_var_EndоFvbCrLfЏЌGetType)J swDocPartЮM L#Mic€rosoft ‚9" €\ ObЌ Library/њ;C1€„sˆAˆ00}#0‚#G€j0Ѕ‡РA93EE9301-3DB6-48A5-BD83-AAF1A0@0914226DOKUME~1\LutzF\LOKALTemp\Excel8.„0\„T.exd <@"€с.E р….`ŒM Д ƒŠOffi c„ŠO€‡fijc‚ŠŒР ‚Р22DF8D04C-P5BFAAhB2E 5€JAР144DE5 2PROGRAMME\MICROSOFT OF FICE\„MSиO97Lmƒ" Р8Œm‹!€‚ЭТ з@TaˆbelРЁGAPab@/l‚Л2TЪ2вР THB1‚е˜@‰‹B,Тˆ"B"+BРDieseArbeitsmappeG* D€Pe\eЈArТi`psР]hap eРв2‡пТ/к- %/)Ё#“K*mџџџџrU€€€€~~~~~~~~~~~^  "ШИиO~-C™ е{МŒ фџџџџƒŠa  џџџџЙсџџЙ џџџџџџџџџџџџйЩЩЉ‰Tabelle2DieseArbeitsmappe VBAProjectяРF /C:\PROGRA~1\GEMEIN~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA )џџџџ QЙ`РF /C:\Programme\Microsoft Office\Office\EXCEL9.OLBExcel !џџџџIБp0РFC:\WINDOWS\SYSTEM\StdOle2.Tlbstdole !џџџџI‘€с.E р….`ŒM ДC:\WINNT\System32\FM20.DLLMSForms  1q“ю“Ж=ЅHНƒЊё  "4C:\DOKUME~1\LutzF\LOKALE~1\Temp\Excel8.0\MSForms.exd с  q Lај-њ[НхЊDоR .C:\PROGRAMME\MICROSOFT OFFICE\OFFICE\MSO97.DLLOffice йџџџџiАиРFЦЛЫ‹^ЬMЏъu|Ъ_ РFŽЙA:'1еAІ:K•г… жDРF WorksheetС{lЏЮŸFЊWJOCommandButton1@2зiЮЭЇwнResolveAllLightWeightComponents ,GetActiveConfiguration    GetRootComponentGetTitle Stќckliste A3 BG-Ebene B3 Komponentenname C3 Benennung AnfangQ РVBE6.DLL 1џџџџЬ а% ŽBitte das Makro ausfќhren, wenn eine Baugruppe das aktive Dokument ist. FKeine Baugruppe - keine Stќckliste! 1џџџџS №isSuppressedGetModelDoc A B B1 fќr Baugruppe    . GetPathName BENENNUNG $GetCustomInfoValue ...  C ..... II .....GetChildrenrU€€€€~~~y џџџџџџџџџџџџ џџџџ Щy 1CommandButton1 Y(__SRP_1џџџџџџџџџџџџ}оPROJECTwmџџџџџџџџџџџџSPROJECT џџџџƒSummaryInformation(џџџџŒўџџџ‚ўџџџ„…†‡ˆ‰Š‹ўџџџŽўџџџ’“”•ўџџџ—ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџLevel Component\DieseArbeitsmappeDieseArbeitsmappeTabelle2Tabelle2ID="{514D7F31-17E4-4FD5-B48D-BE30B0D25459}" Document=DieseArbeitsmappe/&H00000000 Document=Tabelle2/&H00000000 Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="96944C8AD48ABC8EBC8EBC8EBC8E" DPB="7A78A0B685B785B785" GC="5E5C84D28C52715371538E" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 &H00000002={00020818-0000-0000-C000-000000000046};Excel8.0;&H00000000 [Workspace] DieseArbeitsmappe=0, 0, 0, 0, C Tabelle2=76, 76, 1136, 756, Z ўџр…ŸђљOhЋ‘+'Гй0дHPl„œ Д РЬфStќcklistenMakroeLutz FederbuschLutz FederbuschMicrosoft Excel@ЋFиЇР@€АlйѓФўџеЭеœ.“—+,љЎ0и PXt |„Œ” œ БфTheegarten-Pactec э  Tabelle1 Arbeitsblфtterўџ џџџџ РFMicrosoft Excel-ArbeitsblattBiff8Excel.Sheet.8є9ВqDocumentSummaryInformation8џџџџџџџџџџџџ‘CompObjџџџџџџџџџџџџ–iџџџџџџџџџџџџџџџџџџџџџџџџ