ࡱ> 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{851A4561-F4EC-4631-9B0C-E7DC407512C9}#1.0#0#C:\Programme\Gemeinsame Dateien\Autodesk Shared\acax17enu.tlb#AutoCAD 2008 Type Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automation*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\system32\FM20.DLL#Microsoft Forms 2.0 Object Library*Root EntryꛖIVBA_Project`ᒑꛖVBA_Project_Version(VBA0-G"  - !#C$%&'()*+,./0123A56789:;<=>?@BDEFG  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGIJKLMNOPQRSTUVWXYZ\]_`abcdefghijklmnopqrstvwxyz{|}~acKѽj(6(H9368265E-85FE-11d1-8BE3-0000F8754DA1`NID="{72D27745-F88C-4D31-9AA4-AAA67E93DAA1}" Document=ThisDrawing/&H00000000 Module=Modul1 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=UserForm1 BaseClass=UserForm2 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="B5B74B074FBD53BD53BD53BD53" DPB="676599D1F931AA32AA32AA" GUserForm10-HUserForm2 0-@_PROJECTwm wPROJECTgPROJECTlk~f o CompObj aC="191BE718E818E8E7" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Modul1=179, 117, 797, 505, C UserForm1=299, 137, 917, 525, C, 108, 140, 726, 528, C UserForm2=258, 107, 860, 546, C, 313, 85, 915, 524, C ThisDrawingThisDrawingModul1Modul1UserForm1UserForm1UserForm2UserForm2rU~~~~~~s VBFrame(fbo CompObjaVBFrame$ThisDrawingModul1UserForm14UserForm2uo _VBA_PROJECTdirH__SRP_2__SRP_3o__SRP_4__SRP_5__SRP_6^__SRP_7[__SRP_0 __SRP_1    )   i ( i 8 i H  X\02608C4 D0BB4EFM20.DLL#Microsoft K*mrU~~~~~~~~~~~~~~~~~~L 1H Gѱ~  a )  a Iya Iy  ThisDrawingModul1 UserForm1 UserForm2 ACADProjectF /C:\PROGRA~1\GEMEIN~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA Q y0aE1F @u=C:\Programme\Gemeinsame Dateien\Autodesk Shared\acax17enu.tlbAutoCAD Iq@0FC:\WINDOWS\system32\stdole2.tlbstdole iP.E .`M C:\WINDOWS\system32\FM20.DLLMSForms aa`GGSOK>) /C:\DOKUME~1\admin\LOKALE~1\Temp\VBE\MSForms.exd Aaip\ uM  C:\WINDOWS\system32\mscomctl.ocx MSComctlLib ))QB/"OUxwN 3C:\DOKUME~1\admin\LOKALE~1\Temp\VBE\MSComctlLib.exd )Am Eҙ6P &C:\appl\AutoCAD 2008\AcFocusCtrl16.dllACFOCUSCTRLLib  107AqQi"6C:\DOKUME~1\admin\LOKALE~1\Temp\VBE\ACFOCUSCTRLLib.exd 1  ZeigeFormular  BF*7gdJrgZKd}MF*{"j,\G9r i*oLtn3]o{~EΙyVJѽj(6( ListView1HH)Hd q  ȏ[qJ eUserFormW iBjG<6 F3Dynamic Q y 0{lFWJOCommandButton1!-6S` A @SKFN>;) AcFocusCtrl1CommandButton1_ClickListView1_DblClickUserForm_Initialize LLѽj(6(Pѽj(6( Label Detail 1 Detail 2 1. ZeileNѽj(6( 1 Detail 1Sѽj(6( 2. Zeile 2 Detail 1 2 Detail 2VzB}v+RxEMeBvt[đ~D46FJOsu+Ŋ;K?}ҋB `TextBox1TextBox2TextBox3CommandButton20ĘFH':5 y CommandButton2_Click TҋB `#=h8+3qG?,2qL r=0* pHd ACADProject8@ = t  )K( J< rstdole>stdole h%^*\G{00020430-;C 0046}#2.0#0#C:\WINDOWS\sys@tem32\e2.tlb#OLE Automation0MSForms>SFFrms3 ED452EE1-E08F-101A-8-02608C4 D0BB4EFM20.DLL#Microsoft : ^ Ob Library/;D1u00}#0#k0 A47BE96F0-5347-4FA5-BEB6-C2FF4B3E291F6DOKUME~1\admin\ LOKALTemp\VBE\Sp.exd`;!.E .`M MSComcDtlG>\G{47BE96F0-5347-4FA5-BEB6-C2FF4B3E291F}#2.0#0#C:\DOKUME~1\admin\LOKALE~1\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M *\G{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0#C:\WINDOWS\system32\mscomctl.ocx#Microsoft Windows Common Controls 6.0 (SP6)*\G{942F42EE-22DA-4FAA-A955-78774EFE04A8}#2.0#0#C:\DOKUME~1\admin\LOKALE~1\Temp\VBE\MSComctlLib.exd#Microsoft Windows Common Controls 6.0 (SP6)\ uM*\G{FC0C6DFB-96E9-4520-B0D2-993650F89DD4}#1.0#0#C:\appl\AutoCAD 2008\AcFocusCtrl16.dll#AutoCAD Focus Control for VBA Type Library"*\G{A037307F-03CF-4103-B971-518CD66922EB}#1.0#0#C:\DOKUME~1\admin\LOKALE~1\Temp\VBE\ACFOCUSCTRLLib.exd#AutoCAD Focus Control for VBA Type Librarym Eҙ6P  )K_ThisDrawing014b2906cbThisDrawingN- Modul13L4b2916d1 Modul1I0UserForm13:4b2915e9%UserForm1H0UserForm23N4b2916fa3UserForm2H hH0xwckL5i|PFoADdkJGrbEų:E}x46,{me AutoCAD" VBAWin16~Win32MacVBA6# ACADProjectstdole`MSFormsC MSComctlLibm ThisDrawing5 _Evaluate Modul1(Wert1x(Wert2y(Wert3z(actionOKY (ZeigeFormular. UserForm1)ShowCommandButton1_ClickListView1_DblClickg ListView19 SelectedItem*SubItems UserForm2*UserForm_Initialize5cLnode5ListItemFk ListItemsClear ColumnHeadersdViewI lvwReportyUAddr ListSubItems,TextBox1SValueKTextBox2STextBox3S AcadDocumentZACFOCUSCTRLLibUserFormNCommandButton1| AcFocusCtrl1FClickDblClick InitializeN LayoutEffectO LabelEdit lvwManual.CommandButton2}CommandButton2_Click%R3  HClearAddr _B_var_setListView1_BeforeLabelEditCancelListView1_DblClickgBeforeLabelEdit1 UserForm2*(Wert1x(Wert2yTextBox1SValueKDblClick SelectedItem*ActionR(actionOKY _B_var_IfPSubItemsSubItem. ListSubIVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm2 Caption = "Eigenschaften" ClientHeight = 2424 ClientLeft = 36 ClientTop = 420 ClientWidth = 3048 StartUpPosition = 1 'Fenstermitte TypeInfoVer = 5 End  Microsoft Forms 2.0 FormEmbedded Object9qH, {5Tahoma( ME@hCemcl@Lib@j|3831FDD16-0C5C-11D2-A9FCLF8754DDA1Yjmsc.ocx/Windows @#monntrols 6.0 (SP6F)m;0;A<942F4-P22DApA<55-78774EFE04A8p.8 @\ 0uM9lACFOCUSCTRLB:ACnOU;TR: ; ;FC0C6DFB-96E9-q0-B0;993650F8(9DD@p1appl\!~ 2008\AcFocusCtrl16.dll#e: for VBA Typer"ur0$ A037307F-03CF-4103-B971-518CD66922EB}#& >uk1"=?"%"`@m Eҙ6PE=_[ThisDrawingGy T`iDrawxng2GHB1-","N"" +Modu(l1GMdu1ӣ2  I! User@eE<20-e#(@  2G o2jq42}2 8 %rU T$`$A`$`nrU P QY1 yQ4A8a< @ `ID 1 ` H  ` bWz&hx x h`x5h&hx x h`x5h&hx x h`x5hlx$ x$ xhX$zlx$ x$$ xz'vFhNXXx x x5X'vFhNXXx x x5X'vFhNXXx x x5XD($$( xXH@DHPAtti _P+RxEMeBvt[đ~D46FJOsu+Ŋ;K?}x+Ŋ;K?}+RxEMeBvt[ME(SPSSS6" LL <,<0<4<8<<<0{7E0091C4-A2BD-44A4-93B2-8897E00083E0}{46A13634-B597-4AE4-9DDC-4F73061D0875} (X`hk  4`Xk % %%2H% h@`xke i @Xx HLN@x @h @X x HLNrq@x t@h \sx` r @x ad@ T)K$*\Rffff*3N4b2916fa*\R0*#1d*\R0*#1e*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44$*\Rffff*3L4b2916d148<@DH "&& &0  @P "  "X`'h'x''  !H!J' !L!J' !N!J' A@r,!.o(@'   !H(J  !L(J  !N(Jo`XXo'  AVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1 Caption = "UserForm1" ClientHeight = 2424 ClientLeft = 36 ClientTop = 420 ClientWidth = 6276 StartUpPosition = 1 'Fenstermitte TypeInfoVer = 5 End )t`5dA'P%'0%:% Microsoft Forms 2.0 FormEmbedded Object9q[=x)t`6!C4W) N}"W)ͫFd b c ( Schliesseni {uTahomaad``  }>+<kaKѽj(6(Jѽj(6(Iѽj(6(<k `NSKFN>;)9HJ\X]oP b$ListView1ni9368265E-85FE-11d1-8BE3-0000F8754DA1,<CommandButton1!; (  AcFocusCtrl1g $@r/xAttribute VB_Name = "UserForm2" " Bas0{7E0091C4-A2BD-44A4-93B2-8894083E0}{46A13634-B597-4AEJDDC-4F73061@D0875} dG lobalSpacoFalse CreatablPredec$laIdTru BExpose0TemplateDerivCustomiz1D POKhoE{uTahomaH, {5TahomaH, {5Tahoma(AbbruchE{uTahomahcCa}oHFY>ME  }$4TextBox1 ,4CommandButton1A ; $4TextBox2 #$4TextBox3 q,8CommandButton2A; LP Sub CommandButton1_Click() act`ionOKP Wert1Me.TextBox1.Val`2 j2 3 3 ;Unload MHEnd) X-2V-N%_InitializeBN@5BGC1D@2D@3 =698B-4FDrU L$`$A`$`nXrU a Ay 1q` Y1   a 4) aQ `I8 1 ` <  ` @  `WPlx$ x$ x;x xah ddaT ` )xd6hTD(D%x xah ddT `)xd6hTD(D%x xah ddT `)xd6hT(D%$u7 @x xah dd, )xd5h@(D%@x xah dd )xd5h@(D%@x xah dd )xd5hX$ xdhT|(3t tad``)t`5d3t tad``)t`5d!P%t t,t!P%t t,tA'P%'0%:%t tad``)t`5dA'P%'0%:%t tad``)t`5dA'P%'0%:%t tad``)t`5dV'P%'0%:%t tad``[=x)t`6dC`'':0N''dtx t ( )t`6 dC`'':0N''dtx t ( )t`6 dV'P%'0%: %t tad``[=x)t`6dC`'':0 N''dtx t ( )t`6 dC`'':0 N''dtx t ( )t`6 d(((x,t`d<48HnstelrU $`nib.exd#MirU~|  L(l%$ $ k.0#0#. t_HrgZKd}MF*{"j,\G9r i*oLtn3]o{~EΙyVx]o{~EΙyVrgZKd}MF*{"jMET@SPSSS 86"" LLPL B@< B !,(@Label !,!>B@DDetail 1 !,!>B@DDetail 2 !,!>B@D1. Zeile !,!:%D.6 1 Detail 1 6!FB@D 1 Detail 1 6!FB@D2. Zeile !,!:%D.6 2 Detail 1 6!FB@D 2 Detail 2 6!FB@Doh d !,(bPAttribute VB_Name = "UserForm1" " Bas0{B28BB784-5C2C-4718-B9D4-397209692A1E}{7F6FB904-9B8JCA3-B2746E33A3F1E7} d@GlobalSpacoFalse CreatablPredeHclaIdTru BExpose0TemplateDerivCustomibzD P Sub CommandButton1_Click() Unload MqNEnd ListView10_DblWert1nMe..SelectedItem.Text32* Xs(1'3 2 42.Show 1CIf actionOK ThenC/@ /: 0 2 2) 3 dIf fE_Initi`alizeAv4Dim Lnode As AgVC =s.ClearPColumnHeaderW @0lvwRepor~abelEdit Manu alAdd , "L w7Detail !_C D2 Set$+=f(_((1. Zeile"S"2B%E.f1 Hc?tbl#2?&~2?!(aXW) N}"W)ͫ0b( Schliessena {uTahoma  }>+<kaKѽj(6(Jѽj(6(Iѽj(6(P t_IxME (6 "<P8@`% "`H\k@@  @H$@l @\ X      !"#``()K$*\Rffff*3L4b2916d1$*\Rffff*3:4b2915e9   " "(P ` p] ] ] ] ` Formular ungebunden ffnen $B@&oAttribute VB_Name = "Modul1" Public Wert1 As Sng \2.3 .bactionOK8Boolean Sub ZeigeFormular()  '  ungebunden ffne?!User#1.S how 0UEn d R '_N#xME (SLSS<N0{7AABBB95-79BE-4C0F-8024-EB6AF271231C}@(%H@0)KxAttribute VB_Name = "ThisDrawing" Bas0{7AABBB95-79BE-4C0F-8024-EB6AF271231C} |@GlobalSpacFalse dCreatablPredeHclaIdTru BExposeTemplateDerivBustomizD2