аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ__SRP_1џџџџџџџџ NfrmStartmodelle џџџџџџџџ№i*ЦмЮž˜ЊWJO€pСФР\еAФfџџџџџџџџщіoџџџџџџџџџџџџчLй`д џџџџџџџџYq&&rU€€€€~} ˜ H"$ў €$ k!a9‰Б ™Сщџџџџq<9aaеееџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ @ 1жжжЈ§џџ`!џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot Entryџџџџџџџџ ­fы›ФРpVBA_Projectџџџџрьф‘oѕУ ­fы›ФVBA_Project_Version(џџџџџџџџџџџџVBAџџџџџџџџа6ч‘oѕУа6ч‘oѕУ7§џџџ& !+ '"#$%C()*1,-.20c93456@8A:;<=>?NDBJfEFGHIKWLMPOTQRS/UVXўџџџYўџџџ[\]^_ўџџџџџџџўџџџџџџџdegўџџџhiZklmnopqraџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџ ўџџџ  !"#$%&'()*+,-./0123456ўџџџ89:;<=>?@ABўџџџDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrsyu~wxўџџџz{|}ž€acadID="{D97BD7C9-99EB-4B09-9C67-9460740F8AEC}" Document=ThisDrawing/&H00000000 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=frmDateiOeffnen BaseClass=frmStartmodelle Module=Modul1 BaseClass=UserForm1 Name="ACADProject" HelpContextID="0" CMG="494B465E4A5E4A5E4A5E4A" DPB="3D3F32BAD2AFD3AFD3AF" GC="31333E433F433FBC" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDraUserForm1. №i*ЦмЮž˜ЊWJO VћŒФ ŽХЫФfrmDateiOeffnen  а6ч‘oѕУ—l2ФPROJECTwmџџџџџџџџџџџџvЙPROJECTџџџџ—wing=92, 92, 897, 610, C frmDateiOeffnen=21, 13, 870, 531, , 13, 6, 595, 354, frmStartmodelle=0, 0, 0, 0, C, 138, 138, 869, 560, C Modul1=207, 207, 938, 629, UserForm1=45, 49, 903, 420, C, 46, 46, 619, 396, rU€€€€~~~~~~s џџџџџџџџџџџџџџџџ  џџџџџџџџ Љ9 Љ  ЉQ( y щ8 Љ H dafџџџџџџџџџџџџ6рo џџџџ-CompObjџџџџ џџџџ+aVBFrameџџџџџџџџџџџџ&/fџџџџџџџџџџџџ€’o џџџџwCompObjџџџџџџџџunVBFrameџџџџџџџџџџџџp'ThisDrawingџџџџџџџџџџџџГUserForm1,џџџџCњfrmDateiOeffnen џџџџ!џџџџh6_VBA_PROJECT-џџџџjUdirџџџџџџџџџџџџ7с__SRP_2џџџџf __SRP_3џџџџџџџџџџџџtЄModul12џџџџYŽ“K)^џџџџrU€€€~~~~~~~~~~~~~~Z QDъn%сU†AВУЌшLоŸ ф џџџџџџџџџџџџЉA Qџџџџxџџџџ1џџЩƒA i џџџџa ‘ Й с 9 џџсџџџџџџџџџџџџ џџџџџџџџџџџџ11 щ ThisDrawingModul1frmDateiOeffnenfrmStartmodelle UserForm1 ACADProjectяРF?C:\PROGRAMME\GEMEINSAME DATEIEN\MICROSOFT SHARED\VBA\VBA332.DLLVBA qџџџџ ™!(тС”РЦWв…у  Ц&C:\Programme\ACAD2000\ACAD.TLBAutoCAD ‰џџџџБљ80РFC:\WINNT\system32\stdole2.tlbstdole iџџџџ‘йHь xР№вЂ2РпьЎфC:\WINDOWS\SYSTEM\MSForms.TWDMSForms aA‰бXс.E р….`ŒM ДMщќG—hѕAЏ-Vщm 9C:\WINDOWS\TEMP\VBE\MSForms.exd iA‘бhFileOpen РУ{:ф<GВдv­ЗШ}цЇ}EќЈIHЎЁ%u—o+йЧ€Ў•—zO“.ЁPBp\ПьJddВCЂГ;+F2А0'аiЎHЋ Aƒя(лy–4*"žŒ—АдЮП-Њ?@а lblEingabe1!ш-ЌЂ6Я€SЊ` њ џџџџџџџџбИС{lЏЮŸFЊWJO cmdSuchenв‹BьЮž Њ`ѓ txtEingabe02 cmdжffnen cmdSchlieпenШ[qJ—І eР‹UserFormяЯШ@ЋiH†1љ˜c9­ F3Dynamic 1 џџџџџџџџY Ш lblFehler txtEingabe01"в‹BьЮž Њ`ѓListBox1cmdSchlieпen_Clickcmdжffnen_ClickcmdSuchen_ClicktxtEingabe01_Exitq#А‚МЕЯ ЩtUserForm_Initialize h48 VBA332.DLL жffne  ™ џџџџ и в‹BьЮž Њ`ѓ#в‹BьЮž Њ`ѓСYl†ЯЋ|ЊРЯ ™ џџџџ № E- c:\dummy\ I- c:\dummy\block\ Falsche Eingabe!ЦYl†ЯЋ|ЊРЯ Fehlende Eingabe! ™ џџџџ…  *.*#=ћќњ hЇ8+3qЕy РG?,2qЯ”ЊЇLаyЙџџџџнВ€0* pH‚dф ACADProject8@е = t  žюs@( J< rstdole>stdole f%\*\G{00020430-;C 0046}#2.0#0#C:\WINNT\system32\c2.tlb#OLE AutomatioFn^€MSForms>BSFErms/z € p€F780BE?-F0C0-11D2-A232FC0DFECAEE4 FDOWS\SYSTEM\3.TWD#MicrosoftŠ = ` ObА LibraryG9P0r€P47FCE94D-6897-41F5-AF2D-56E96DР0A391AP@' P\VBE†(exdІ(с.E р….`ŒM Д”‚Т ѓ‚‘ThisDrawing" 2Р0Thi€]DrawРngЂ@HB1Т”`ыB,QBг"B+BҘModul1Ш2Т›Mxdu5Р›1P ЙMd !J@frmDateiOeff nen2Р)V@Д“DР4t@ИiTO@f@nРnIP 1Я7s;У7(б!StartmoрdelleЦ! Щ!ЊS@лa@Xt@\oрnNeр !oя,TяЪ ѓё  UserЧСY.Ъ2Ёр:ne …k1/ (-/З пя р ЖџџџџџџџџџџџџЖu.~•CМ?мЏŒXхE}ќxZА ЃFЙЫœW§“>zgЮЇТ{K•Q7ЈхI­џџџџџџџџџџџџxо3iџџџџ ѓЗпџџˆџџOжжџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPSPџџџџSџџџџSџџџџSџџџџ<џџ<џџ<џџ<џџџџџџš0{06F8AB5A-287D-4777-A7AE-D47B88BF7185}{A7CE6702-C21D-4B7B-9504-5137A8E549AD}пhHўџ0џџџџ(џџџџџџџџџџџџџџ$ўџџџџџџџџџXџџ0џџџџџџџџ $џџџџ€$$ џџџџ џџџџџџ$ш 8`џџџџџџџџџџџџџџџџџџџџДџџ „Щt(џџџџџџџџˆ0џџџџЈiƒ>џџџџџџH€ џџш˜28`џџџџџџџџџџџџџџџџџџџџИџџ „џџџџџџџџPџџџџ џџ О џџџџ8`џџџџџџџџџџџџџџџџџџџџАџџ„wPiƒўџџџџџџџџџџџџџџџџџ tѓ[ˆx`џџџџџџџџџџџџ(FМџџ88Œєѓ[џџџџџџџџhџџџџ„4є[iƒtџџџџџџџџџџ€Јiƒўџџџџџџџџџџџџџџџџџ Дє[џџџџ8`џџџџџџџџџџџџџџџџРџџ„4ѕ[џџџџџџџџDQЁyдддџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ H ЁзззЈ§џџ`сџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ L СиииЈ§џџ`ЁџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPщС пппџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџT9a1 рррџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџXQЁQ ййй‚€`aџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ\y сЁ џџџџџџџџџџџџњџџџ` 0€`Ёсџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ eљQoЏя/oЏяT l§œxџ"$ xџ $ xџР4(4џ\џTџXџ! ЈXџ ДlTџѕЎ§iDџXџўhџМ"џ\џXџ! ЈXџ @kџXџБY”rU€€€  i q Љ б љ Y y rU€€€ џџџџџџџџh$™`Рџџџџџџџџ$й`Фџџџџџџџџ$`Шџџџџџџџџ,Y`Ьџџџџџџџџme = Dir$("M:\Archiv\Pruefmittel\Messblatt*.*") 'Verzeichnis und Dateilи Case "L-"џџџџЄ &(Fatei &!fЖџџџџџџџџdџџЇ}EќЈIHЎЁ%u—o+йЧ€Ў•—zO“.ЁPBp\ПьJddВCЂГ;+F2А0'аiЎHЋ Aƒя(лy–4*џџџџџџџџџџџџxJь џџџџ ѓs;џџˆ'аiЎHЋ Aƒя(лy–4*Ї}EќЈIHЎЁ%u—o+йџџ:BB1 е<ж@дDзHиLџџџџPрTйXп\џџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@SPџџџџSџџџџSџџџџSџџџџ1”џџ"џџџџџџџџ џџB@@ѓlџџ˜Ў "($cmdжџџџџАџџџџчАAttribute VB_Name = "UserForm1" " €Bas€0{06F8AB5A-287D-4777-A7AE-D47B88BF7185}{A7CE6702-C21JB7B-9504-5137A8E549AD} dCreatabliFalse „PredeclaIdЎTru "Expose@Templat@eDeriv–C€ustomiz‹D€Option 0€licit ЖџџџџџџџџџџџџГHy—#ШLЅ"і{mOC‹ЧdV@IА•;ЕЭ†4јЕљh№ŒQhNПвmw‚чљџџџџџџџџџџџџxоljџџџџ ѓЪѓџџˆџџˆжжTџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPSPџџџџSџџџџSџџџџSџџџџ<џџX<џџ<џџ<џџџџџџš0{64C78B14-5602-4940-B095-3BB5CD8634F8}{F068F9B5-518C-4E68-BFD2-6D7782E7F905}пШ€T``џџџџџџџџџџџџџџџџџџџџЌџџ” „VџџџџџџџџX$^Р`џџџџџџџџџџџџџџџџџџџџАџџ” „VџџџџџџџџИ$``џџџџџџџџџџџџџџџџџџџџДџџ”bџџџџ`џџџџџџџџџџџџџџџџџџџџИџџ” „VџџџџџџџџX$ўџџџџџˆџџ`џџџџџџџџ$ўџџџџџџџџџИџџџџџџџџџџ $џџџџ8џџџџ`РџџџџџџџџextWƒўџџџџџџџџџџџџџџџџџџџџџ.a$‚ Rџџџџўџџџ@џџўџџџџџџџџџџџress$ƒўџџџџџџџpџџџџџџџџџџџџџџџџџџ$џџџџџџџџџџџџ`џџџџџџџџџџџџџџџџџџџџH\МЌџџџџџџџџџџџџџџџџџџџџџџџџџџMEџџџџџџџџVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmStartmodelle Caption = "Startmodelle CATIA V5R10SP4w8ingI4„L4Жџџџџџџџџџџџџџџџџџџџџџџxо џџџџ ѓdџџџџ<жж џџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџP6 џџџџ<џџ<џџџџџџš"џџџџ<џџ<џџ<џџџџџџžюs@$*\Rffff*764073f33b$*\Rffff*7a4073f38dпx€ џџџџ`џџџџџџџџР|џkџџџџџџџџџџ„џџџџџџџџ0ƒџџџџџџxџџџџџџџџџџџџџџ$џџџџИƒџџџџџџАџџџџџџџџџџџџџџ$џџџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџРРРРџџџџџџџџџџџџџџџџРРРРРРРРРРРРРРРРРРРРРџџџџРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРР@ўџ \џџџ џџ џџ@ўџџџџџLџџџ џџ џџџџ@ўџџџџџHџџџ џџ џџџџ@ўџџџџџDџџџџџ џџџџ@ўџџџџџ@џџџџџ џџџџџџџџhџџ џџ@ўџџџџџ0џџџ џџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHџџџџџџџџtџџџџџџџџџџџџџџ@ўџџџџџxџџџ џџ џџџџPџџџџџџџџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€0џџџџ`№HџџџџџџџџџџџџџџџџџџџџАџџџџџџџџџџџџџџџџџџџџџџ" ClientHeight = 2775 ClientLeft = 45 ClientTop = 345 ClientWidth = 5655 StartUpPosition = 1 'Fenstermitte TypeInfoVer = 21 End Falўџ џџџџ№i*ЦмЮž˜ЊWJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.1є9ВqЭџџxџџџџpџџўЪ€ џџџџ€ џџџџ€ џџџџ€€ џџџџ€ џџџџ"€B`€ џџџџ€ џџџџ"h€pHxР€ џџџџ"Шаи€ џџџџ"р€шH№8€ џџџџџџџџHХџџxZъ@хЎ*V:\Standards\Start_CATPart_MF_5104.CATPart Z!\%.Vlџџ`Zъ хЎ0V:\Standards\Start_CATProduct_MF_5104.CATProduct Z!\%.Vlџџ8Рdџџ(lџџ Zъ@хЎ0V:\Standards\Start_CATDrawing_MF_5104.CATDrawing Z!\%.VlџџРџџџџИГБAttribute VB_Name = "frmStartmod€elle" ˜Bas˜0{64C78B14-5602-4940-B095-3BB5CD8634F8}{F068F9B5-518C-4E68-BFD2-6D7782E7F905} dCreatabliFalse „PredeclaIdДTru "Expose@Templat@eDeriv–C€ustomiz‹D Option 3licit  P€&€* Sub cmdPЃ_C€k() Dim Doc „Asumen€ Set = C`ATIA.‚s.Open("V:\€Ъndardbsrt_0M€F_5104.„b"5EndAJrpodukйKСclџF\џLџ Lџ`#DџHџ! ЄHџ h/Dџ)pџHџ6\џLџlџpџ! Єpџ l>lџ1@џpџ l@џћ0Я ClientWidth = 7755 StartUpPosition = 1 'CenterOwner TypeInfoVer = 8 End џџџџ4@А4!џџџџ8@И8pўџ џџџџMicrosoft Forms 2.0 FormEmbedded Objectє9Вq +€€€Label1ЎŽ#{5€ЅArialЎ$+џџџ€ €Schliessene.Р " ї€@Уi05* n`єЮ›ЭЊ`Ž€pСФ€сСФi06џџџџ' n`єЮ›ЭЊ`Ž€pСФ€сСФi07џџџџџџџџ$ n`єЮ›ЭЊ`Ž€pСФ€сСФCompObj џџџџУnVBFrameџџџџџџџџџџџџО=frmStartmodelle џџџџџџџџџџџџЈ fџџџџџџџџџџџџ šfџџџџџџџџџџџџЈџџџџџџџџџџџџџџ‚Ж"џџџџџџџџџџџџ@ўџhXџџџ џџ X@ўџџџџџTџџџџџ @@ўџxDџџџ џџ @ўџџџџџ4џџџ џџ рАџџџџ˜џџџџ @ўџШ$џџџ џџ ф@ўџџџџџџџ џџ G{˜Ш4EF@ўџџџџџџџџ џџ -C@ўџ џџџ џџ 00@ўџ8№ўџџ џџ 9#@ўџPрўџџ џџ ME@ўџџџџџаўџџ џџ E @ўџџџџџЬўџџ џџ CR@ўџџџџџШўџџџџ EDџџџџШ VBAџџџџАџџџџ€xџџџџ  џџџџЈЈџџџџџџџџ0 ј hдАџџџџџџџџџџџџџџџџџџџџџџ и MEџџџџџџџџџџўЪ[€€И" ˜€ џџџџ" €x4 D{ (€ |Ј € џџџџ" Ј А'РMа(hx 8HP€ џџџџ"  (€x @ 'P 8Mˆ  ` € џџџџ Ш. Р € џџџџ 04 № € џџџџ€ ш€ ZР€ @€ Р€ b € р€ и€ bˆ€ H€ H€ dш€ P€ А€ `Ш€ € 0€ XH€ €  € X№€ џџџџ€ ˆ € и P 5` hш pа€ џџџџ x!ˆ  € ,H€ `&АиЈА€ (`€ џџџџЈ€ џџџџ"И ˆ ˜ Р€ џџџџ€ џџџџџџџџ8ХџџxЏ'>lџџ`@їПЎI-HQиии џџB@@grammea &B@:SelectPЏ'МZъџџџџъџџџџelџџP`Ў "($ 4!fЎ• 4!f$6 4(fи Case "V-"‹‚ииaџџрЎFehlende Eingabe! "($ 4B@:hџџЈlџџ и Me.Hide'иZъш ЎFalsche Eingabe! "($se "kБh  lиh ~'Dии^ dateiname = Dir$("M:\Archiv\Vorrichtungen\Montagevorrichtungen*.*") 'Verzeichnis und Dateigen*Є &(F &!f &(АFocus МЏ• lb ЖЎ*.*$~'D DЎ_" D ‚B@8Ifи Case "VE"Hи Case "H-"AllgиR dateiname = Dir$("M:\Archiv\Pruefmittel\Messmittel*.*") 'Verzeichnis und Dateiи Case "MA"Eи"lstAnzeige01 = Dir$ + txtEingabe02Ў &(fЎ 4(fnis lи Case "LM"teiиY dateiname = Dir$("M:\Archiv\Pruefmittel\Konstr_Messmittel*.*") 'Verzeichnis und DateiРи Case "LZ"иQ dateiname = Dir$("M:\Archiv\Pruefmittel\Messblatt*.*") 'Verzeichnis und Dateiи Case "L-"v\PrZ ъ€ъЈ!"ЎE-HQ Se &B@:txtEinЎFehlende Eingabe! "($Ca ‚B@Юmy\blož N ‚%Œ”FЎжffne Ж N ‚% "($gи i = i + 1LZъ8ъPlџџlџџј џџA@tиudummy = Shell("C:\Programme\MDT6\acad.exe " & filDateiAuswahl.Path & "\" & filDateiAuswahl.FileName, vbNormalNoFocus)и Cancel = Trueџџџџpи% ActiveCell.Offset(i, 0) = Dateinameџџџџ &!f 4!fЎ*.dwg ‚B@8ї NіЄ ‚!–Є ‹!ŽиS dateiname = Dir$("M:\Archiv\Vorrichtungen\Allgemein*.*") 'Verzeichnis und Dateiџџё˜и[ dateiname = МArialng(J џџР@}ї&А„$е€#Frame1tдЇ(е €#frProdukta; Ї$е€#Frame2tЂЇ,х €LcmdSchliessen;  ѓџЉеееЈ§џџ`‰џџџџџџџџџџџџџџџџџџџџџџџџџџџџ @ЩСёжжжЈ§џџ`‰џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ DЩo#%џџџџHCompObjџџџџџџџџџџџџpfџџџџџџџџџџџџЈo&(џџџџ HCompObjџџџџџџџџџџџџ pfџџџџџџџџџџџџ o)+џџџџHCompObjџџџџџџџџџџџџpўџџџ‡ўџџџўџџџ ўџџџ ўџџџ ўџџџўџџџўџџџўџџџўџџџўџџџ!"#$%W'()*ўџџџ,ўџџџ./012345ўџџџ789:;<=>?fABCDEFGHIJKLMNOPQRSTБVАўџџџўџџџZ[\]^_`abcde“ghijklmnoўџџџqrstўџџџvўџџџxyz{|}~ўџџџС зззЈ§џџ`IџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHЁ1 нннџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџLQ сy оооž§џџ`IџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPщaЁ йййџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ TЩСЩ иииЈ§џџ` џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџe—WзW—з< ќШ $ 0 ќЦј  0 ќЦ˜  0 ќЦ8  0 ќЦи  0 ќЦ˜  0 ќЦј  0 ќЦ`  TD@L<8 teinamepfad щ XCancelRўџ џџџџ n`єЮ›ЭЊ`ŽMicrosoft Forms 2.0 FrameEmbedded ObjectForms.Frame.1є9Вq +џџџ€€жffnenь Ъ ї€@УМArialn8J  џџРР€џџ}“ ь PartRу ‘ЮуЊKИQМм|Arial,л$х€HcmdPartд{ ѓџўџ џџџџ n`єЮ›ЭЊ`ŽMicrosoft Forms 2.0 FrameEmbedded ObjectForms.Frame.1є9Вq +џџџ€€жffnentь Ъ ї€@УМArialnt<J  џџРР€џџ}” ь ProduktRу ‘ЮуЊKИQМм|Arial0л(х €HcmdProduktaд{ ѓџўџ џџџџ n`єЮ›ЭЊ`ŽMicrosoft Forms 2.0 FrameEmbedded ObjectForms.Frame.1є9Вq +џџџ€€жffnengь Ъ ї€@УМArialng<J  џџРР€џџ}g ь DrawingRу ‘ЮуЊKИQМм|Arial0л(х €HcmdDrawingaд{ ѓџ€H€,k„З€@МArialЎ@+џџџ€(€Bitte die Betriebsmittelnummer eingeben:н&{З€@№МArialЎ*џџР€SuchenЎь і ї€@УМArialЎ*€џ€€жffnenЎь і ї€@УМArialЎ$+џ €SchlieпenjГь і ї€@УМArialЎ€H€,#„З€@МArialЎ`€Ž#; 5€ЅArialЎ__SRP_5џџџџџџџџџџџџ›H__SRP_4џџџџ™> UserForm2џџџџџџџџ/рЏЕ…˜Фy™Фo"0џџџџц$ €}o5? hˆ,ѕ €2@lblFehlerjГЇ'(х €8txtEingabe02Ъ",ѕ €2dlblEingabe1ЇЇ(х €DcmdSuchenjГ+*"(х €DcmdжffnenjГ+* (х €LcmdSchlieпen+*1(х €8txtEingabe01Ї"$х€VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmDateiOeffnen Caption = "Datei іffnen" ClientHeight = 4005 ClientLeft = -960 ClientTop = 345 ClientWidth = 7905 StartUpPosition = 1 'CenterOwner TypeInfoVer = 38 End ўџ џџџџMicrosoft Forms 2.0 FormEmbedded Objectє9Вq€H€,k„З€@МArialЎ@+џџџ€(€Bitte die Betriebsmittelnummer eingeben:н&{З€@№МArialЎ*џџР€SuchenЎь і ї€@УМArialЎ*€џ€€жffnenЎь і ї€@УМArialЎ$+џ €SchlieпenGВь і ї€@УМArialЎ€H€,#„З€@МArialЎ +€€€Label1ЎŽ#{5€ЅArialЎ`€Ž#; 5€ЅArialЎ, 2 €џџџџ&}x6˜Rу ‘ЮуЊKИQDBArialRу ‘ЮуЊKИQltBM6(Dir$("M:\Archiv\Vorrichtungen\Einzelkomponenten*.*") 'Verzeichnis und Dateiџџџџџџи\ dateiname = Dir$("M:\Archiv\Vorrichtungen\Hilfsvorrichtungen*.*") 'Verzeichnis und DateilpContџџџџHиџџџџШЎ "($Ю &!fЎ• &!f$6 &(fи6Umwandeln in Groпbuchstaben &!fтЎE-HQ6Ў c:\dummy\'ЖиVerzeichnis und DateiЎI-HQРРЎc:\dummy\block\'ЖиVerzeichnis und Datei D ‚B@8 "иS dateiname = Dir$("M:\Archiv\Vorrichtungen\Allgemein*.*") 'Verzeichnis und DateiРРџџи Case "VE"€€и[ dateiname = Dir$("M:\Archiv\Vorrichtungen\Einzelkomponenten*.*") 'Verzeichnis und Datei€џџи Case "H-"џи\ dateiname = Dir$("M:\Archiv\Vorrichtungen\Hilfsvorrichtungen*.*") 'Verzeichnis und Dateiџи Case "MA"и^ dateiname = Dir$("M:\Archiv\Vorrichtungen\Montagevorrichtungen*.*") 'Verzeichnis und Dateiии Case "LM"иY dateiname = Dir$("M:\Archiv\PruefmitаРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРџџџџџџџџџџџџџџџџџџРРРРРРРРРРРРРРРРРР€€€€€€€€€€€€€€џџРРРРРРРРРРРРРРРРРРџџ€€€€€€€€€€€€€€џџџџРРРРРРРРРРРРРРРџџ€€€€€€€€€€€€€€џџџџРРРРРРРРРРРРџџџџ€€€€€€€€€€€€€€џџџџРРРРРРРРРџџџџџџ€€€€€€€€€€€€€€€€џџРРРРРРРРРџџџџџџ€€€€€€€€€€€€€€€€€€џџРРРРРРџџџџџџџџџџџџџџџџџџџџџџџџџџРРБ б !yЁљYЁсЙЙ  ™Сщџџџџq<9aaеееџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ @ 1жжжЈ§џџ`!џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџDQЁyдддџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ H ЁзззЈ§џџ`сџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ L СиииЈ§џџ`ЁџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPщС џџџџџџџџџџџџњџџџ`ЁџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџT9aб рррџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџXQЁё ййй‚€`aџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ\ сA пппџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ eљQoЏя/oЏT l§œxџ"$ xџ $ xџР4(4џ\џTџXџ! ЈXџ ДlTџѕЎ§iDџXџўhY9$™`аџџџџџџџџџџџџ4@А4!џџџџ8@И84ListBox1Ї tel\Konstr_Messmittel*.*") 'Verzeichnis und Dateiии Case "LZ"а*ЛиQ dateiname = Dir$("M:\Archiv\Pruefmittel\Messblatt*.*") 'Verzeichnis und Dateiии Case "L-"ŒиИиR dateiname = Dir$("M:\Archiv\Pruefmittel\Messmittel*.*") 'Verzeichnis und DateiPџџxЏ'МЎFalsche Eingabe! "($" &B@:Є &(F &!f &(АkџџaџџЎFehlende Eingabe! "($ &B@:hџџа МЏ• ЖЎ*.*$~'D DЎ_Ў "($flag &!fЎ• &!fтlean ~'DБџџ0hџџ( &!f$6 &(fи6Umwandeln in GroпbuchstabenЎ c:\dummy\'ЖиVerzeichnis und DateigaЎc:\dummy\block\'ЖиVerzeichnis und Dateiad =џџџџPџџџџHbЕAttribute VB_Name = "frmDateiOef€fnen" ˜Bas˜0{AE0380C7-9795-4F7A-932E-A15042700F5C}{644AECBF-1E64-43B2-A2B3-B46€32B030} dCreatablAiFalse „P€redeclaDIdДTru "E`xpose@TemplхDeriv–Customiz‹DOption 0lici@t Pub€ dšn€Ђ$, ppfad$€ €.€ Sub cmdSchlieпen_Ck()  UnloadD MaEnd  Žж‚Ц Dim dummy, i% For i‰0 To ListBox1.Count -„ 1 If‡Selected(i) Then _Ч lblFe€hler.CaC?УŠB$ " &B;€ЧJ€ХNex@IA:'B+@'Shell("C:\Programme\MDT6\acad.exeТfil‚ЂAuswahl .PathР"\C FileСА, vbNormalNoFocusу@Y—USucР:‹UR;€ЈТKtxtEingabe02.T@6 <> ""‚LClџF\џLџ Lџ`#DџHџ! ЄHџ h/Dџ)pџHџ6\џLџlџpџ! Єpџ l>lџ1@џpџ l@џћ0Я T8q l@џ ћ0щ  T8qєџpvџ pџ! Ќpџ @pџpџ! Єpџ  pџѕpџ! Єpџ @pџ5lџpџ! Єpџ lllџJHџ! ЄHџ 8/lџ)pџHџ/@џЊ pџ! Ќpџ @pџpџ! Єpџ  pџ kvџєЦ*!ѕ”8*F\џ §ч45\џ”4ћ=*&'\џ4M0џ@pџ! Јpџ Hpџ5\џѕ'\џ §ч45\џиџL0,*@џxџ$lџDџpџHџ\џLџˆT xџ! Єxџ hxџxџ! xџ hxџxџ! Јxџ LxџT$ xџ 4 8LH@XP% Сœ lLeng€o= џ€9dKЧВZb|3+џVэЏЁС~пb’ 0vє№K1c`…ЕAeШ Orф]= †{CNМH(2R’mGaD№o WhА}ї•w"G(Act№›CР„.Offset(i,x 0)$е˜r‘iќ +Гюv6ё !pLoop“pб P' lstAnp[geМ01С@TаЈ2б CПs’ UserБq_InitialiDzeЁ BeePWЦi <И .Zb‡П`:‰d„VC€wОrу С“Љ PЊf QueryClрГ(ч|Integer, ‚Mo „@~TtŒд)&Me.Hid›­pб P' lstAnp[geМ01С@TаЈ2б CПs’ UserБq_InitialidzeЁ Wi@мЗ ќ .њ‡ 9‰ы„і C wrƒ С“АЈБ PЈЉ QuePryCl€Г(‡|Integer, љ‚Mo@„р}TŒдЩ%Me.Hid;­РРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРhˆ(х €8txtEingabe02Ъ",ѕ €2dlblEingabe1ЇЇ(х €DcmdSuchenMЕ+*"(х €DcmdжffnenMЕ+* (х €LcmdSchlieпen+*1(х € 8txtEingabe01Ї",ѕ €2@lblFehlerMЕЇ'$х€4ListBox1Ї VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1 Caption = "Datei іffnen" ClientHeight = 3810 ClientLeft = 45 ClientTop = 345 ClientWidth = 7755 StartUpPosition = 1 'CenterOwner TypeInfoVer = 21 End ўџ џџџџ№i*ЦмЮž˜ЊWJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.1є9Вq@+ррр&€Bitte die Vorrichtungsnummer eingeben:Ž#{З€@УМArialЎ*џџР€SuchenЎь і ї€@УМArialЎ*€џ€€жffnenЎь ї ї€@УМArialЎ$+џ €Schlieпenaь і ї€@УМArialЎ€H€,#„З€@№МArialЎ`€$#ь 5€ЅTahomaЎ€H€,„З€@№МArialЎ*ррр€Label1ЎŽ#{5€ЅTahomaЎ‚ƒ„…†ўџџџўџџџ‰Š‹ŒŽ‘’ўџџџ”•–—˜™š›œўџџџžŸ ЁЂЃЄЅІЇЈЉЊЋЌ­ЎЏўџџџўџџџВГДЕЖЗИЙКЛМНОПРСТўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ$ ррр }o5@`ˆ,ѕ €2dlblEingabe1ЇЇ(х €DcmdSuchene1+*Ї(х €Dcmdжffnene1+*E(х €LcmdCancele1+*т$х€ 8TextBox1Ї"$х€4ListBox1іь $х€ 8TextBox2E",ѕ € 2<lblFehlere1ЇeN T8q l@џћ0щ T8qєџpvџ pџ! Ќpџ @pџpџ! Єpџ  pџѕpџ! Єpџ @pџ5lџpџ! Єpџ lllџJHџ! ЄHџ 8/lџ)pџHџ/@џБєџptџ pџ! Ќpџ @pџpџ! Єpџ  pџkvџєЦktџєЦХ8!ѕ”8 *F\џ §ч45\џ”4ћ=8&'\џ4M0џ@pџ! Јpџ Hpџ5\џѕ'\џ §ч45\џц€€L@,8@џxџ$lџDџpџHџ\џLџ0 ќЦ    Lєџ„ ў € $ 4 8LH@X\\џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџˆџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@MEџџџџџџџџџџўЪ€Ьa^џ ф*\G{000204EF-0000-0000-C000-000000000046}#3.0#9#C:\PROGRAMME\GEMEINSAME DATEIEN\MICROSOFT SHARED\VBA\VBA332.DLL#Visual Basic For Applicationsж*\G{C094C1E2-57C6-11D2-85E3-080009A0C626}#1.1#0#C:\Programme\ACAD2000\ACAD.TLB#AutoCAD 2000-TypenbibliothekИ*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\system32\stdole2.tlb#OLE Automationр*\G{780BEC00-F0C0-11D2-A232-00C0DFECAEE4}#2.0#0#C:\WINDOWS\SYSTEM\MSForms.TWD#Microsoft Forms 2.0 Object Libraryф*\G{47FCE94D-6897-41F5-AF2D-56E96D0A391A}#2.0#0#C:\WINDOWS\TEMP\VBE\MSForms.exd#Microsoft Forms 2.0 Object Libraryс.E р….`ŒM Д џџџџџџžюs@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ ѓThisDrawing 5f4073ee9e*Dџџгыџџ Modul1 764073f33b*Dџџd0џџџџ џџfrmDateiOeffnen 7a4073f38d*Dџџs;01џџfrmStartmodelle 644073ee9e*DSџџЪѓHTџџUserForm1 5c4073ee0e*DeџџЗп`џџx˜џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ,QRž‹bJœOh7ˆЖyџџџџi;pй†nC€šUНW Юџџџџ=5›?b Ii–bb•џџџџF(:iAб LЁЪЅ0кіžџџџџ.зYё(ЩKЏQПџ.oџџџџџџџџ LоѓWw3џџџџџџџџh€k{џР4 €џAs.€џDebug=€џDimG€џEndS€џFalseU€џFor`€џIf|€џMeŽ€џOr’€џPrint–€џPublicГ€џThenД€џToЕ€џTrueС€џWith AutoCAD"ј VBAїтWin16С~Win32MacГВ ACADProjectІдstdole“` MSFormsC ThisDrawingЙ5 €џџџ_Evaluateй Modul1ЭЌ(FileOpen и frmDateiOeffnenДShowѕcmdSchlieпen_Clicklнcmdжffnen_Click—RdummyD lblFehlerЯЉCaptionx txtEingabe01мfilDateiAuswahlD6FileNamejУShellVзPath2vbNormalNoFocus‰ЧcmdSuchen_Click Л txtEingabe02мUCase5 AddItem‡ SetFocusёЦ Form_Unload•ЙCancelё˜Hide9ztxtEingabe01_LostFocusŠЬ dateinameOSelStartчZ SelLenghtNУ ActiveCellНЗOffsetшЊi` lstAnzeige01g9 frmStartmodelleB cmdPart_Click‰Doc˜„DocumentjгCATIAЊ  DocumentsМcmdProdukt_ClickBcmdSchliessen_ClickfrProdukt_Click– UserForm1)жUserFormN lblEingabe1ЫЗ cmdSuchenј: cmdжffnenУФ cmdSchlieпen^‚UserForm_ClickлјUserForm_QueryCloseј CloseModeиŸUserForm_TerminatelD€џClickŠу €џџџLostFocusMS €џџџQueryCloseTє €џџџTerminateyL AcadDocumentZListBox1›ы _B_var_UCaseaЮ€џџџ_B_var_filDateiAuswahlзlisbox1эD€џџџ_B_var_lisbox1qH€џSelectedYЃ €џListIndexїQ€џList*“auswahl>Ф €џџџ_B_var_forjL €џListCount6 €џџџ_B_var_IfPђ€џџџ_B_var_dateinameЫHcmdEndeд%TextBox1ІSTextBox2ЇScmdCancel_Click\е cmdCancelЭLabel1,TextBox1_Change=ч ReturnBooleanщe TextBox1_ExitяYtxtEingabe01_Exit,q €џSelLengthўФ€џValueфK€џџџ_B_var_lstAnzeige01Уrpfad,—UserForm_Initialize5c €џџџInitializeгNflag1хncmdPartы` cmdProduktШ cmdDrawingа=Frame1Й frProdukt5Frame2Й cmdSchliessen_"flag2цnClearуЭBeepУ UserForm2*жtxtEingabe01_Changeл€џChangeЃЧџџxџџџџџџ џџџџ џџџџџџџџџџeџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџSџџџџџџџџZ