ࡱ>  P43*!"#$%&'()+,-./012:56789EI<=>?@ABCDFGHJMKLR^OQS]VWXYZ[\N_j`acdefghiTRoot Entry F&HĈ{ƹ&Workbook'_VBA_PROJECT_CUR"1R|PR|Ctls  Fɀ\pNiki Ba=DieseArbeitsmappe=xiL;"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\ _ _-;_-* "-"??\ _ _-;_-@_-                + )  , *   " "   `Tabelle1p%Tabelle2&Tabelle311Tot"4fQW\ZS`@=4fQW\ZS` x\axڵVkSA$//414- BO؂@X4;x`xң⥷y{=V8o6o""[~owvSykDw$.O^Hu׀hR`BC\t".sZ7$)CD!/Q8&i[ }Ci^C\!3oFF,oX .ӳ Tt)u=֚jV{V*X׭7N gEeD"[~WB*#h؆h -df;BnV,Ϡ,'R E:Al6C!T7easaD\.'AE,h]TcC]6%Cs7*Уǐ zFl7z\}F:_j]ߌfqXmg}e<:4*9&pmԫNC>C:QzXnW7}u3@0Ӑ_߆ =KWJ/WY>?螈D`,RzMMU ڃd 1',O?#@1[.(ύEI1jǢ8KrA_"%w%1>۳ '#>}&זk![m@жv/?es?Y8RrI-I1gu:a9>jn zܜQn,AŤqۛ4ަo6$$$$"Bt;إ /@=Bt;إ / x\xڵ;LSQRJh)B t a*,h>R"4#0hD\pr11¤s߹}#X;Wm6>jį _RpPP,^ !u3CҒ<Ԣda5,HI!,,ajr$˟CZ$ (!Tf@Ԛ>4!N*f(JKҐkE55Ԯ,%MːkQLsAz׌ɉVaBR΄ ͕Pl0 Is-E1r:eI<;yJmD`叅5xƱ'2_ThSv|:#KKvv6RsCV.RBE(-iBm@QtڤCLUd;15&nqZg;-B>_WTMG";s ʾ&faReIn5ۻpphg7RYϽ !K:قϖwZ=nteS6p] }_]D$kQeي@Dx8XXŽZJ za~*}i@   ~ D@   ~ B@   ~ F@   ~ A@   ~ E@    ~ I@   !~ @   "~ ?   #~ @   $~ ?   %F@     "#$%&'()*+,-./01235679;<=>?@ABCDEFGHIJKLNOPRTUVWXYZ[\]^_`abcdefghikmopqrstuvwxyz{}~@2iw@7 Tabelle1 Fɀ (&  dMbP?_*+%"<~?<~?1U >@7 Tabelle2 Fɀ >'  dMbP?_*+%"<~?<~?1U >@7 Tabelle3 VBA 1R|ڴR|Tabelle1 3__SRP_2;__SRP_3  6 ' 6@ "  X   6h 9 6 !   6 *N  6( !@ P 6X 0p 6 !         6x+#  "8     @xH   X     :$ (   &0 H    B 8 !H#X!h #  "h #0!H #`!x#! 8    HX(     ( 8    &  %  6H '` 6p "    X  h  6  9  6  !X  p  6  *N  6@  !    6  0(  6h  !  `    8  6+#    Globale Variable]`" Zeilenzhler fr Ausgabe im Blatt(]x]]h]3 an SolidWorks anklinken und aktives Assembly holen@SldWorks.Application$0.(- (!2.JA2$>B@H ; erst Blatt leeren, dann Spaltenbeschriftung im Excel-Blatt 8B@H :B@<{A3$>B@H Dimension @(B@B3$>B@HValue @(B@(B'&* Zeilenzhler zur Ausgabe in TabellenblattoPC3$>B@HFeature @(BP p!Z.VC]] ] J.p :!B@A@ V!b.^ub ^b`ex @ ^!d.`>A &$>B@H V! @(BRT V!r.VxB &$>B@H `!' C &$>B@H  `%h @(BD &$>B@Hmm @(BRTC &$>B@H `%hh  @(B AssemD &$>B@HGrad @(BRTC &$>B@H `%h @(BenD &$>B@HStck @(BC78D2Dn & '& ^ V%.^B@H Vb(BH ( ] V!'vate ProfileFeature)]p]]](]@]X]3 an SolidWorks anklinken und aktives Assembly holen(0SldWorks.Application$0.(@ (!2.Jen J.pltenbe 8B@H im E^Ba)ЇcP&;@LW9a F譁>*3Bu>\x,CommandButton1, 1, 0, MSForms, CommandButton,CommandButton3, 3, 2, MSForms, CommandButton譁>*3Bu>\&;@LW9aME,[LSSs>"L<0<4<8<<<N0{00020820-0000-0000-C000-000000000046}px (% %*HDH0@F,DT! @ %`(x e?i X% % $`PkThh`Vl `^d ``` `(8H `pp @P @`L8@< @f, i i `(x (@ @ OGW`\h pY`Jxt GW@ ` xPX@ H`@ `08:>@&@@ @ @ @ *8<h@`Jt `pp ` `LkeXuul`(`\h `^d H``` @P `vX`Vl b`E`XL@< @ @HPb&4@@h8(h(`p@p @f, @ X (@ @ p`@@ @@ @ @X @p @` @P (p@p(0 X @ ( 08:>@& )h p x @ @ @ @ @ @p @  ( @ @ @ | (@ l   $x @\ @L h( h (`8HT\< BWJI*\R8004*#5d$*\Rffff*DI494a96ad*\R0*#f*\R1*#df*\R1*#285*\R1*#1b0*\R0*#14&*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\Programme\Gemeinsame Dateien\Microsoft Shared\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*#fH<@8H 0 "H  PX`h`h  @  `   :p$   p &   B H !X#!0 #H  " #h!(#!#! 8  P          &  % x :B@<A2$>B@HA2:C &$>B@H0A2:A2$>B@HK@`h; erst Blatt leeren, dann Spaltenbeschriftung im Excel-BlattB@HA3$>B@HFeature @(B(B3$>B@H Dimension @(BC3$>B@H0Value @(Br zur '&* Zeilenzhler zur Ausgabe in Tabellenblatt p!Z.V Vb swD V!b.^in ^b$> ^!d.`A &$>B@H V! @(BB &$>B@H & '& ^ V%.^8 V!r.V A2:D &$>B@HHp :!B@A2:A2$>B@Hodk(]p nRTRT `!'C &$>B@HC &$>B@H `%h @(BRTC &$>B@HGrad @(BD &$>B@H `%h @(BD &$>B@Hmm @(BD &$>B@HStck @(B= "GraX]F,DT! @hC `%hh  @(BhC  $' J!R' \$'   ']((  @(B( `!f'f4 f@$']m ]h)  @(BXi} ]0]Xp f  $' ](@ 8] J!R' \$'   '  $'w  @(B P `!f'f} f@$'w f  $'  @(B Dateiname: @(BB2$>B@H@ Dateiname: @(BζB2$>B@H0'8yx @6Attribute VB_Name = "Tabelle1"  Bas|0{00020820-; C$0046} |GlobalSpac False dCr@eatablPredeclaDIdTru BE xposeTemplateDeriv$Bust0omizD2Co ntrolCommandBut@ton1, 0, MSForm8s,  #3, 2#' ariT Di m zeiAs Integer ' Z nzhlfr Ausg BCt !st PDi Dou_3.1415926535897  P@M@O Sub 61_Click() D%swAppObjec ModelPartSFS&DispA9"AType,+SngC9! PathA, Ful¸, ShortdC Trennz, laengePfad LoosEt3G^' an SolidWorks@klinken und ak ts@ sembly holen!#Set 6= Bre&("Sl . : >ationZ"> #:=.Ac Doc ";?!b#%)ksw.Getc&% In`1Rev(aE, "\(= Len) -6  Fd4` Right `W0' er@fg lee@7, dan.paltenbeschriftung!mExce,l-m!Cs.8Sel&bc*.ClearentsRa`B("A2"), .!ulaR1C1"D uin:{!DB_D"+3?$gure&imens!L*C?%Valucc= 4 "lzuhn nbc!(C\,swY8.FiADo WhJ NoiIshi%z#! c %ac_" lay~"1L m ?"'%Om.kPK0;e;~@;@rRa;ft(S- 1$G{u2" &p21o3$#swq3e("B!ou 4 K "f?!KSB C = 0ۋC  eE]D System52("") * 1DymmCg1ok oe360 / (2Pi8(! _^5 _T"Grad '2/xPS"o? ooaStck_p Ep.{'^s+ "OXEX0NextQ9X(swR LoopKCSrsM2:-olumns.AutoFi^ub1$3R 4%Ͽ1_"A?mSub q  XϿϿgjϿϿ ƨϿ! oϿId2' ,an SolidWorks anklinken und aktives Assembly hol en Set swApp = CreateObject("Sl.8lication") j`Modeln~.DAceDoc "Pxart!+PathName0.Get#posTrennz$InStrRevB(", "\laengePfa"dLen) - "*FileB@H :!B@XAttribute VB_Name = "Modul1" Sub Makro1() L.DescriptionrX am 02.03.2 008 v4Niki aufgezeichnetProcData[Invok@e_Func[ \n146' >'"x-  Range@("A1:D.).Select  l.Columns.AutoFiEnd  rU~|  krU $ `1nu0* pHd VBAProject4@j = r BWJI J< rstdole>stdole h%^*\G_VBA_PROJECTUidirny__SRP_0b__SRP_1|f_B_var_ObjectjGetFirstSubFeatureRswPart~GetNextFeature;_B_var_getnextfeatureI`_B_var_I  _B_var_forjL _B_var_Do _B_var_IfPCommandButton2}CommandButton2_ClickGetNextDisplayDimensionU _B_var_EndF Modul1(Makro1C|Columnsp9AutoFit& parentsG GetParentsJE setswFeat_B_var_setswFeatCommandButton3~CommandButton3_ClickFA getTypeNameo_B_var_Nothing$SIsEmpty DPrivate:gFeatTyped_B_var_parents;DimType0GetType)JPi^ _B_var_PiVFormulaR1C1(_B_var_DimType3PathName' posTrennz# laengePfadInStrRevĈFileNamejRight  _B_var_Right9 ShortNamerPosEt! laengeDimPDimName _B_var_LeftQ!Zsoft Forms 2.0 Object Library *\G{E545CA8B-471F-4D86-9190-E34DFFC78D2D}#2.0#0#C:\DOKUME~1\Niki\LOKALE~1\Temp\Excel8.0\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M  {00020430-C 0046}#2.0#0#C:\WINDOWS\syst em32\e2.tlb#OLE Automation`EOffDicEOficEE2DF8D04C-5BFA-101B-BDE5EAAC42Egramme\Gemeinsame Dateien\Microsoft Shared\A10\MSO.DLL# 10.0 Ob LibraryLMSForms>SFrms3D452EE1-E08F0A-8-02608C4D0BB 4SSSFM20L'B @`&/;"1kqAq00}#@8q# 50 AE545CA8B-471F-4D86-9190-E34DFFC 78D2D6DOKUME~1\Niki\LOKALATemp\Excel8.bB7.exdcU<".E .`M EB@ Tabelle1GAablB12 (HB1Bg)XB,"B+BDieseArbeitsmappeGDiE@s`AriE@ssHap e;2/Y/L+%2%2e%2%2a5xv3q3k3qf3"5kModul`D!Mydu DC2o-Cfk!bB#CPrU~~~~w     A1 CommandButton1 ( A98Commk  @  i 0 Dateiname B1 Dateiname: B3 A2:C A2:A2 A2:D:Ye y 9A!I)Projekt1 VBAProjectTabelle1DieseArbeitsmappeas *\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.4#0#C:\Programme\Microsoft Office\Office10\EXCEL.EXE#Microsoft Excel 10.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.2#0#C:\Programme\Gemeinsame Dateien\Microsoft Shared\Office10\MSO.DLL#Microsoft Office 10.0 Object Library*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\System32\FM20.DLL#Microsoft Forms 2.0 Object Library *\G{E545CA8B-471F-4D86-9190-E34DFFC78D2D}#2.0#0#C:\DOKUME~1\Niki\LOKALE~1\Temp\Excel8.0\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M  BWJITabelle1DI494a96adTabelle1g)"DieseArbeitsmappe8]494a47d4"DieseArbeitsmappeLTabelle28^494a47d4Tabelle2x0Tabelle38_494a47d4!Tabelle3H Modul19@494a5742 Modul1fkh0hH[Z>5Jk& *NNJ6GEa6{=fL]/#xcbF7$Hfy4 AsCase=Dim@DoDelseTFor_ifkIsyLoopnameNotNothingSetthentotrueVariantWhile Excel+ VBAWin16~Win32MacVBA6#Projekt1A stdole` VBAProject Officeu Tabelle1R _EvaluateMSFormsCCommandButton1| DieseArbeitsmappe Tabelle2S Tabelle3T WorksheetCommandButton1_ClickzeileswApp AssemblyDoc Configuration RootComponent  CreateObject ActiveDocڒGetActiveConfigurationUGetRootComponentDCells SelectionZ ClearContents{Range  ActiveCell FormulaR1C1STraverseComponent_ClickWorkbookkswModel[SldWorks$_B_var_SldWorks,W_B_var_AssemblyDocz GetPathName GetFileNameswFeat _B_var_Set FirstFeaturea swSubFeatDC swDispDimswDimGetFirstDisplayDimension GetDimensionFullNameОGetSystemValue2Feature!> andButton2 *Makro am 02.03.2008 von Niki aufgezeichnet 14CommandButton3FLLVBA Tabelle1Tabelle1DieseArbeitsmappeDieseArbeitsmappeTabelle2Tabelle2Tabelle3Tabelle3Modul1Modul1)p0ID="{696287EB-3F5E-47DD-9C75-1AB6235F4A41}" Document=Tabelle1/&H00000000 Document=DieseArbeitsmappe/&H00000000 Document=Tabelle2/&H00000000 Document=Tabelle3/&H00000000 Module=Modul1 NamPROJECTwmPROJECTSummaryInformation(DocumentSummaryInformation8e="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="8C8E676299799D799D799D799D" DPB="A7A54C8B7CBD96BE96BE96" GC="C2C029B045B145B1BA" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 &H00000002={00020818-0000-0000-C000-000000000046};Excel8.0;&H00000000 [Workspace] Tabelle1=110, 110, 724, 555, Z DieseArbeitsmappe=132, 132, 790, 484, Tabelle2=132, 132, 746, 577, C Tabelle3=0, 0, 0, 0, C Modul1=110, 110, 768, 462, 2 ValueOh+'0HP`p NikifNikifMicrosoft Excel@خ|@ޘ{@R|getdimension՜.+,0 PXd lt| lA  Tabelle1 Tabelle2 Tabelle3 ArbeitsbltternameGetNextFea FMicrosoft Excel-ArbeitsblattBiff8Excel.Sheet.89qe2Fm*]KMIk2FQO}TԛG6K*srU~~~~~~~~~~~~~~~~~~~~~~~~~ ZOUMX_" e   e )e Ye y 9A!I)Projekt1 VBAProjectTabelle1DieseArbeitsmappeTabelle2Tabelle3F /C:\PROGRA~1\GEMEIN~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA  )`F 0C:\Programme\Microsoft Office\Office10\EXCEL.EXEExcel )p0FC:\WINDOWS\system32\stdole2.tlbstdole  L-[DRAC:\Programme\Gemeinsame Dateien\Microsoft Shared\Office10\MSO.DLLOffice y1.E .`M C:\WINDOWS\System32\FM20.DLLMSForms EGMMǍ- 3C:\DOKUME~1\Niki\LOKALE~1\Temp\Excel8.0\MSForms.exd F>Ao9RC2g F(F;$ArrVDF Worksheet{lFWJOCommandButton1@2iwI}TCommandButton3CommandButton3_Click $$\<LD<DLGetTypeName A1:A1 A1:Cr3 Ht-{cngBFd  . @0_MXb|y{ ^REdJ_xjgetTypeName ProfileFeatureGetType E F mm Grad Stck@VaxKR*3Bu>\ \      CompObji