ࡱ> *(Ende"uTahomait(Sichernt{uTahomant,cob_OKnt"uTahomant(AEH, {coxStrange5Tahomant$AEH, {coxDNant5Tahomant,AEH, {coxAusfuerung5Tahomant(cob_VarA{uTahomarA(cob_VarB{uTahomarB(cob_VarC{uTahomarCAH, {5TahomarC+,rung Auswahl der Hauptgruppe'[BewagAufma.xls]Gruppen'!aHauptgruppeT H'coxNebenGrung "Einzelteil oder Kombinationen auswhlen02plbl_AuswahlTextg < @txx_MengehlT? Menge eingebent, 28 lbl_Einheitb&( # fra_Bogenitbk"<  @\p Gerhard Gille Ba=DieseArbeitsmappe=Z<-8X@"1Arial1Arial1Arial1Arial1Arial1Arial1@Arial1'Arial1@ Arial1 Arial3#,##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\ "DM";\-#,##0\ "DM"##,##0\ "DM";[Red]\-#,##0\ "DM"$#,##0.00\ "DM";\-#,##0.00\ "DM")$#,##0.00\ "DM";[Red]\-#,##0.00\ "DM">9_-* #,##0\ "DM"_-;\-* #,##0\ "DM"_-;_-* "-"\ "DM"_-;_-@_->9_-* #,##0\ _D_M_-;\-* #,##0\ _D_M_-;_-* "-"\ _D_M_-;_-@_-FA_-* #,##0.00\ "DM"_-;\-* #,##0.00\ "DM"_-;_-* "-"??\ "DM"_-;_-@_-FA_-* #,##0.00\ _D_M_-;\-* #,##0.00\ _D_M_-;_-* "-"??\ _D_M_-;_-@_-                                       ` INI11-Test-Massen_M-R-A.xlsZusammenfassungMassen nach Zng. -011Massen nach Zng. -012 Rohr-Anstrichintern RohrlngenAufmaYYYYY Z aStrangZIndexStrangZNEUZ?VLZ@KLBZ@RLZ@EleZ@ElZ @Z @YYACER:! aStrang;Blatt_DN: # Blatt_HauptGr: " Blattkennung:CAD4: DatenDatei:# internesBlatt:& MusterStrang;  PreisBlatt: PreisDatei: PreisPfad: ZusatzWahl: `iZR3  @@  U(( HauptgruppeNameInhaltACERaltCAD4 PreisPfadE:\Projekt-Massen C:\_Daten\_Projekt\-Massen-Bewag PreisDatei PreisBlattSchlsselBlatt Schlssel BlattkennungBlattTypCAD5)K:\nurCAD5\_Vorlagen\-Office\EinzelmassenPreislisteRohrbau-2006.xla_2006intern\Name des Arbeitsblattes in der Preisdatei von Vattenfall, wo die Arraynamen hinterlegt sind.XName des Arbeitsblattes in der Preisdatei von Vattenfall, wo die Preise hinterlegt sind.Name der PreisdateiPfad der Preisdatei Blatt_HauptGrBlatt_DNIweitere Blatt-Namen der Nebengruppen werden in der Hauptgruppe genannt...cox-Wahl internesBlatt DatenDatei1Der Dateipfad ist der selbe wie der Programmpfad.>Name des Arbeitsblattes mit den DN-Angaben (in der DatenDatei)?Name des Arbeitsblattes fr die Hauptgruppe (in der DatenDatei) ZusatzWahlSchnellHName des Arbeitsblattes mit den zustzlichen SchnellauswahlmglichkeitenuName der Datei, in der vernderliche Daten fr das Programm abgelegt sind. (vorbergehend war es das Programm selbst)MFeldname zur Klrung, um abzusichern, dass das Arbeitsblatt vorformatier ist.iName des unsichtbaren Arbeitblattes fr die interne Datenablage des Aufma-, Zuschnitt- u. Massenblattes.RDer Name des Aufmass-, Zuschnitt-, und Massenblattes steht im internen Datenblatt.AufmDat2010.xls*: ~0T&\ @ (>EsG  dMbP?_*+%/,&LIng.-Bro G.Gille&R&F | &A Ausdruck vom &D&)\(?'zG?(zG?)ffffff?M HP Color LaserJet CM1312 MFP S(C 4dXXA4+DINU" ZV SMTJ HP Color LaserJet CM1312 MFP Series PCL 6InputBinFORMSOURCERESDLLUniresDLLHPDocUISUITrueESPRITSupportedTrueHPPCompositeUSBGetSerialNumberhppdvq01.dll_getDeviceSerialNumberWHPPInstallTimeConfighppdvq01.dll_getDevicePPMDuplexerWHPPCompositeUSBFilehppdvq01.dll_getDeviceSerialNumber_getDevicePPMDuplexerResolution600dpiFastResFalseOrientationPORTRAITHPOrientRotate180FalsePaperSizeA4MediaTypeAUTOCollateOFFHPMediaTypeTreeviewPopupTrueColorMode24bppTextAsBlackFalseTTAsBitmapsSettingTTModeOutlineJPEGEnableAutoHPEnableGrafitCompressionTrueHPRequestObjectTagDumpFalseHPRequestNullStripCommandFalseHPHybridRenderSwitchHPHybridAutoAlternateLetterHeadFalseHPPaperSizeALMConstraintsA5PrintQualityGroupPQGroup_1HPDocPropResourceDatahpzhl5k4.cabHPColorSmartAutomaticHPColorSmart_ColorOptions_EdgeControlNormalHPColorSmart_ColorOptions_HalftoneSmoothHPColorSmart_Text_NeutralGraysBlackOnlyHPColorSmart_Graphics_NeutralGraysBlackOnlyHPColorSmart_Photo_NeutralGrays4-ColorHPColorModeCOLOR_MODEHPPDLTypePDL_PCL6HPPJLEncodingUTF8HPJobAccountingHPJOBACCT_JOBACNT_COLORAUTHHPBornOnDateHPBODHPJobByJobOverrideJBJOHPXMLFileUsedhpc13126.xmlHPEnableObjectTaggingTrueHPReverseScanLinesForDuplexTrueHPEnablePageTimerFalseHPEnableNullStripsTrueHPEnableEfficientMonoFALSEHPEnableImageProcessingPathFALSEHPCallToWritePrinterRequiredTRUEHPMemoryManagerTrueHPGetCompressionRatioValue17MaxStripHeight64HPGetByteAlignedValueForWidth256HPGetDeltaRowHalfToneValue1HPManualDuplexDialogItemsInstructionID_01_FACEDOWN-NOROTATEHPPCL6PassThroughTrueHPManualFeedOrientationFACEDOWNHPOutputBinOrientationFACEDOWNHPManualDuplexDialogModelModelessHPManualDuplexPageOrderEvenPagesFirstHPMapManualFeedToTray1TrueHPManualDuplexPageRotateDriverRotateHPPrintOnBothSidesManuallyFalseHPNUseDiffFirstPageChoiceTRUEHPPageExceptionsFileHPZPE5k4HPPageExceptionsLowEndHPPageExceptionsLowEndVerHPPageExceptionsInterfaceShowPageExceptionsHPPageExceptionsCoverInsertionHPPrintInGrayScaleFalseHPPngPassthroughTruePSAlignmentFileHPZLS5k4HPSmartHub_SupportandtroubleshootingTRUEHPSmartHub_ProductmanualsTRUEHPSmartHub_CheckfordriverupdatesTRUEHPSmartHub_OrdersuppliesTRUEHPSmartHubInet_SID_263_BID_514_HID_265HPConsumerCustomPaperTrueHPEnableRAWSpoolingTrueRGBColorDefault-sRGBHPPhotoFixLaserOFFHPRedEyeReductionOffHPSmartFocusOffHPContrastOnHPDigitalFlashOnHPSharpnessOnHPSmoothingOnHPMHDLLNameHPFIE5k4HPPreAnalysisTrue IUPHxNAo!!%H$7/\ڃh(DnDۃD #=4Wpzmz֛^Y B 3;3L2 3RNh!G) ӱ$ 0|\ׇ^ٟ{c [(m|LԤQ! =Ktkh4wvfBWI}tCZ9$ r^ZƧ/gTeڕj9FHk&[ID-QyNbdD4܆yb/>~fs5YH(Z4=+"$^uvR rUj>K=^"NgĻRߺNr^STyKe*ڑ5Co2~^[m `;|*GQFw|]B^EIsoz{Oz\,Hn(wئʭ˴3 3ǯg.(B<;y;7iSl[qi< " d= ףp=?p= ף?U } $ } m/} +} } $} (@@@@ @ @ @ @ @@@@@@@@@@@@@      $!p=C,)K:\nurCAD5\_Vorlagen\-Office\Einzelmassen                ' #        ! "            $   %  &DlF04444&444&44& !"#$%&' !"#$%& ',0(  l  s *'8  @(L]`'8M  <Die fettgeschriebenen Angaben sind Feldnamen und werden von dem Programm in der Datei Aufma.xls abgefragt. Die kursiven Angaben sind die bereitgehaltenen Informationen. < F\`ll  s *@(8  @ &]`@(8N <Die Arbeitsbltter "Aufma", "Rohrlngen", "Massen" sind entsprechend ihrer Aufgabe formatiert. Da es sehr oft vorkommt, da mehrere Bltter vom selben Typ angefertigt werden, erfolgt die Blattkennung zuknftig ber den Feldinhalt von Feld "BlattTyp". Je nachdem, welches Arbeitsblatt aktiv ist beim Programmstart, verzweigt das Programm in die entspechende Routine. In dem "INIblatt" werden die relevanten aktuellen AufmaBltter namentlich benannt. Diese knne dann eine Kopie sein. Allerdings mu der Blattname dort angepat werden. Die entsprechenden Feldnamen lauten so, wie hier unter "AufmaBlatt", "Rohrliste", "Massenliste" vereinbart.<m1J(,/2V4w-PN[_8hlIwD>@7 Tabelle5 DieseArbeitsmappe$bas_Start 58BTabelle5__SRP_8(  !"#$%&')*+-/0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdfghijklmnopqrsuvxyz{|}~Dr}'@#<NaqJ0Fuh;FXxuh;FXNaqJ0ME(SLSS6"N0{00020819-0000-0000-C000-000000000046}(%H@h % %Xp@@0cM$*\Rffff*;04d2880e94 xpʰAttribute VB_Name = "DieseArbeitsmappe" " Bas0{00020819-0C$ 0046} |GlobalSpacIFalse dCreatablPredeclaIdTru BExposeTemplate`DerivBustomizD2Option /licit T}|#<feFȱ\K FWQIJ[xWQIJ[feFȱ\KME %  B U  4 ,X B $P B  6P ( >P "0 > 0 4 8 0(      H   6   -0< h8 -p Jh TpN  P4 -XX`jZ1 P6 (- P+  : @x4----------------------------------------------------sRohrListe = ActiveSheet.Name Obj]!IniArbeitsblatt als Objekt]$ok Programmdatei]x&Programmpfad enthlt auch die InidateiBlatt_DN 2%"!`$^'0Pfad]bisher verwendete Nennweiten L!'6,Name des Aufmaprogramms.0 P!'@,*Datei, in der das Aufma eingetragen wird.senI*an dieser Stelle ist die IniDatei geffnetFoIniBlatt.Visible (xlVeryHidden) Das Iniblatt wird unsichtbar gemachtoIniBlatt.ActivateActiveWindow.Visible = TruetA................................................................. $B@rt\td+Programmabbruch wegen Fehler am Aufmablatt' (is 'tHVCMsgBox "Die aktive Datei enthlt kein Blatt ' " & sAufmBlatt & " '" ffnetto4----------------------------------------------------@sMassenBL = ActiveSheet.Name' L!N\'8,'Pfad in dem sich das Programm befindet.x ]Iniblatt des Aufmaprogrammsle).Wo( internesBlatt 2%"!`$^'weiter-Programmabbruch wegen Fehler mit der Inidatei' ']#angezeigter Stil der MsgBox-Meldungjf(]Pberschrift der MsgBox-Meldung&L&Die aktive Datei enthlt kein Blatt ' B  ' '&R/Programmabbruch wegen Fehler in der Aufmadatei' '   A@vbExcla   A@vK)L Die Datei 4 lt sich nicht in dem Pfad  8 ffnen "'Fehler   A@v-81\MsgBox "Die Datei " & sIniFile & " lt sich nicht in dem Pfad " & sPrgPfad & " ffnen """LRtNMsgBox "Das Aufmablatt wurde nicht als solches erkannt! (ist '0' in DNist ?)"pzEDas Aufmablatt wurde nicht als solches erkannt! (ist '0' in DNist ?)'z @h   A@v '].Merker um die Blattkennung abfragen zu knnen. Blattkennung 2%"!`$^'$.....aktuelles Arbeitsblatt erkennen$Das aktive Blatt wurde nicht erkannt'  %"!`a e%BlattTyp: Zuschnitt erkannt..........Typ:,Blattkennung / Blatttyp wurde nicht erkannt.'!BlattTyp: Massen erkannt.........S(----------------------------------------n(======================================== AufmaBlatt %"!`$^KT]P3}zxME@HF(x64*T * <X0 2p, "P Jh ,,XB8` \4 <' X 0 R 0  FR`  Z@ L H "`  Z >P&6  &0 X Bx  D N H$6&6p   Z N ^0 J*6U  N( N Tx(6 :  J8h D *> P 4  P,   h 4@ > (7X : J Fh2 ( "variable Fehlermeldung ber MsgBox-Case Trim(oIniBlatt.Range("Rohrliste").Value) !'B$X] $.ok aktuelle Arbeitsmappe, mit dem Aufma-Blattte)6Programmabbruch - aktuelles Arbeitsblatt nicht erkannt'0LIf Not (bas_div.ffneXlsDatei(sPrgPfad, sIniFile)) Then GoTo Fehler_IniDateiungen *### in der Testzeit ohne INI-Datei #######)Das aktuelle Blatt ist ein 'Aufmablatt'.' ##########+Fehler - Kein Blatttyp-Vergleich trifft zu.'! B @$X%Z.!p!] $*ok INI-DatenBlatt in einer zus. Datendatei""#] 8$'ok INI-AblageBlatt in der Programmdatei3sINIblatt = Trim(oIniBlatt.Range("INIblatt").Value)ei#$$d0t(&]Eaktuelle AufmaZeile, ZeilenMerker fr den Beginn am letzten Abbruch.an"/Case Trim(oIniBlatt.Range("Massenliste").Value)ei0#] $ ok Aufmaarbeitsblatt als Objekt<Set oZuschnitt = Workbooks(sAufmFile).Worksheets(sRohrListe)<sFehlerTXT = "Das aktuelle Blatt ist ein 'Rohrlngenblatt'."8sFehlerTXT = "Das aktuelle Blatt ist ein 'Massenblatt'."8Set oMassen = Workbooks(sAufmFile).Worksheets(sMassenBL)H##8...Den Merker BlattTyp mit dem aktiven Blatt vergleicheneg<...Obj-Variable fr das Aufmablatt, fr effizienten Zugriff`'] @%4internes SteuerDaten-AblageBlatt in der AufmassDatei0(] $6ok internes Steuerdaten-Ablageblatt in der Aufmadatei(()] (ok Aufmablatt.@)TSet oIniBlatt = Workbooks(sIniFile).Worksheets("INI") event. spter extra INI-Blatt(  @$X%Z.ernBlaD...Die Variable sInternBlatt wird spter fr Pfadangaben bentigt...gttt =( 6'4,%vorbergehend ist PrgFile das IniFilet Pr*INI 4$X%Z.2VsIniFile = "AufmaINI.xls" 'Datei, in der weitere Vereinbarungen stehen.G...internes Iniblatt in der aktiven Aufmass-Arbeitsmappe vereinbaren...W...Der Name dieses Arbeitsblattes steht in der Inidatei.Blatt-INI.Bereich-internesBlatt@...Objekt fr den kurzen Zugriff auf das allgemeine INI-Blatt...enH...die Blatterkennung. Damit wird sicher gestellt, dass das Programm aufH...In der INIDatei.Blatt-INI.Bereich-Blattkennung steht der Feldname frN...eingerichtete Arbeitsbltter zugreift (Aufmass-, Zuschnitt- u. Massenblatt)(4...In dem internen Blatt ist in dem Feld-AufmaBlattC...der variabel vereinbarte Name fr die Blattkennung hinterlegt...@...Der BlattTyp von diesem Blatt entspricht dem Aufmablatt.....P+ ,/...das Form fr die Aufmaerstellung starten...,=...die Namen der Arbeitsbltter in der Datendatei vereinbaren,8...den Namen der Datendatei aus dem INI-Blatt bernehmenG...die darin aufgerufenen Bereiche stehen fest und sind nicht variabel. DatenDatei 2%"!`$^'h,]!'Inidateiname fr variable Pfadeintrgen] $/ok Arbeitsblatt mit DN-Arrays (frher cox-Wahl)-] `"4ok gewhltes ArbeitsBlatt der Nebengruppe als Objekt.] $8ok neue Strangbezeichnung zwischenspeichern bei bergabe8`. ...die DatenDatei ffnen........rg 8 h R%TGdj<an dieser Stelle ist die DatenDatei geffnet, da kein FehlerFNicht genau definierter Fehler - Die DatenDatei lie sich nicht ffnenA@v-C...Das Aufmablatt aktivieren, da ein anderes aktiv sein knnte.... @$XB@b/>...von jetzt an darf kein anderes Blatt mehr vorne liegen.....00B...als Stringvariable, weil diese fr Pfadangaben bentigt werden.Q...***...INIDATEI ffnen ...***.......=========================================== ZusatzWahl 2%"!`$^'f..T...***...INTERNES Blatt ...***........==============================================IsolieS...***...DATENDATEI ......***........==============================================KLBd`/2Cstartet das Aufmaprogramm mit dem Vattenfall-Preisverzeichnis 2006p2] $>ok Blatt mit zustzl. Schnellauswahl (im INI-Blatt vereinbart)p2Aufmaprogramm20Attribute VB_Name = "bas_Start" Option Explicit 'Aufmaprogramm -0 P$ubW oTss As Object 'ok tarbeitsblatt al +kFNebenGrFDgew`hltefHB!Hder gruppe,InternQ-i,Steuerd@aten-ATgeVin 3cji~s.${' -D-G -ss-NIcoxP-\INI)  wL*File) EeinW`zus.  ZoInic+ps' rAnfr variable Pfad9trgen%#'p` enthluch die dMNIB1AC3dJs+GW$w".zAZe`b&v'I B, nMerk?Aden Beginn am letz@ Ab br e DNvo rh 'bisG\wendeNennw$k#'Dum"Fabfra+`k knnensFehler8TXT2meldL MsPgBox!nRgeSTIL'YTgVil# -M#sTITlELd'W`Zrift Sub mainn( h'!.Cc`aaInvok@e_Func! \n14'sܺe aª@Venfall-Ps/ois 2006 a l ThisWorkbook.bC'"O/@]Path & "\"¿m s` db@fiD '6iAq "X.xLlsT 'Zi, te%rU+steG T>Fz',A#gd ist TI d1 Acti|ve ! DgeU!.wird Q#1'..0.***PpDATEI ff@0 .=!r '###Test"t o kRj !If Not (Qdiv.BXl|( , )) T@ GoTo 8_RIP8?sېGlUdCR gebs kt JkurzZugP9f aufR1gem@WЄ"FRS5d= 5s( .1A`Mets(""_qenPdntigt0r!ssԯ_ge("B@_DNks"atzA"Sve[TERNES [[o[//?P hnss렼m 8e*a DWWVEPQtb. -pP.-5  D[VT$JO[ gte sInternBlatt = Trim(oIni.Range($"iesP").Value) Set ^ Workbooks(sAufmFile).(sheet*I'...In der INIDatei.p-.Bereich-kennung steht1Feldname frMdie /er1. Damit wird sOlge#llt, dass Programm auf&eirtete Arbeit sblt} zugOft (y#-, Zuschnitt- u. M enb?zL v 's?& gDas U߃aktivi@YnB @; ances  skn@j.zAc@ovon jetzt@Wrf kB9 mehr vorne lie8genCA..@!uell#^ venBsTITELzeE"qabbruch V-2nu a7"Fehle0rTXTAIb /Ctyp wur(de .zAn!geSTIL@vbCriticalBOn Error GoTo m@@s kaQ'#Select CasieSA|Q|cA0Den M,rThde dF8verglt1B`BefŋPO"U m na ist@m'ld-variabelF  Obar xNą dń h" legti Do! Z@s b entspr"I!#k.. :Rc'('J "#= bm8 AObj-Vlb› , effizi9Z |ifÞ `= ~eA('*@Rohrlݠ9e?" -:t{b* +'?+@F"+B+'saLv+ '" # #`"4 x##N#& ?#R+ZsBLO C?o%ElPJ'- sT_K"%[-VJ tr/Vt0|G6 YgEnd0rT =O 2:?'-f0   FormR?Ker"#QCwfrm_?߀.Show RBke k:MsgBox, vbExclamatio0z=tC\,`[q2WhltÅb ' " + S+'z*  τgAńwA{hrdC&R'$"D t " & & H ^b!̠whals solch#! (R '$0'DN?)_Ltt^ $ Οwam?+/+C*PP" ltTi!m Phfad_r P rg"ffnz"" b#ӯ#MVy=?b 444ni37%//o IT/nC/5Nau@finϡcb8Q߉Ss# ` SubWjUU(SLSS6"N0{00020820-0000-0000-C000-000000000046}(%H0h % %8p@@cM$*\Rffff*194d29b69f4 xpAttribute VB_Name = "Tabelle5"  Bas|0{00020820-; C$0046} |GlobalSpac False dCr@eatablPredeclaDIdTru BE xposeTemplateDeriv$Bust0omizD2Op tion /licit rU h 82912422`rU @n }k4L}IOYGr'2_YLEc.2T NLO__SRP_9,Bfrm_StrangNEU . __SRP_4e__SRP_5tZY^N3H!9xY^N3H!9}IOYGr'2_MESPSSS>"<0<< LL<4<8<<<0{AA66592B-B85C-462A-9224-DCC00A4AF515}{3B856558-D62E-4296-BB2E-FCE7989ED65B}h 0(%X0 % %N% XP`XJe i 10i tr Z`Xke i PNPrr @x @h @X 0bri `hp  @x @h @X @P0pPcM$*\Rffff*5;4d4033d1*\R0*#1d*\R0*#1e*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#4448<@D "  ,P)( .)8   0 " .)  @( PxpoPo NA@r NA@rh%...Eingabe bergeben an eine VariableK N!P(`(...ohne Vernderung abbrechen und zurck'...Eingabe in der Textbox zurck setzen...Men beenden...Men beenden... N!P!`'b N!P(`Attribute VB_Name = "frm_StrangN EU" Bas0{AA66592B-B85C-462A-9224-DCC00A4AF515}{3:6558-D62E-42 96-BBFCE7989ED65B} dGlobalSpaco False Cr@eatablPredeclaDIdTru BE`xpose0TemplateDerivCus tomizDOp tion 0licit P"& Sub cobUebernehmen_Ck() '...Eingab(e gn @an einaDri6 seuq.txxeu.Val.in der Textbox zurck setzen"@p"Men beendUnload  EndCF! Doh>errung abbrechen u@ ,+^,rU 8KAHK da91Y1~4I~ 8~`  <~`I@)DI ! q aW0   H):hNXXx$ x x5XVx$ x$H$ xX8<PrU P$`$A`n0* pHd VBAProject4@j = frm_Aufma aY_VBA_PROJECTs%dirw__SRP_0 Z;4cob_Ende!/Programm beenden@ 8cob_Speicherndenz-Datei speichernn@ 7<cob_OKdez-EAuswahl bernehmenru( HcoxStrangich$DcoxDNKde", LcoxAusfuerungrnnqX 8 -cob_VarAg flexible Position mit VariationsmglichkeiteniH 8 cob_VarB flexible alternative VarianteH 8 Jx>8:+Dh ><h<:0DB`<#Lh(D/$p7 JD "    @ " 4 L $ H Bh 0  H@`  (  H  *8 J8 x : 9   h 6`9F99  p  (8   F ` > x  <    .x V   68   #t0#}5N7;IRvgux9щh2GA@X8BzJk7@MPi 0B˧Bz6#xME@SPSSS<|<<<<< <$<(<,<0<4<8<<<@@ph@%p %p%$%  `|FFi hfR@i p8 (0 `"@22  ( CCi  `@ i PPhi 99RH@i P(0R@@R@<@PB\ @Xp(0  `@ \\ R B@BL @Bl @R| @P @`@++t0x i R8@Rx @H t8`X0HPX`hRB @i @  ` +i ``he`R@i i i pRp @ `%i $@%%RD@  YH R4@i @p `@ P   @@  xp L`%  `x@ @XH @D @@ E48V#  B &   8$,% Bx >h !  <"&A" " J   <J 6 D">C ,p) P(N )  P/*op/  *8/.s@0( " ) H* "`*0* " * H* "*0* "+40<01 4/ BP+ 0+  8p1+Pp0  42 , 8, X,  + + 22&,2  + "1&1`2 &x,+ p2 >032 x2  + "1& 2H2  +  (, ,  F, 8- >P- -  <- -  .. 8. BP.4 Z..+ 6C">hC 2(  H ,`  + x  H+! #    x p? pp? p? pP@ p@ p0A pA pB pB pB "P 4 <  d> :F)Lh>:  ^0  0N5 b= :.4 (D=HP= 2> :.4:J :< $`8 T5 @@6 @;.46P;6  \:( 6 6  <( <h < b< x;.4`F(< 0p< 4 `"*4 p" B` *4P; X8 ;0"";@P H 2 X."";hp X0Exp $A@r...Programm wird beendeto@oPXP....coxDN (fr Stahlrohr aDN, fr KMR aDNkmr...9rq $!@25q '[ h]Hauptgruppe'!aHauptgruppe9F9rq( $! =9rq`'[ h]Stahlrohr'!aSt_Abzweig9F!8B...coxNebenGr (Nebengruppe) Achtung, die BlattNamen sind variabel,+Abhngig von der Hauptgruppe.!!!...........eryCloR...coxHauptGr (Hauptgruppe) die Auswahl beeinflusst die BlattNamen der Nebengruppe.=== Das sind alles NEU-wie-NULL-Einstellungen,`o`EMit der ComboBox wird ein Element aus dem Array aHauptgruppe gewhlt.@ber den aktuellen Wert von Listindex erhalten wir die Namen vonH@o5((wenn das Aufmablatt noch nicht angefangen wurde?))xEMit der ComboBox wird ein Element aus dem Arraycob_VarCz-g flexible alternative Variante( 8coxVarNahtun  Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frm_Aufma Caption = "FW-Aufmaprogramm 2010 - angepat an die Vattenfallpreisliste" ClientHeight = 2220 ClientLeft = 45 ClientTop = 330 ClientWid aNebengruppe gewhlt.?Der ausgewhlte Name wird nicht bentigt, aber alle Positionen,- dem Arraynamen fr die Nebengruppe und6? dem ArbeitsBlattNamen in dem sich dieses Array befindet.ox@Mit der ComboBox wird ein Element aus dem Array aStrang gewhlt.+Bei Wahl des ersten Elementes (Listindex=0)t' wird dieser als Strangwert bernommen.di"Bei der Wahl jedes anderen Wertes,HoDN-Merker gespeichert.t aup  h$X%Z.2 wird $!~!Z '`)...ZeilenNr in der Hauptgruppe (Index +1)<...Den Namen des Arbeitsblattes fr die Nebengruppe auslesen=...Den Namen des Arrays fr die gewhlte Nebengruppe auslesen    aListeNebenGr Hauptgruppe h$X%Z%"%!`' =...Den Inhalt der coxNebenGr aktualisieren................... '[ h] '!  $!(F 4...berprfen der Auswahl ob Fehlerbehaftet.........  aHauptgruppe Hauptgruppe h$X%Z%"%!`-"...falsche Eingabe erkannt........d k ...gltige Auswahl...X    aBlattNamen Hauptgruppe h$X%Z%"%!`'  'Z  $!~(Zwe...Fehlermeldung...ig )die Auswahl der Hauptgruppe ist ungltig und wurde korrigiertA@v 4Listindex und der Merker werden je um 1 reduziert... h p 9die rechts von dem Namen stehen mssen ausgelesen werden.M...die Anzahl der auszulesenden Felder (rechts von der gewhlten Nebengruppe) 4...das aktuelle Datenblatt als Obj-Variable zuweisensm ] 6im Blatt NebenGr: absolute ZeilenNr der gewhlten Pos.  2%'Poxan das Aufmablatt bergeben.und (...Merker der Zeilennummer def.Zeile %"!'dk   dESmtliche Werte wurden vorher in einem Merker erfat und werden jetzt   2%'g   ,onkB...Die einzelnen Artikel und Leistungen aus der Nebengruppe werden<Position fr Position zeilenweise mit den jeweiligen brigen*Angaben in das Aufmablatt eingetragen....@J kann ein beliebiger neuer Wert als Strangbezeichnung hinzugefgt werden.]@ /im Blatt-NebenGr: Zahl der auszulesenden Felder] ;aus BlattHauptGr: Name des gewhlten Arrays der Nebengruppe] 8aus BlattHauptGr: ausgeles. Arbeitsblatt der Nebengruppe]P 9im Blatt-HauptGr: intern Zeil.Nr Array HauptGr (Index +1)] -Merker fr den Inhalt des gewhlten DN-Wertes] 0Merker fr den Inhalt des gewhlten StrangWertes] -Merker fr den Inhalt des gewhlten LM-Wertes] ,Merker fr den Inhalt der eingegebenen Menge  o ODie Ausfhrungsart Liefern und/oder Montieren oder Demontage zu % Montageanteil/wird hier ausgewhlt und im Merker gespeichert.Px5...Den Inhalt der Auswahl in den LM-Merker ablegen...\Ch<...den ausgewhlten StrangWert im Strang-Merker speichern... DMit der Combox wird ein Element aus dem Array aDN gewhlt und in dem6...die ausgewhlte Nennweite im DN-Merker speichern... <...coxAusfuerung (Liefern und/oder Montieren oder Demontage)2...den Auswahl-Beschreibungs-Text aktualisieren...  2% $!(0HX $!<!Z aStrang %"%!`'..'[ @]  '!aStrang9F!qA...Schleife mit iAnzahlPos, um je Zeile eine Pos. einzutragen....]X &Schleifenzhler fr die Spaltenabfrage`!...Der Strang-Wert wird bergeben   '!beginnt in der 4.Spalte zu lesen)   ,en] 6Artikel- oder Leistungskurzbezeichnung nach Preislisteen) <...Die definierte Zeile um eins erhhen (Zellname versetzen)mass.rP] 4Zeilenposition zum versetzen der def.Zeile im Aufma?...Die Nennweite - einfache DN-Angabe bezieht sich auf das Rohrp def.Zeile= B!R  C1 @$X!B@ def.   ,   , ,,,  aIndexNebenGr Hauptgruppe h$X%Z%"%!` $!(ZmBlatt  ,`H5...cob_VarA ( 2. variabler Um-Schalter fr div. ) '%5...cob_VarB ( 3. variabler Um-Schalter fr div. )5...cob_VarC ( 4. variabler Um-Schalter fr div. )- $!($$- $!(- $!($$ ber- nehmen $!(...cob_OK Schalterbeschriftungq'[ h] f '!aZusatz9Fz 9rh*...lbl_AuswahlText Textblock fr HinweiseqStck $!(X...lbl_Einheit zur Mengenangabe (Abhngig von der Position, kann m, Kg, Stck, m sein)PL...Die Voreinstellung List-Index fr die Position in der Nebengruppenauswahl Bfrm_Aufma.coxNebenGr.ListIndex = 0 ' = die erste Position+...wurde in der Hauptgruppe vereinbart.....-0000-@ X :...einfacher ist es nur den List-Index weiter zu geben.... $!@!Z'5...wurde gendert, da der Ausgabewert zu gro ist....rm_A-...Prfen, ob die Auswahl fehlerhaft ist.....dk...die Auswahl ist korrekt...%2...falsche Eingabe erkannt........Fehlermeldung...G...absolute ZeilenNr der Auswahlposition von dem Datenblatt wird erfat   2%-  2%  2%"!die letzte Auswahl ist ungltig, bitte noch einmalA@vSchn"`$ x/8...Die Ausfhrung als Liefern und/oder Montage bergeben 0...Die Menge jeder weiteren Position ist immer 1"ox# $!!`'`#$0.00  %((8#5...Die Menge unter bestimmten Bedingungen eingeben...@#H#$'[ h] 0'!aDN9F!>('[ h] 0'!aLM9FM  $!>!Z aDN 0 h$X%Z%"%!`'$|sLM = Workbooks(sDatenFile).Worksheets(sDnBlatt).Range("aLM") .Rows(frm_Aufma.coxAusfuerung.ListIndex + 1).Value$X$$ '...Die Menge der 1. Position bernehmen P...der Wert (sMenge) ist immer ein String und mu zur Zahl konvertiert werden...p$ X  ,(%+...bernimmt den Eintrag aus dem Mengenfeld $!!`$8()d$k$B...Sicherheitsabfrage, ob ein numerischer Wert eingegeben wurde... $!(`($0'8&=Sie mssen eine Zahl eingeben. Die Eingabe wird auf 0 gesetztA@vP& $!<!Z2...Auswahl steht auf "Neuen Strang-Namen eingeben"k&@...in dem internen Arbeitsblatt gibt es einen Bereich "aStrang".I...Am Ende diesen Bereiches kann man jetzt weitere Strang-Namen eingeben.`% NB@r=  ' $!> 9Z4 = DN 25 $!<!ZiStrang %"(`5...den letzten eingegebenen List-Index-Wert speichern 'Zeile einfgenM7]x .absolute Zeilennummer um eine Zeile einzufgenp'"Rows("17:17").Insert Shift:=xlDown(h(`)(p)`*P*)**aStrang %"!!: $!<(ZP+`) Neue Zeile vor dem Ende einfgen B %B@< = o)'b boo ;...es wurde kein neuer Wert als Strangbezeichnung bergeben:\Wd)k/Abschlu der Eingabe fr Neue Strangbezeichnungd#wieder im Bereich vorhandener WerteDO )...die neue Strangbezeichnung einfgen...aStrang %"%!aStrang %"!!:  'B\ baStrang %"!!: aStrang %"%(`DO(<MsgBox "count = " & oInternBlatt.Range("aStrang").Rows.Count% +Bin der vorletzten Array-Zeile die neue Strangbezeichnung eintragenHDie Box bentigt eine Aktualisierung des Strang-Bereiches in der Anzeige*iStrang %" $!<(Z :...aber die alte Auwahlposition soll wieder erscheinen....+@...die Maeinheit der ersten Pos. aus der Auswahlreihe ermittelnP-,  R%* $!( 0,+,,,'[ h] f '!aBgFlink9F!,P-8-] =absolute Zeilennummer fr die Positionauslesung flinker Bgen(Z,,oP0I...die Zeilen-Nr. bei der die Bogenpositionen ausgelesen werden knnen... $!!Z aBgFlink f h$X%Z%"%!'&schnelle Vorauswahl der Bogentypen....9`(7##### Excel springt nach private Sub txx_Menge_Change()hl.6 o8.o(.A...diese Auswahl wird mit der Vorauswahl des Bogen-Typs verbunden...und sofort bernommen...A...diese Auswahl wird mit der Vorauswahl des Bogen-Typs verbunden...und sofort bernommen...@-o@/] +Anzahl der bereitgestellten BogenPositionenngrupp<Position fr Position zeilenweise mit den jeweiligen brigen*Angaben in das Aufmablatt eingetragen....' RTRTn S   ,.   f h$X%Z%'in...Merker der Zeilennummer def.Zeile %"!' ...nur die Rundnaht wird gezhlt  ' !...Der Strang-Wert wird bergeben   , ?...Die Nennweite - einfache DN-Angabe bezieht sich auf das Rohr   , 8...Die Ausfhrung als Liefern und/oder Montage bergeben   , 5...Die Menge unter bestimmten Bedingungen eingeben...0.00  %(( '...Die Menge jeder Position ist immer 1ti  , <...Die definierte Zeile um eins erhhen (Zellname versetzen) def.Zeile= B!R  C1 @$X!B@)....Die einzelnen Artikel und Leistungen werden$...Zahl der einzulesenden Positionen()Zsp f h$X%Z%"!'"!J...die Spalten-Nr. bei der die Bogenpositionen ausgelesen werden knnen...5]p 6absolute Spaltennummer fr die Auslesung flinker Bgen    f h$X%Z%'     5+beginnt in der Spalte iSpalteZ +1 zu lesen)p5.90A@.45A@5]@ &Schleifenzhler fr die Spaltenabfrage]-Schleifenmerker fr Kennung 1. oder 2. Spalte2...Schleife, um je Zeile eine Pos. einzutragen.... ...Artikel-Name auslesen....   f h$X%Z%' ...Artikel-Name auslesen....p   f h$X%Z%'   , RNdX4kP4    ,    ,-...Merker fr 1. und jeden weiteren Durchlauf ,...Artikel-Name auslesen mit Bogenangabe....8...dieser Artikel bentigt ebenfalls eine Bogenangabe...`3 ActiveWorkbook.Names.Add Name:="def.Zeile", RefersToR1C1:= "=" & sAufmBlatt & "!R" & iZeileNr & "C1"@8  $!!Z   h$X%Z%"%!' P86...Das Eingabefeld fr den neuen Strang-Namen aufrufen'[ @]  '!aStrang $!<(FusX8 {ActiveWorkbook.Names.Add Name:="def.Zeile", RefersToR1C1:= "=" & sAufmBlatt & "!R" & iZeileNr & "C1"ogen wx86Hinweistext zur gewhlten Position und Folgepositionen $!(88N...coxVarNaht nach der Artikelsektierung kann die Schweinaht gendert werden.2:je Selektierung kann eine andere Schweinaht aktuell sein.'[ h] f '!aVarNaht9F!q78selbe Auswirkung =`9'8setzt ".Visible" = falsex9,...hat die AuswahlPosition eine Schweinaht?9  R%'8:] Zeile der Schweinhteg  d(:k : H...die Auswahl enthlt keine Schweinaht. Variable Nahtwahl deaktivierenfo J...die Auswahl enthlt den Index der variablen Naht fr die Voreinstellung  $!(Z $!(vah $!(Z $!(vti89$...Artikel-Name bedingt auslesen....C...die Voreinstellung der Schweinaht knnte verndert worden sein.ellaus 3...i=5 gilt nur fr die voreingestellte Schweinaht /...iSN>-1 = Die Schweinaht wurde verndert.... w   ,hth:<<  aVarNaht f h$X%Z%"%!`'=Ufrm_Aufma.coxVarNaht.Visible = False 'nicht jedes Teil hat eine Schweinaht<@q $!= $! $!9Z, Auswahl frei:Vorsicht, die ausgewhlte Position wird sofort bernommen.9pabe@= $!9Z+ = Rundnaht^H= $!<xx9Z, = 100% L&M@= $!~xx9Z, = Stahlrohr Abzweig9Z, = Stahlrohr Abzweigcob_h=9rp=iStrang %"9Z@% = NEU hier springt Excel ganz raus@)springt zu private Sub coxStrang_Change()[...coxStrang ############################################################################9Z(6##### Excel spring nach private Sub cox_Bogen_Change() 9r(:und wieder zurck in diese Zeile ########################\...cox_Bogen (Typen) (jetzt ComboBox fr schnelle Bogen-Vorauswahl) ########################]...txx_Menge '#################################### Excel-Fehler ???? ##############9d(=und wieder zurck in diese Zeile ############################h;+...coxZusatz zustzliche ComboBox fr !!!!?i----------------#####################################################################--------------------j################---------------------------------------------------------------------#####################i----------------#####################################################################--------------------j################---------------------------------------------------------------------#####################i----------------#####################################################################--------------------j################---------------------------------------------------------------------#####################i----------------#####################################################################--------------------j################---------------------------------------------------------------------#####################i----------------#####################################################################--------------------j################---------------------------------------------------------------------#####################; 811.Sprungziel von Excel ##########################80################################################ 812. Sprungziel von Excel #########################80################################################<03.Sprungziel von Excel #########################</###############################################BD "##############" zeigt die Fehlerzeilen......................... PEڷAttribute VB_Name = "frm_Aufma"D Bas0{29E9D888-0E0B-4C2B-9EBF-FD549C778E50}{B.6060-9CAA-4B6A-A8A0-BE0C0F476F06} dGlobaBlSpacoFalse Cre atablPr@edeclaI"dTru BEx0pose0TemplateDerivCustomizDOption 0lic it Dim iZaHau`ptGr% '% B6t-: intern Zeil.Nr A rray  (Index +1 )-s NebenGr$/'aus -geles.+beitsb der gruppK-sAcO A s gewhl(ten.sWiAnzahlPosE: Z @0zu@0eAn Fel.YBg3F'CBber@>g estel)Bo(gen@ inenHOZ_NemmMG'absolӁmenmTB.sStrangj\ 'MeDrkbfr*n InhaltIUWertes9DNLDNr- LM ` wurd+vorhin&em dHerfat @und wej. 'an das .sdU;N#D,zeln:R9`)pNjhD+ &"miRn jeli, brq$Anga@rv ge@Y@#odE 1gk, :jh:6.;AFor i@4 To w + 3'beginnt 4.SF P5en(  324$9GuMBo"ss.R0he("K").Ro>wwaU~berdYt sD6dPVovnsvF=aht k eaT 7rt wzoR&s$a 5I"fr5 A(iSN < 0 Thzeq i=5 gi`snur"."P@"n`g Us5*= oD.Cs(i, iA Nr, 3)=;ER&r SN>-1@3 C;W 8 Workbooks(sD`FnFile).AQsheet`Zu3#!aVarN") _Q"P+ 1).Val!Q9p"u|nd If7 †VH1Rc',Nenn+##-=fe G`#E0^zie-s 01fERohro(59, 2b )52LMgGuun stimmAB?@["5U (4`).Num`bPmat-"0.00aK4?R>a133 qE1.nedhmA..o (s) Q %Mimu߀W"rkonti?`tiNCD|bluO@j`rip 1Ҷ4) = 1  End If '...Die definierte Zeile um eins erhhen (Zellname versetzen) 'ActiveWorkbook.N,s.Add  :="c.\@", RefFToR1C1:= _ J  "=" & sAufmBlatt "!R%iPNrC1" FEs(Fk")lK+ 1MNextTSubʃPriva coxAusfuerung_Change(&'hAsa rt LiZn und/oder MontzuDemage 0zu %Bant)'wird h ausg@ewhlt im Merkgespeich=.2A-Inha &wahl inn LM-ablegen@wurde gen t, da r gabew,gro ist @sLMDOnAshe$et@Dn).RQ"aLM") .Rows(frm_a. `.LI(x z).Value @@faE( es nur>-C0weitP_gebAD2A33 AGHauptG"rmGMit+ComboBox > Element? m Array agrupp4B%0bd`?aktu W5vo>i"&πC` d!1ȠiZc"GrO+6BGrE# &prf "eob Fehlerbehafta]aC$If ]"\`_$\"-" T@Çc'~fals`^0 EinAukannBtA'AhB_8BP@|aHj1 reduz A /-e92= c1meldKMsgag"Y9*"`ltig "& "!kor8rigܧEls %/geRV: D&0d0]R2bu5e?lesen5Q8/(le).QW(U }Y;"`ZXoV1 =s6Cke NCPm s!b ted ] fPe$ q5hu i Walis"d)+041?Sourcea>'[—&t]!O !,'!Bw ]Vor`gstc`2str)PositidY `nQ/kS4\ᬰbRW n:\=OWA=?2 OZ%ioom6ra+'?=0'%QЬEAg܌ddQͿrPD[p%Cant: P\@r al en,c 'rechtsg11n .AmLs@VVgeI p.Tp*das: 9[ps Obj-Vari𱰥[Set o?[<[<absolu}pE:Q1 erfaߴ!i^Z_NeWWah141\/-+-`sP, f›lF.COs(Y, 3OrmEZ_NeGr, 3) = "" Or _ oNebenGr.Cells(iBl attZ_0 0Thenjv'...falsche Eingabe erkannt2Fehlermeldung<MsgBox "die letzte Auswahl ist 2ltig, " & "bit7noch einmal" ^+korrekQElsenzGder auszulesenden Fi (recht@s von gewhltgruppe)3\iA*Pos??g-BBereibs-Text aktualisierenfrm_Aufma.lbl[.CaHpti1= %123L%qMa`heitCersAB:.AO.,@AolEu('bas_div`.MassD4\*ha(+#(iB>/e Schweinaht? nSN@l ,ss L5LIf i< E;t# enthlt kM#. Variable N'w{ivz +cRcox.LkIXx0rVJ!= F@~`eciUW!Y#agvn fr AwVoEn Ill\G`/Trund IfiE$!aSubc!9+'#)PrXiva@ ?Strang_Che()w'3.Spr@-zielqExc v 'M~Combowirda El emZdm Array a# D.Bei WC[s"es (%:iW=0l'  a" beliebig neuWer ls bezeichn hinzugefgt wer`QIRjed-a@ es,d Bdi t bernom c.+s sHaAhĕ `"huf "NŠn-Na ^gijm0 intp iArbpZsb~ gibt `!Gn BӐcP "$" Am -e9prman j|PiU' ^sP I" ADasՆf0xcB aufruf1dEU.ShowgQ0 A`wu#Z QrR" `R_'b!O PsOa`a^posiajsoll@' )r1inB~ 1g/& iQoI .RbA"i"5;] dka(5_" 'Zeil '2'Rows("17:17" ).Insr[rsn3W-FQ:g=3a?8y o)o`Value@w8tD(g0M1 A_\oc.೰P4spQn}bg44#Sourc L W"'[" & sFq/]*"'!UWSO,=Oo,e2?'Uc0P OI 0W'AbPlu""4|J#q'wiRimFm7 ~ԁLdowq P-Mpsp3tn*P+. 3/*+ K2ac  '...den letzt8eingegeben0List-Index-Wert speic@hern oInt Blatt.Rax("iStr").Value = frm_Aufma.cox<.]\MEnd Sub bPriPvate 9DPN_Chd)4'Mit der Combox wird Element ausm Array aDN gewhlt u7 in%DN-MHerk&gett.ie*"e NennweiQim ! gs?= Workbooks(sDnnFile). sheet5 n)[") _$&.RoHws( DN + 1E'#, t_Bogenu '2. Sprungziel von 8Exc@V 'schnelle Vorwahl {r type^n@g@x d@wZecn-Nr. 8bei  po`sitiogeleswerkn@3iZ}ZusL}BgFlink~TC%CÂ`Spal~usi A\Zsp Colu6mGZ%7@{zu;..P1C#.Bg?.lfQk+CGs(8, %_ob_Bg45_Click(Mse AusR–mDUsU-Typs verbe#8sofoɠbomJP"fAHeBonE in@ n ".4|5"&a+t9^0nra90Cǭ2 (sBgInGr(ad$2Di%o'Schle`ifenz@fr habf* j m K 1. obrc a+8'begin"}rb1+1 zuPZ1jQvP"nnu9rcENr0oґssdef. Q[Q1Sgct Caj2Isp1#-Nam#l nЕpwqs'??^MTN`r, 3)P v& V; +2us 6Zc If "RN" Th5]I nusFR )nahtgeaHt _pElse_ Osp-u Btigt fallss>$ o o `N/uplI8:! $ k1!_?!!A2??el7 |RA#DCݲR1b9ck-!fa f0P-sf dqfRohR2yDN0f(hr1va)Li,efp/wMont /rt5rLMGQryMe dpstimmABed`s{}&;4).NumrmatQ"0.0_ՐჃ!mrAxition ist immer 1  oAufmass.Cells(iZeileNr, 4) = '...Die defini erte b um eins erhhen (Zname versetzen) JActiveWorkbook.N,s.Add  :="c.\@", RefFToR1C1:= _ J "=" & sBlattq "!R mCL1" !Cs(FE)hI+ 1KNextREnd Sub x '#,Privaz txx_Menge_Cha() '1.Sprungziel vExc@ Aber ntn Eintrag ausm Bnfe ldB SicheitsabfA e, ob $nuis WgegebwurdeA3@If IsN c (frm_.>.Value) T sB'·  G ElseGMsgBox "Smss(c@ahl.-. Fgabe wirdHf 0 get̷`f0f"0PIf#RS'- M?#  NY, ?cm01` ,~-- +muqPigUserFoXInitialize(H'=== Das siralles NEU-wie-NULL-`Rsthen,D((w`enn dp]bnoch ndt mfAn Bb?)4@c&a 4_v/# p-FehlP? [3A!With \glci!]7# 3 springt na}}G.T` 'u d zurck iih$OweS1Plbl_`h}  do(Abhngig1Pos"on, kaPm, Kg, St , m s u .Capt=xpk AuswyE Qblofr Hinweis5r"dtge`whlte Folgep en cox_Bog (Typй (j`t Cpombo n p3e -VorP)* }+&S) .RowS ource%"'[sD0n"]"ZusV'!aBgFlink T L Index10g0 [0.P s90~0gG03G0@ atz/stzl!Wx' 0Խs m0'4/ Me"i.Cool8Tip5 "P)sZ, d* 0 0sofo(rt on.g t14 /..cob_OK Scha7rbe2rift`f? IEܐ- nehm9VarNahdZ!MArtikekt@MA pFngep/wen. 'je Selektierung kann eine andertchweinaht aktuell s@.With frm_Aufma.coxV8arNbF.RowSource = "'[" & sDatenFile "]ZusBlattQ'!aO"PLPistIxP0 f'Rund8Fs10pEnd h'v.Visibb= FalseF'nicjedes Teil hhatS/idSNJ-1 'setzt "@"fA)%% lbe Ausw8irkC'.R.@yb_eA ( 2. varia?r Um-5alter fr div. ) O.Caption@."-yUB3;BC4;CxStra #?FXC2r!y rIn9nir ]ro.R`e("iD)ctNEUh springt Excel ganz rxaus/%'Q% zu ` v 0Sub _C>h(U#_xDN ([Stahlrohr aDDN,b]KMRkmrd02DNeDJ1DN03 A/`250;64"fuc(Liefer$n `/o MDonen Demage-#?G  @$LM $+ #100% L&M^ Hau@ptGr (gruppe)`E be flusstiNam#$Neben # g:G]hpu .u#/AbzPg "_$ _$ex!X) Ash,=sindTgel,'Abhngi8g vex.!!!9%W7Ǐjo "]`xSt___6 '_:21 ]O sB WorksheetsFehler_AufmaDateisTrim@ValueKActivate|Fehler_AufmablattFormulaqYFehler_Rohrliste WorkscheetsFehler_PreisdateieRight Fehler_Preisdatei_ShowEndeCMsgBoxRAuswahl_eintragenNsPfad?sFilu Datei_ffnennWorkbookk_Defaultj _B_var_TrimmT _B_var_Right9UserFormNLst_DN cmd_Strang z cob_ArtGruppe  cob_Artikel? lbl_Text1?O txt_Menge, lbl_Einheit fra_Bogen cmd_Bogentypcmd_Bg45cmd_Bg90cmd_Ende- cmd_Speicherncmd_bernehmenClicko_RListe _B_var_Set_B_var_Fehler_Rohrliste_B_var_Fehler_PreisdateiI_B_var_Fehler_Preisdatei_-N_B_var_Datei_ffnenV Worksheet cbo_ArtGruppeZ cbo_Artikel4Tabelle4U Tabelle31V sMeldeTXTT zAnzeigeSTILP sTITELzeile vbExclamationsPrPfadsPrsPfad sPrsBlattei oPreisBlatt[< _B_var_ifPFehler_Aufmablatt_2 o Fehlermeldung sBlattkennzDNvorh _B_var_On6 _B_var_Select'E ActiveSheet%N vbInformationn vbcritikal vbCritical+} sINIblattn sIAMblatt sIRLblattsI_ sIMLblatt sMassenliste  sMassenBLTabelle5V Tabelle11 Lix_DNB cox_ArtGruppe* cox_Artikel؝ txx_Menge cob_BogentypFcob_Bg45cob_Bg90Qcob_EndeFp cob_Speichernicob_Uebernehmen1( LixStrangQcob_Ende_Click>_UserForm_ClickUserForm_Initialize5c oSchluessel~ oPreisListeoAufmassU oRohrListe͜ sPreisListe sSchluessel3 sFehlerTXT InitializeN oMassenListeoMassenGSelectionChangen oZuschnitt3KeinBlatttyp Vergleichpstrifft _B_var_Error) _B_var_EndeI ComboBox1' oAufmassINIals.t coxStrangcoxDNÄ coxAusfuerung rowsorce]'coxT RowSource2aStrangAufma _B_var_Aufmah sAufmassINIz sQuelleStdd sProgrDatei4GINI6frmDP_BogenEinfach' coxDPNameD ListIndexQ sINIProgrx sINIcoxProgrcO sINIcoxAufm? sINIcoxDat}sDaten  sDatenFilc sDatenFile_B_var_sdatenfile;sDatFil_B_var_sINIcoxDat_B_var_sAufmFileyTabelle6W Tabelle211Tabelle7XTabelle8Y cox_HauptGr cox_NebenGrS coxHauptGr[ coxNebenGrv coxZusPos.coxHauptGr_ChangeZcoxNebenGr_Change"ChangecoxStrang_Change coxDN_Change sMcoxNebenGrq sRsNebenGr sCoxNebenGrAt iZHauptGr sBlattNebenGrvRowsU sNameNebenGr  Stahlrohr1 aSt_Abzweig8-und]wirdKwrdJwurdˋ korrigiertCwurdeEWT _B_var_EWTHLWTt _B_var_LWTmSheet[ _B_var_SheetHClear iAnzahlPossj zAufmZeileJoDaten  oDatenBox? oDatenBlattam *\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:\WINDOWS\system32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{CF3B75C3-15D0-4485-934F-506360EE094A}#2.0#0#C:\DOKUME~1\HRBB5B~1.GIL\LOKALE~1\Temp\VBE\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  cM}"DieseArbeitsmappe;04d2880e9"DieseArbeitsmappe'@bas_Start1;4d67d2cf(bas_Startzx3Tabelle5194d29b69fTabelle5| frm_StrangNEU5;4d4033d1Ofrm_StrangNEUk4P frm_Aufma1<4d67d4e1%frm_Aufma5`!pPx`YÇ๴sJ=3c*V@=BHr(֢N[&A:iKG$`!kDMki+#PWGeLt:LMloS[rZ0Ǥ<"V˒K 0avp[ AsCase=Dim@DoCEachDelseHendifTFor^Goto_IfbInjintegerkIsPublicsetSubThenToTruewithExcel+VBAWin16~Win32MacVBA6# VBAProjectstdole`MSFormsCOfficeuDieseArbeitsmappe _EvaluateTabelle1RTabelle2STabelle3TWorksheet_SelectionChange4TargetFRange  frm_Aufma߅cmd_Ende_Click  bas_StartmoAMBlattooPLBlatt oSLBlattoRListeG oIniBlattsIniFilesPrgFilez sPrgPfad sPreisFilesPrBlattsSLBlatt sAufmFile sAufmBlatt sRohrListes zAufZeiledsDNvorh!main, ThisWorkbook|Path2ActiveWorkbookbas_divI ffneXlsDateiFehler_IniDateiB Workbooku iZaHauptGr iBlattZ_NeGrRowCellsrimStr _B_var_Strcellcob_Uebernehmen_ClicksStrang~sDNCsLMjsMenge"coxAusfuerung_ChangeHlbl_AuswahlTexttCaptionx sInternAufm;G sInternBlatt oInternBlatt0i` _B_var_ForjL_B_var_i beginnt4der5Spalte zu,`lesensArtikel+iZeileNrS NamesοAddr RefersToR1C1cAufmaC1\_B_var_Workbook3_B_var_sAufmBlatt( cob_VarNahtcob_VarA=Mcob_VarB>Mcob_VarC?M coxZusatzr cob_OK_ClickScob_OKcob_ESC cob_ESC_ClickY_B_var_cob_ESCwoder~txx_Menge_Change SelectionZ NumberFormatR MassEinheitJ _B_var_case _B_var_SubsDnBlatt7coNebenGrisstr _B_var_isstr IsNumeric$*Count0vInsertrShiftxlDown0DiZeileώ _B_var_izeile9 celsComboBox\_B_var_ComboBox@4 UserForm1) frm_StrangNEUӄ txx_StrangNeu]cob_StrangUebernehmen] cob_zurck lbl_StrangNeu-cob_StrangUebernehmen_Clickcob_zurck_Clicka ReturnIntegercob_zurck_KeyUpWKeyCode sStrangNeuFFehler_DatenDateiH sZusBlatt_B_var_sZusBlatt+! ZusatzWahl_B_var_iBlattZ_NeGr1iSpalteControlTipText8ListRowsF Lix_BoegenoVisiblecob_Bogentyp_Click.Lix_Boegen_Click^BBg\BA\iZeileZi cox_Bogencox_Bogen_ChangeAC cox_Boegen"cob_Bg45_Clickגcob_Bg90_Click _flinkeBoegenEintragen< _B_var_DoiZBgPos/?ColumniiSpalteZsBgGradnjaTesteBereichsZugriffsDatPfadQsTestBereichName1 sDatBlatt!ciRowq strBereich/ raBereichY _B_var_EachcAreasKvbLfT%Address Calculatecob_VarNaht_Click9 coxVarNahtj"SchnellR; SchweissnahtpiR]iSN_B_var_Schnell> _B_var_withY sBgInGradK9O %)  Zr cM J< rstdole>stdole f%\*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\SYSTEM\StdOle2.Tlb#OLE Autom`ation^MSFor ms>SFErms$3DD452EE1-E08F-101A-8-02608C4D0BB4Dsystem32\FM20.DLL#MicrosPoft : ] Ob Libr@ary/;D1?t00}#0#kh0ACF3B75C3-15D0-4485-934F-506360EE094A6DOKUME~1\HRBB5B~1.GIL\LOKALATemp\VBE\U.exd =".E .`M OfficOfic5 22DF8D04C-5BFAAiB-BDE5KAA422PROGRAMM+ICROSOFT OFFICE\MSO97m" 8.0 n! }@DieseArbeitsmappeG,"1eeArb4i"sap@e*2 HB1B,'@+ bas_StartGa_ct r&2/3/z! 'Tabelle5Gס$l„5#i62ro |E frmrangNEUG .N# rngNEUMN2\/ "kz4#( g#AAufmaGGm_Hum +26d!5!3rU~~~~~~~~~~~dem Pfad   ffnen " nDie PreisDatei / Schlsselblatt verursacht einen FehlerVBE6.DLL   k  S    Tabelle11 0Variable 'sRohrliste' = SchlsselBlatt PreisBlatt#=h8+3qG?,2qL9Tabelle4 Tabelle31 AufmaINI.xls LL\  $(,04LTBJEj<2D*mM2Ѐ !k/'rF29-$PI'&ޖ\gpDkEG`( cbo_ArtGruppe cbo_Artikel`>/KRNeN   LDie aktive Datei enthlt kein Blatt '   ' ^Programmabbruch wegen Fehler in der Aufmadatei VProgrammabbruch wegen Fehler am Aufmablatt ZProgrammabbruch wegen Fehler in der Rohrliste # Tabelle5 ZProgrammabbruch wegen Fehler mit der Inidatei \Programmabbruch wegen Fehler in der Preisdatei ^Programmabbruch wegen Fehler mit der Preisdatei PP`  $(,048PX{/HlZ #2C#nfT[nNl_ g&Oؚo>熽@SP< QPJ0lQ hhx  $(,048<@DHLdhp INI Blattkennung INIblatt lProgrammabbruch - aktuelles Arbeitsblatt nicht erkannt XBlattkennung / Blatttyp wurde nicht erkannt. HDas aktive Blatt wurde nicht erkannta@$).U RDas aktuelle Blatt ist ein 'Aufmablatt'. Rohrliste ZDas aktuelle Blatt ist ein 'Rohrlngenblatt'. Massenliste RDas aktuelle Blatt ist ein 'Massenblatt'. DKein Blatttyp-Vergleich trifft zu.MU4Ef|18j'۳}G ) rbB(85Ja-$Kwc>E \Programmabbruch - Fehler in der Blatterkennung HArbeitsbltter wurden nicht erkannt. ^Der Name vom AufK*m rU ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~ ~~~!~"~~"~~ "~~~~~~"~~~~~~"~~~"~~~"~~"~"~~~"~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ܑ8~jC  e 3a Q}yqqiI9 VBAProjectDieseArbeitsmappeTabelle1Tabelle2Tabelle3 frm_Aufma bas_Startbas_divF /C:\PROGRA~1\GEMEIN~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA  a0F /C:\Programme\Microsoft Office\Office\EXCEL9.OLBExcel Y@0FC:\WINDOWS\SYSTEM\StdOle2.Tlbstdole  QP.E .`M C:\WINDOWS\system32\FM20.DLLMSForms 1`&DǃY, 2C:\DOKUME~1\CAD-UN~1\LOKALE~1\Temp\VBE\MSForms.exd 1pL-[DR .C:\PROGRAMME\MICROSOFT OFFICE\OFFICE\MSO97.DLLOffice !mainAuswahl_eintragenҋB ` DDP  $(,04FFF \ $BewagMassenINI.xls ffneXlsDatei  Tabelle1FF AufmaBlatt Range ValueActivate DNistFormula RohrListeWorkscheets PreisDatei PreisPfadt АA<2%LN*U̺Eѥi~+ǯׂ ,#OJDo ~LeLTȏ[qJ eUserFormVZ6oH5y" F3Dynamic  "ҋB `Lst_DN!-6S` q1{lFWJO cmd_Strang2ҋB ` cob_ArtGruppe cob_Artikel"-?@ lbl_Text1 txt_Menge lbl_Einheit?F` fra_Bogen cmd_Bogentypcmd_Bg45cmd_Bg90cmd_Ende cmd_Speicherncmd_bernehmencmd_Ende_Click x HDie aktive Datei enthlt kein Blatt $ Das Aufmablatt wurde nicht als solches erkannt! (ist '0' in DNist ?) Die Datei @mL @ : lt sich nicht in mablatt ist falsch in der INI. ZDer Name der Rohrliste ist falsch in der INI. ^Der Name der Massenliste ist falsch in der INI.  8Lix_DN cox_ArtGruppe cox_Artikel txx_Menge cob_Bogentypcob_Bg45cob_Bg90cob_Ende cob_Speicherncob_Uebernehmen LixStrangcob_Ende_ClickUserForm_InitializeFiRlBL F:qzUqFQ`eD4DF Worksheet @ aStrang3ҋB ` aDN aLMb *HL@ٗ, ll|  $(,048<@DHLPhltName VFehler - Kein Blatttyp-Vergleich trifft zu.\}D_(FV@4. lj7fZyB89E4M@:J+œ6'PK_R4 coxStrangcoxDN coxAusfuerung_]W[O!_! 6 8  | ]INI'! ]cox-Wahl'! pp  $(,048<@DHLPTlpxfeFȱ\KWQIJ[9,DEu<'{q@Eq%@3VJfྕgAHD^=}ͺ˵ˊKi 9 aStrangƏYl|E~fJ W2:% tt  $(,048<@DHLPTXpt| '[ xx $( ,048<@DHLPTX\tx ]Gruppen'!evnJjx ]cox-Wahl'!aDN xx  $(,048<@DHLPTX\tx6*ئ0*G>ת  ]INI'!aStrang ]cox-Wahl'!aLMTabelle6 Tabelle217i;ZNu#?D^s coxZusPos 4]Hauptgruppe'!aHauptgruppeTabelle7Tabelle8EBkn-4b!^aƂGR&P?%Lƈ{%h4GM*eL`+ 3 coxHauptGr_ChangecoxNebenGr_ChangecoxStrang_Change coxDN_Change 4::>MKֲ=="fe@'$SK 4<L aHauptgruppe HauptgruppeRows - Pdie Auswahl der Hauptgruppe ist ungltig aBlattName aListeNebenGr ] '!k~Lv^n!L1  Gu2D7CEz0F/H2NCě+)F#@0,?rq"FM* H PUf&TELdh,L]2NL7gHx==KW}W]QLȿ2VjNמ J  8<\bKfAԁ~;M1Olj*P D2/Zl )qIfBlHF6·IC| iK  aBlattNamen\OM-{ =H0Hr${WDI ˳׸' E+H$ P"vA{! L X Rdie Auswahl der Hauptgruppe ist ungltig (und wurde korrigiert^g؋cYNcV7fB@Ab> wOp݀ qrLm`Uh9HX>9} )O h S  HHL  $(,8<D ./BOѱcHIJOB+ 2kG=IRV#C6G]|j#?F_W,BlmS2Oϻ/pU?mN S}KTL]u&V3 (Inhalt Feld Anzahl = e I!DOdӣRJd K?$C3))J`?VcYOd}/UJ屮 U #+]Jcc_cvCh F#O6/L)k_CwtLpK`vE>M%̢ V  Cellsҧg]F|~v(K6ScujOfEN4o<cؙ췶Fƞ#m)F*^ T̴5ArGWlbl_AuswahlTextɬLӢBC`&0'ޑ YX (cob_Uebernehmen_ClickcoxAusfuerung_Change $$8<DHXh coxWahlsۤkH%WC;G2 ,A3 aIndexNebenGrIݗoc]cpRO38FuIyINbn{F ;x@poB CFByuԓOLʈ h 'cob_OK%hUG. #(HNٟFFx˩@#OAC>ë0vC6J i 'uߛ!FyתC|Mjo9Hs:&U}zAq)m|p#ʂ@9U?P| j )'+Lj 8d5 \Ht%2ML\?Q@5 aitQFWsM0^ l * Bdie letzte Auswahl ist ungltig, "bitte noch einmal ՝z ML'}HmB{-B0Oi{Sex3NȑI]Ɉ'KvH9U^ n +vMJI}L]b"GBɐ|e(?$ECQ$TJN|y?yfCDqc>4 9o +txx_Menge_Change 0.00NumberFormatد~LGV*Y L1i,ߨYGzGIoLYθOGe%^ NF%7 8S q -bA׉Ǘt M@EهK xFSS̍Vo@ )ɐM(GBp̩e 1r - MassEinheit PPT $(,04 @DL DatenDatei Blatt_DNoI5 '!aDN '!aLM KMR KMR1 2KMR1 m aKMRB:vcM6 nSie mssen eine Zahl eingeben oder das Feld bleibt leer 1 0/UNMNi:LT 0@6lDLV#lQwOM !w 0 ,,8<DHXh| zSie mssen eine Zahl eingeben. Die Eingabe wird auf 0 gesetzt count =  Countv?Fo iStrangy|l,L͹{>Jt @7\WPMQb+i{UޜkBɵLR3A/yyQה?UaG0; z #CjFzE'1K3?( >L?/OEnwXMljP%"{hK+ &IAKGM2p)t>mJi>`k),cM(EIxP F9LqJvK.C&/#(L$CH 7hV\^T|A$@Q" CѤDEt#J 6B%MRԡH"\ku Insert UserForm1 frm_StrangNEU!-2M,mgF'2[J_ Dc.2T NLOZ)G_mSb txx_StrangNeucob_StrangUebernehmen cob_zurck lbl_StrangNeuZSpQKZ- ) (1 P.`AgQD8@WȿXGjL Cx2-x "6[AZ='GnB~fLPꢼMgCUKkΌQe.MpiG р h1cob_StrangUebernehmen_Clickcob_zurck_Click TTX  (,048$DHPȏ.GVF@ UUL@?)jB fByKdgW{WAywBK8XNwU;%7ӎBG5 ʮn҈ƈM/bU a x3~6@I(<N^G0`e}IOYGr'2_YLEY^N3H!9RqD?8?  5*cf|@+1T$a?-MTAF FBg $(~ 3M{N&Jf+r MLia.^L,p8ğN"}mz  6X:B'3cU% Nicht genau definierter Fehler - Die DatenDatei lie sich nicht ffnen.?MFكHX,'FgpHe.gH{|Q/q&uNĄBAr4JAҹ ш 6 XX\  $,048<(HLT ZusatzWahl '!aZusatzB3I( ||"wMo ?ӈѱmLj@E ъ 8؜K*B{ StRohr YE X7{At:7N.S )6XKH$~0qP4fOyL[  @?lEWCCm\{%mMg H+/`>v @BYF) CBy"9_r6@G8 Ѡ F 4PreislisteRohrbau-2006.xls  :  Areas  Address  zZGELI͚y4Nu0B+;7M^ ɥ H '!aVarNaht StzN StzN.w SchN FN SegmN LN _RN _RNLTDNۘ24,A[NO;/AL@+K#lcџpvIrpk.gB5{MnFޏq')F(Ku J"  J ((8<HL\l|I(D˟JjyCNVZ'2N7;IRvgux9щh2GA@X8BzJk7@MPi 0B˧Bz6# , ,cAQsŔy> q (Ka"4IA +ʕ) Hak`y0+{Fɭ.r A hK__SRP_1frm_Aufma @rzJ@tzJf_o~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}  14sPfadsFil I  1 ( 98 H X Ih I x I  0I  q2 7I  :I  AI  DI  !II  AJI  KI  MI ( QOI 8 QI H OI X UI h VI x XI  ZI  q[Target \I  _I  AbI  hI  iI  kI  1lI  AnI ( aoI 8 9qI H YrI X zI h IwI x QI  I  I  фI  AI  I  I iZeileiSpalte эI  qI  I  I ( єI 8 II H I X I h əI x I sBgGrad I  I  YI  I  I  ѨI  I  iI X$  ^}3LR KQDBTahoma pI L'coxHauptG,AAEH, 1FcoxHauptGri5Tahomag(AEH, 1FcoxNebenGri5TahomagP(@lbl_AuswahlText = Hinweise zur gCompObjaVBFrameZfrm_StrangNEU@tzJ@tzJfth = 7545 StartUpPosition = 1 'Fenstermitte TypeInfoVer = 94 End @rzJ@rzJ$  }t R KQDBTahomaH` 4/txx_StrangNeuH, 5TahomarC(,Strang bernehmenru uTahomarC(zurckrCOuTahomarC`(PDie neue Strangbezeichnung wird in die vorhandene Liste immer ami08 n``@rzJ@rzJfoCompObjp )    ^  !"#$%&'(S,-P/01234?6789:;<=>.@ABCDEFGHIJKLMNOQRT]UVWXYZ[\`sbcdefghijklmnopqr_tuvwxyz{|}~Root Entry Fh `H@tzJ+CWorkbook#qM_VBA_PROJECT_CUR"!`hzJ@tzJVBA`hzJ@rzJew. Position und Folgepositionen15Tahomag @H,FMengeag5Tahomag(_Einheit#5Tahomait n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q(45uTahomait(90uTahomait,AAEH, FcoxZusatz5TahomaitAAH, y {5Tahomait(H  }g ld  49cob_Bg45OVorsicht, Schnellauswahl 45-Bogen wird sofort bernommen.d  49cob_Bg90OVorsicht, Schnellauswahl 90-Bogen wird sofort bernommen.h L:coxZusatzqVorsicht, die ausgewhlte Position wird sofort bernommen.( <cox_Bogeno4CompObjaVBFrame4PROJECTwm Ende eingefgt.vO5TahomarCrnnGeben Sie einen Namen fr den neuen Strang ein.\ H#cob_StrangUebernehmenpe; Eingabe wird bernommen und beendetH ;8cob_zurckNeuEingabe wird abgebrochen0 2lbl_StrangNeurnn Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frm_StrangNEU Caption = "Neuen Strang eingeben" ClientHeight = 1245 ClientLeft = 45 ClientTop = 435 ClientWidth = 4710 StartUpPosition = 1 'Fenstermitte TypeInfoVer = 8 End DieseArbeitsmappeDieseArbeitsmappefrm_Aufmafrm_Aufmabas_Startbas_StartTabelle5Tabelle5frm_StrangNEUfrm_StrangNEUPROJECTSummaryInformation("DocumentSummaryInformation8CompObj iID="{8AA9913A-536D-44CD-B67A-2AD712212A09}" Document=DieseArbeitsmappe/&H00000000 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=frm_Aufma Module=bas_Start Document=Tabelle5/&H00000000 BaseClass=frm_StrangNEU Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="7173BF45C345C345C345C3" DPB="BFBD71C5F15D3E5E3E5E3E" GC="0D0FC3935FE060E0601F" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] DieseArbeitsmappe=0, 0    , 0, 0, C frm_Aufma=10, 10, 1006, 545, , 66, 87, 1062, 622, C bas_Start=39, 49, 1035, 535, C Tabelle5=0, 0, 0, 0, C frm_StrangNEU=0, 0, 0, 0, C, 110, 145, 1106, 631, C Oh+'0HPh Gerhard GillexGerhard GillexMicrosoft Excel@q6@G8@6yJ՜.+,0 PXt | Ing.-Bro G.Giller INI Arbeitsbltter FMicrosoft Excel-ArbeitsblattBiff8Excel.Sheet.89q