аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ§џџџ ўџџџ-Rўџџџ !+#$%&'()*,.N/01L345@789:;<=>?2ABCDEFGHIJKўџџџMO_PQSўџџџTUVWXYZ[\]^`cabdўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot Entryџџџџџџџџ РFРЭvЪ§ЉШp•2ЋmЪ@<Workbookџџџџџџџџz/_VBA_PROJECT_CUR"АkУrCЪ€О{УrCЪVBAџџџџџџџџАkУrCЪtyУrCЪ ЉЭЩ‡сАСт\p stephan.woerz BАaР=гКDieseArbeitsmappeœЏМ=ЕџI\;=<X@"Зк1ШџArial1ШџArial1ШџArial1ШџArial1ШџArial1ШšArial1Ш šArial1Ш?МšArial1Ш4МšArial1Ш>šArial1ШМšArial1ШšArial1ШšArial1Ш<šArial1ШšArial1h8МšCambria1,8МšArial18МšArial1м8МšArial1Ш4š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\ _Ќ _-;_-* "-"??\ _Ќ _-;_-@_-рѕџ Р рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР р Р рѕџ ДŸ рѕџ Д­ рѕџ ДЊ рѕџ ДЎ рѕџ Д› рѕџ ДЏ рѕџ ДЌ рѕџ Д рѕџ Д‹ рѕџ ДЎ рѕџ ДЌ рѕџ ДГ рѕџ Дž рѕџ Д рѕџ Д‹ рѕџ ДЄ рѕџ ДБ рѕџ ДД рѕџ ДО рѕџ ДŠ рѕџ ДЙ рѕџ ДЄ рѕџ ДБ рѕџ ДЕ рѕџ ”ПП– р ѕџ ”— — – р+ѕџ јР р)ѕџ јР р ѕџ ”— — Џ р ѕџ дa>Р р ѕџ єР р ѕџ ДЊ рѕџ ДЋ рѕџ œ  š р ѕџ јР рѕџ Д­ рѕџ єР рѕџ дPР рѕџ дP Р рѕџ д Р рѕџ єР рѕџ д`Р р,ѕџ јР р*ѕџ јР рѕџ єР рѕџ ”ffППЗ ||>vLУ}<} _Ќ _-ef,##0}<} _Ќ _-ef,##0}<} _Ќ _-ef,##0}<} _Ќ _-ef,##0}<} _Ќ _-ef,##0}<} _Ќ _-ef ,##0}<} _Ќ _-ЬL,##0}<} _Ќ _-ЬL,##0}<} _Ќ _-ЬL,##0}<} _Ќ _-ЬL,##0}<} _Ќ _-ЬL,##0}<} _Ќ _-ЬL ,##0}<} _Ќ _-23,##0}<} _Ќ _-23,##0}<} _Ќ _-23,##0}<} _Ќ _-23,##0}<}  _Ќ _-23,##0}<}! _Ќ _-23 ,##0}<}" _Ќ _-,##0}<}# _Ќ _-,##0}<}$ _Ќ _-,##0}<}% _Ќ _-,##0}<}& _Ќ _-,##0}<}' _Ќ _- ,##0}Œ}( ???џ_Ќ _-ђђђџ,##0???џЌ _-;???џ"??\ ???џ_-@_ ???џ}Œ}) њ}џ_Ќ _-ђђђџ,##0џЌ _-;џ"??\ џ_-@_ џ}Œ}, ??vџ_Ќ _-џЬ™џ,##0џЌ _-;џ"??\ џ_-@_ џ}P}- _Ќ _-,##0Ќ _-;}(}. џ_Ќ _-}<}/ aџ_Ќ _-ЦяЮџ,##0}<}0 œeџ_Ќ _-џыœџ,##0}x}1џџЬџ_Ќ _-ВВВџ,##0ВВВџЌ _-; ВВВџ"??\ ВВВџ_-@_}<}3 œџ_Ќ _-џЧЮџ,##0}-}4 _Ќ _-}<}5 _Ќ _-,##0}<}6 _Ќ _-џ?,##0}<}7 _Ќ _-23,##0}(}8 _Ќ _-}<}9 њ}џ_Ќ _-џ€џ,##0}(}< џџ_Ќ _-}Œ}= _Ќ _-ЅЅЅџ,##0???џЌ _-;???џ"??\ ???џ_-@_ ???џ“ 20% - Akzent1’H’џ 20% - Akzent1 efлхёџ џ“ 20% - Akzent2’H’"џ 20% - Akzent2 efђнмџ џ“ 20% - Akzent3’H’&џ 20% - Akzent3 efъёнџ џ“ 20% - Akzent4’H’*џ 20% - Akzent4 efхрьџ џ“ 20% - Akzent5’H’.џ 20% - Akzent5 efлюѓџ џ“ 20% - Akzent6’H’2џ 20% - Akzent6  ef§щйџ џ“ 40% - Akzent1’H’џ 40% - Akzent1 ЬLИЬфџ џ“ 40% - Akzent2’H’#џ 40% - Akzent2 ЬLцЙИџ џ“ 40% - Akzent3’H’'џ 40% - Akzent3 ЬLзфМџ џ“ 40% - Akzent4’H’+џ 40% - Akzent4 ЬLЬРкџ џ“ 40% - Akzent5’H’/џ 40% - Akzent5 ЬLЖншџ џ“ 40% - Akzent6’H’3џ 40% - Akzent6  ЬLќеДџ џ“ 60% - Akzent1’H’ џ 60% - Akzent1 23•Гзџ џџџџ“ 60% - Akzent2’H’$џ 60% - Akzent2 23й—•џ џџџџ“ 60% - Akzent3’H’(џ 60% - Akzent3 23Тжšџ џџџџ“ 60% - Akzent4’H’,џ 60% - Akzent4 23ВЁЧџ џџџџ“ 60% - Akzent5’H’0џ 60% - Akzent5 23“Энџ џџџџ“! 60% - Akzent6’H’4џ 60% - Akzent6  23њРџ џџџџ“ "Akzent1’<’џAkzent1 OНџ џџџџ“ #Akzent2’<’!џAkzent2 РPMџ џџџџ“ $Akzent3’<’%џAkzent3 ›ЛYџ џџџџ“ %Akzent4’<’)џAkzent4 €dЂџ џџџџ“ &Akzent5’<’-џAkzent5 KЌЦџ џџџџ“ 'Akzent6’<’1џAkzent6  ї–Fџ џџџџ“ (Ausgabe’t’џAusgabe џђђђџ џ???џџ???џџ???џџ???џ џ???џ“) Berechnung’z’џ Berechnung џђђђџ џњ}џџџџџџџ џџ“*€џ’$’џDezimal“+€џ’,’џ Dezimal [0]“ ,Eingabe’t’џEingabe џџЬ™џ џ??vџџџџџџџ џџ“ -Ergebnis’N’џErgebnis џOНџOНџ“.Erklфrender Text’B’5џErklфrender Text џџ“/Gut’4’џGut џЦяЮџ џaџ“ 0Neutral’<’џNeutral џџыœџ џœeџ“ 1Notiz’d’ џNotiz џџџЬџџВВВџџВВВџџВВВџ џВВВџ“2€џ’$’џProzent“ 3Schlecht’>’џSchlecht џџЧЮџ џœџ“€џ’&’џStandard“4 мberschrift’=’џ мberschrift I}џ%“5 мberschrift 1’J’џ мberschrift 1 I}џOНџ“6 мberschrift 2’J’џ мberschrift 2 I}џџ?ЈРоџ“7 мberschrift 3’J’џ мberschrift 3 I}џ23•Гзџ“8 мberschrift 4’<’џ мberschrift 4 I}џ“9Verknќpfte Zelle’P’џVerknќpfte Zelle џњ}џџџ€џ“:€џ’$’џWфhrung“;€џ’,’џ Wфhrung [0]“<Warnender Text’>’ џWarnender Text џџџ“=Zelle ќberprќfen’†’џZelle ќberprќfen џЅЅЅџ џџџџџ???џџ???џџ???џ џ???џŽXŽTableStyleMedium9PivotStyleLight16`…*Tabelle1…<,Tabelle2…л-Tabelle3ššЃЃŒ11ЎССgцќџcc––Bх››ŒŒ——Ԙщ7хЩЙдqШыї1™ ЉЭЩ Џ+  dќЉёвMbP?_*+‚€%џСƒ„&[4ЎЩd2щ?'[4ЎЩd2щ?(Š<ќ§~я?)Š<ќ§~я?Ё"џԘщ7Š<ќ§~п?Š<ќ§~п?tœ&œє~U >Ж@‹‹я7К Tabelle1ggџџџџD ЉЭЩ N-  dќЉёвMbP?_*+‚€%џСƒ„&[4ЎЩd2щ?'[4ЎЩd2щ?(Š<ќ§~я?)Š<ќ§~я?Ё"џџŠ<ќ§~п?Š<ќ§~п?œ&œє~U >Ж@‹‹я7К Tabelle2ggџџџџD ЉЭЩ э.  dќЉёвMbP?_*+‚€%џСƒ„&[4ЎЩd2щ?'[4ЎЩd2щ?(Š<ќ§~я?)Š<ќ§~я?Ё"џџŠ<ќ§~п?Š<ќ§~п?œ&œє~U >Ж@‹‹я7К Tabelle3ggџџџџD DieseArbeitsmappe$џџџџџџџџџџџџ"—__SRP_2џџџџџџџџџџџџФ__SRP_3 џџџџgTabelle1џџџџџџџџџџџџл ўџџџўџџџ !"#$%&'()*+,-ўџџџ/0123456789:;<=ўџџџ?@ABCDEFGHIJKLMўџџџOPQRSTUVWXYZ[\]ўџџџ_`abcўџџџefghijklmnopqrstuvwxyz{|}~€Bas 0{00020819ъ-0C$ 0046} |GlobalкSpa‚cIFalse dCreatablPredeclaIdЖTru BExposeTemplate`Deriv’BuРstomizD2P€€ Sub Workbook_Open() ' Zurќcksetzen des Kontextmen@ќs auf n Ursprungsz2and  Application.CommBars("Cell").Rаt4Erzˆeug2ein38neu€6 tragesƒ-Dim PXC,2, COSTS, @SHOWDO@CostSQL, OBJ, ExArtNr As ХЧ C2rolƒCxSetС€`-s.Ad;With‡C…@.CapС?€"ShowStаammd@]n€“ ™С.FРB€46ŒOnAcуBeg€inGroupРУyХEnd (ЧџE>@J@ 8>GТ3 >Object=м37Œ =СkЮ <_"етEп@Vnt€DёDПзя.gЛ['Г ’Qd–У9/€ge iОnp^ ж4 LЋ™Є юŸu{ џeq”noДLц oђ.T…c yаt |abƒ€†kœkHќK_ ПikT\# З‘€Š‰ џџ№џџџџџџџџ%џџџџƒўџџџџџџџPџџџџџџџџџџџџџџ%‚ џџџџўџџџ€rU€€€ 0бЁљ!Iq™ 1Y‰С A ‘ С Y Љ ! I ‘ ЩёџџџџЁ$4Aaiџџџџџџџџџџџџƒ` џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџіМP8`џ:dџ%tџxџ! xџ dtџ H`џ м)xџtџ`џcЄў'Јў%'Иў%'Шў%'иў%'шў%јў`џ:dџ%tџxџ! xџ dtџ H`џ „јў $QЄўќќPџ)xџtџ`џјўPџq ў:dџ%l ўџC(dџ.%l ўџC:dџ%l ўџC cdџ%l ўџC ѕq ўcЄў'Јў%'Иў%'Шў%'иў%'шў%јў`џ:dџ%tџxџ! xџ dtџ H`џ „јў $QЄўќќџ)xџtџ`џјўџqœў:dџ %lœўџC(dџ%%lœўџC:dџ %lœўџC ќfdџ%lœўџC ѕqœўcЄў'Јў%'Иў%'Шў%'иў%'шў%јў`џ:dџ%tџxџ! xџ dtџ H`џ „јў $QЄўќќ0џ)xџtџ`џјў0џq˜ў:dџ %l˜ўџC(dџ-%l˜ўџC:dџ%l˜ўџC ќfdџ%l˜ўџC ѕq˜ўcЄў'Јў%'Иў%'Шў%'иў%'шў%јў`џ:dџ%tџxџ! xџ dtџ H`џ „јў $QЄўќќ@џ)xџtџ`џјў@џq”ў:dџ%l”ўџC(dџ,%l”ўџC:dџ%l”ўџC ќfdџ%l”ўџC ѕq”ўbЄў'Јў%'Иў%'Шў%'иў%'шў%јў`џ:dџ%tџxџ! xџ dtџ H`џ „јў $QЄўќў)xџtџ`џјў lќўќјў ў ˆ(dџ>%ўў› ў ф єў |ќcќјўcЄў'Јў%'Иў%'Шў%'иў%'шў%јў`џ:dџ%tџxџ! xџ dtџ H`џ „јў $QЄўќќ€ў)xџtџ`џјў lќўќј|ў |ў ˆ(dџ %|ўў› |ў ф є|ў |ќcќј|ўPL4 ў|ўџPџ@џќў€ў џ0џџ xџtџ`џјўЄў4X (H P hp€ rU€€€ џџџџџџџџ@$`єџџџџџџџџn€ џџџџ€ F˜№Ьдџџџџг'лd џџ#ˆЖџџџџџџџџџџџџ„фˆ$2Цлd$Qџџ#ˆЖџџџџџџџџ<џџSO[.>`ЦG•ЦЈ„ѕрGвРF+ uм^ЎI˜РЪі›І? џџџџџџџџџџџџx+ uм^ЎI˜РЪі›І? SO[.>`ЦG•ЦЈ„ѕрGвџџMEџџџџџџџџџџпџџ(џџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ [LџџџџSџџџџS”џџџџ(Lџџ,6"џџџџLџџџџџџџџLџџџџLџџџџLџџџџ<,џџ<0џџ<4џџ<8џџ<<џџ<џџџџџџN0{00020819-0000-0000-C000-000000000046}шp џџџџ`џџџџџџџџˆ|ўkџџџџџџџџєJJ”@„џџџџPџџџ џџTЖ@„ џџџџ@џџџ џџџ@„"џџџџ0џџџ џџx@„$џџџџ џџџ џџD@„&џџџџџџџ џџerze@„(@џџџ џџ\pho „*џџџџќўџџшSOUR %€ўџџџџџџџџџ№џџџџџџџџ%џџџџƒўџџџџџџџPџџџџџџџџџџџџџџ%‚ џџџџўџџџ€џџўџџџџџџџџџџџ%џџџџИџџџџџџџџџџџџџџџџXџџџџаџџџџ pџџџџџџџџџџџџ џџџџџџџџ@џџџџџџџџpџџџџџџџџџџџџџџџџџџџџџџџџ№џџџџџџџџџџџџџџџџHџџџџџџџџџџџџџџџџ(`џџџџ@ўџXxџџџ џџ @ўџˆtџџџ џџ @ўџИdџџџ џџ @ўџ `џџџ џџ @ўџ0јўџџ џџ @ўџашўџџ џџ @ўџшиўџџ џџ @ўџШўџџ џџ @ўџИўџџ џџ @ўџџџџџЈўџџ џџ @ўџџџџџЄўџџ џџ @ўџp ўџџџџ`ˆH@ўџ˜œўџџџџ`Аp@ўџР˜ўџџџџ`и˜@ўџџџџџ”ўџџџџ`Р џџџџўџ8ўџџ`ј %X№(@:ˆ€ўџџ џџўџџџџџ|ўџџP` %џџџџ80џџџџџџџџџџџџ№џџџџџџџџџџџџџџџџ№џџџџџџџџџџџџX(@јєџџџџџџџџџџџџџџџџџџџџџџ kSL$*\Rffff*0U4c530417*\R3*#50*\R1*#fc*\R3*#8c*\R3*#4d*\R3*#4e*\R3*#4fпџџџџ4ўЪJ"€ џџџџ€ >8H€ 0`€,€ џџџџ cРр ш     (€ џџџџ c0P X p x  ˜€ џџџџ c Р Ш р ш ј € џџџџ c((0X`x €€ џџџџ bˆ Ј Аа и №ј€ џџџџ c  (H P hp€ џџџџ€ џџџџ€ Fx€ Р€ *р€ € (0€ &X€ €€ џџџџ€ F˜€ р€ ,€ 0€ *P€ &€€ ЈР€ џџџџ€ џџџџџџџџа–р7 Zurќcksetzen des Kontextmenќs auf den UrsprungszustanddaЖCell %B@р* Erzeugen eines neuen Kontextmenќeintrages]ђ@ђXђpђˆђ ђИђаэЖCell %!.!0. ѕЖShowStammdaten92Ќ.94ЖShowStammdaten96З98qџџаэЖCell %!.!0.( (ѕЖ ShowObject92Ќ%94Ж ShowObjekt96З98qџџ`эЖCell %!.!0." "ѕЖHerstellkosten92Ќ-94ЖShowHK96З98qџџјэЖCell %!.!0.  ѕЖ Link to PHOENIX-Stammdaten Range92Ќ,94ЖCreateLinkRange96З98qџџxэЖCell %!.!0.* *ѕЖExtrahiere Artikelnummer92Ќ>94Ж ExtractArtNr96З98qџџэЖCell %!.!0.: *ѕЖZeichnung fertig melden92Ќ 94Ж SendMailToKon96З98qџџˆр@ Set SHOWDOC = Application.CommandBars("Cell").Controls.Addр With SHOWDOCр$ .Caption = "Zeige in PX"xр .FaceId = 47р! .OnAction = "SHOWDOC"р .BeginGroup = Falseр End Withр? Set CostSQL = Application.CommandBars("Cell").Controls.Addр With CostSQLр% .Caption = "SQL absetzen"р .FaceId = 47р$ .OnAction = "ShowHK_SQL"р .BeginGroup = Falseр End Withoџџ8џџџџ0џџџџЧГAttribute VB_Name = "DieseArbeitsmappe" "  џџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ<џџџџџџN0{00020820-0000-0000-C000-000000000046}џџџџ@€ўџџџџџџџ(џџџџџџџџџџ%џџџџHџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0kSLпўЪџџџџџџџџxџџџџЊАAttribute VB_Name = "Tabelle1"  јBas|0{00020820-; C$0046} |Glob„alШSpac’ False dCr@eatablP€redeclaDId­Tru BE xposeTemplateDeriv$’Bust0omizD2№Ьдџџџџг'лdu1џџ#ˆЖџџџџџџџџџџџџTabelle2 џџџџ.лTabelle3џџџџџџџџџџџџ>лModul1џџџџ63__SRP_5 џџџџNвџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ<џџџџџџN0{00020820-0000-0000-C000-000000000046}џџџџ@€ўџџџџџџџ(џџџџџџџџџџ%џџџџHџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0kSLпўЪџџџџџџџџxџџџџЊАAttribute VB_Name = "Tabelle2"  јBas|0{00020820-; C$0046} |Glob„alШSpac’ False dCr@eatablP€redeclaDId­Tru BE xposeTemplateDeriv$’Bust0omizD2№Ьдџџџџг'лdPшџџ#ˆЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ<џџџџџџN0{00020820-0000-0000-C000-000000000046}џџџџ@€ўџџџџџџџ(џџџџџџџџџџ%џџџџHџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0kSLпўЪџџџџџџџџxџџџџЊАAttribute VB_Name = "Tabelle3"  јBas|0{00020820-; C$0046} |Glob„alШSpac’ False dCr@eatablP€redeclaDId­Tru BE xposeTemplateDeriv$’Bust0omizD2rU€€€€~| ‰ Љщ !Ay‘RЖ P!RЌ  P!RЌ œˆЖAchtung! Keine Gќltige ObjektID VЖMeldungA@T ѕgџџkџџ P!R'LјЖ [RaiseObject( L Ж)] HB@XэА.HoџџИ–ˆ]ђШэЖPhoenix9.Application$J.HрZelle auswerten P!R$N P!RЖ P!RЌœЖ$Achtung! Keine Gќltige Artikelnummer VЖMeldungA@Tgџџшkџџр P!R'DЖ[Raise] HB@XЖ[RaiseClass(Stammdaten)] HB@XЖ[CLEAR] HB@XЖ[SetField(Name, D Ж)] HB@XЖ [Prepare] HB@XэА.Hoџџ –р]ђ ]ђ8эЖPhoenix9.Application$J.HрWert der gewфhlten Zelle holen P!R'DрWert auswerten D$N DЖ DЌœЖ$Achtung! Keine Gќltige Artikelnummer VЖMeldungA@Tgџџ kџџрPhoenixMakrob-Befehle absetzenЖ[RaiseClass(Stammdaten)] HB@XЖ[CLEAR] HB@XЖ[SetField(Name, D Ж)] HB@XЖ[SEARCH] HB@XЖherstellkosten H%`'^р$ Excel wieder in Vordergrund ??????ЖHerstellkosten fќr D Ж = ^ ЖEuro VЖMeldungA@ToџџР–P]ђ]ђЈэЖPhoenix9.Application$J.HрWert der gewфhlten Zelle holen P!R'DрWert auswerten D$N DЖ DЌœЖ$Achtung! Keine Gќltige Artikelnummer VЖMeldungA@TgџџРkџџИрPhoenixMakrob-Befehle absetzenЖ<[SQLQuery(select * from Stammdaten where Name = '10047947')] HB@Xр$ Excel wieder in Vordergrund ??????р\MsgBox "Herstellkosten fќr " + Artikelnummer + " = " + HK + "Euro", vbInformation, "Meldung"oџџ –Р]ђ]ђэЖPhoenix9.Application$J.Hр!Prќfen ob Kommentar vorhanden ist f!hА›Ggjр/Kommentar auslesen und Zeilenumbrќche entfernenр9Kommentar = Replace(ActiveCell.Comment.Text, Chr(10), "") f!h!dЌ$м'd№LдАџџџџžК&лdџџЖџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(6 џџџџџџџџџџџџ<џџџџџџ%P Fˆ`џџџџџџџџџџџџ џџџџџџџџџџ„`„Hџџџџџџџџ џџ`„Lџџџџџџџџџџx Zр`џџџџџџџџџџџџ џџџџџџџџџџ„`„Hџџџџџџџџ џџ \P`џџџџџџџџџџџџ џџџџџџџџџџ0„`„^џџџџџџџџ џџ`„Hџџџџџџџџ џџ bР`џџџџџџџџџџџџ џџџџџџџџџџH„`„^џџџџџџџџ џџ`„Hџџџџџџџџ џџ $0`џџџџџџџџџџџџ џџџџџџџџџџ\„`„dџџџџџџџџџџш`„Hџџџџџџџџ џџ j0`џџџџџџџџџџџџ џџџџџџџџџџAAr„@„lџџџџџџџџ џџ`„nџџџџџџџџџџ D`„pџџџџџџџџџџ`„rџџџџџџџџџџX`„tџџџџџџџџџџ`„vџџџџџџџџџџPh`„DџџџџџџџџџџJ`„xџџџџџџџџ џџer g Žа`џџџџџџџџџџџџ џџџџџџџџџџГ„@„lџџџџџџџџ џџ`„nџџџџџџџџџџAcht`„џџџџџџџџџџrtik`„’џџџџџџџџџџung ˜џџџџ`џџџџџџџџџџџџ|џHџџџџџџџџџџ**Ю„`„šџџџџxџџџџџт€Dџџџџџџџџ@џџџџџџџџ€аџџџ џџ `„Єџџџџtџџџ џџџџџџџџџџƒBџџџџџџџџџџџџџџџџџџџџџџџџHџџџџрˆџџџџPР0а(џџџџџџџџџџџџ0џџџџxџџџџ№џџџџјџџџџџџџџ(џџџџџџџџџџџџаџџџџ(џџџџџџџџџџџџџџџџџџџџˆџџџџџџџџџџџџџџџџџџџџџџџџџџџџИkSL$*\Rffff*0Y4c5305d5*\R0*#14*\R0*#fпўЪј€ џџџџ€€ џџџџ" €$€@€ џџџџ€ џџџџ€ HF`:Јш№€ џџџџ ј€ џџџџ*€ џџџџ8€ џџџџ€ џџџџ€ џџџџ@€ џџџџ€ џџџџ" H€P$X€ џџџџ€ €4˜>а€ џџџџ € џџџџ0&Hp,ˆИа€ џџџџ€ џџџџи€ џџџџ" р€ш€№$ј€ $  H€ X(p>˜ир€ $ш&8,P€ ˜€ џџџџ€ *И€ џџџџNш€ џџџџ8€ џџџџ" @€H€P$X€ $€ Ј€ И(а>ј8@€ $HJp€ *Р€ џџџџ€ b№€ џџџџX€ џџџџ€ џџџџ" `€h€p$x€ џџџџ€ ( Ш€ 6р€ @X€ x(0Иш№€ ј* € *H € џџџџ€ џџџџx € џџџџ" € € ˆ € 4 € Ш € а € № € џџџџ€ј € џџџџ€ € €( €0 € џџџџ€ *8  h € џџџџx ˆ   € џџџџ€ Р (и   € N X  ` h € џџџџ p € $€  PЈ € џџџџ€ *ј  (  8 € џџџџ€ @  ` € џџџџ€ h  € 2 Ш &и  , H *`   € џџџџ€ ˜  .И € џџџџ€ ш  € џџџџ(€ џџџџ08€ џџџџ@€ џџџџ€ џџџџ" H€ P€ 2X€ € џџџџ€˜€ џџџџ€Ј€А€ џџџџ€ *И ш€ џџџџј @X€ џџџџ€ џџџџ€ џџџџx€€ џџџџˆ€ џџџџ€ џџџџ"€ ˜€ 2 € и€ џџџџ€р€@$H€ џџџџ€ ˆ € џџџџ€ :ш€ *И€ џџџџ€ @(€ $h€ € №€ џџџџp€ ш Р€ ј *ј€ а Te€ h€  р  ( 08€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ Ј€ џџџџИ€ џџџџџџџџ0]ђ(–]ђXэЖPhoenix9.Application$J.H]ђpрZelle auswerten P!R$N P!рKommentar prќfen d$N dЖ dЌ œЖAchtung! Geht nicht!!! VЖMeldungA@TgџџkџџрObjekt in Phoenix aufrufenЖ [RaiseObject( d Ж)] HB@Xр#Excel wieder in Vordergrund ??????oџџ€–0рр- Makro am 12.02.2007 von Martin List erstelltрр Tastenkombination: Strg+pр]ђpђˆ]ђ ђИђа]ђш]ђ]ђр# Ermitteln Anzahl markierter Felder P!z'n nЌ œџ lўЌ n’ l$P!~$|!R'DрZelle auswerten D$N DЖ DЌœЗ'xр GMsgBox "Achtung! Keine Gќltige Artikelnummer", vbInformation, "Meldung"dџџ З'xkџџ xЗœр Dateipfad und -namen erzeugenЖ7\\Cad01\phoenixpdm\SCHILLER_RESSOURCEN\001_PXC\UserPXC\ DЖ.pxc'rр # angemeldeter User & Datum abfragen !€'p Z'vр  Dateinummer zuweisen А'‚р  PXC-File erzeugen r ‚ЋЬ ‚вЖ Erzeugt am vЖ von  pж ‚вЖж ‚вЖ[RaiseClass(Stammdaten)]ж ‚вЖ[Clear]ж ‚вЖ[SetField(name, DЖ)]ж ‚вЖ[Search]ж ‚вЖ[ActivateTabSheet(Vorschau)]ж ‚Vр Hyperlink erstellen l$P!~$|бˆ rб~ „!†B@0р Zelle UmformatierenЗ l$P!~$|!Š(ŒkџџаџЧШkџџРoџџИ–0рр, Makro am 26.06.09 von Stephan Wіrz erstelltр]ђpђˆ]ђ ]ђИр# Ermitteln Anzahl markierter Felder P!z'n nЌ œџ lўЌ n’ l$P!~$|!R' Ќ$–'” ” l$P!~$|(RџЧ€kџџxoџџp–арр, Makro am 01.10.09 von Stephan Wіrz erstelltр]ђр4Zellenprќfung - schauen ob gќltiges Kќrzel drinstehtр9Prќfen ob es aus detailierungsexcel geschicht werden sollрFertigstellungsdatum eintragenр Hier Mail senden!рEnd IfoџџаЖwz5ЈB@0р NachrichtЗ9Ар Empfфngerр Betreffehр Lesebestфtigung aus(13) &C@ВqPэА.Є]ђhэЖOutlook.Application$J.Єted Ќ Є%Іѕs.Add џџџџp ЖDas ist eine e-MailЌ $ЎЖViele Grќпe...Ќ $ЎЌ $Ў9Ќ) & џџџџ рMsgBox "Tut noch nicht"Њџџџџpр a... oder mit INPUTBOX: .Body = InputBox("Bitte kurze Fehlerbeschreibung:", "Fehlerbeschreibung")џџџџ рZelle auslesenic(Sэ P!R.š"џџџџ р$If MaKurzzeichen = "wz" Or "tk" ThenХj1џџџџXџџџџPЖ"Zeichnungserstellung abgeschlossen9Њchen =џџџџџџџџЖAttribute VB_Name = "Modul1" Dim Artikelnumme@r As SЬngxSub ShowObjekt@() dPРhoenix,^ :ct6Set 6= Create ("9.Applicati˜on"T%ID  ƒ'Zelle auswerteng If Not IsNuЕic(SelecP.ValuРe) Or }"" Len< 4– > 6 Th…= MsgBox "Achtung! Keine Gќltige xktID", vbInform‚v,€Оeld€П#Endjпlƒƒƒ‰=d ƒ ‡Й.Exec€їMacro "[RaisЦ_ +&СY+ ")]H СЯЯANt@]hiC‡Ag',@‰ …‹Stаammd~nПŒCšЩŽŒ џ…onУŠм…ј> 8+ д}€Kч}‚‰>œFClass(G9 FwCLEARЇп aS`KFi a(“<," S‹­T—PrрepareУ[VV2 хUHKуTƒ›HKVarianЂšM{ž €sПžixNX'Wр™ d`Ўgew(фhl`› choўleо?ЃНЃЪbЃ і"&Ѓl<џ_ŒŸ џ_Я€2CšЁ3If€{d=Makrob-BefehРbseќtzщАwB"ŸŸXЂи­ІНŸXeЌŸXK­Sg,CHIg Q=шщ.GetEditText("hersђt@уkoРФшcИР' Excel wieё%in Vorgrund œ ?1[ хl‚HJ fќr 9p9!S№: РEurђoo"MŽn1p7‡Ё188_SQL8џ8П‡T:Ž?п‡@‹88џ8:-аЌ… R8[Š/j8a8mŽ) 8VOˆBˆЪ яРB’ˆ'ф*88ЁН4PQuery(sš * frLom@І5‚ w ,e дЉ'10047а947'g'Ÿ,Ÿ,}™,'Џ,ё1Џ,Q ,"џ1Џ,?›;›aЌ, e@HOWDOC™,KтoРntaкЕЁ7ПДџЃГДeпД!ў,№(Prќfen ob чvorha$nd`isD3IfD ApГveCАD.~C“ pЕсЕžЂƒ!'c‡p.lespёDZei№jumbrќche entfernYZ˜= R€eplace(o.‘M, Chr(И10)АВУС X @= Leftџtэє6 Хp‚oУ~(& Т8`в†88> 7Л е&&8Geht ni`С!!!O7O7?71 kt P[уд7РЯfruаC ёџ” §6П7  Z35ЯaЯaорз!f.ОCULinkRangeq.'р& "B am 12.02.2€007 vonpдrt  L' дe ' "TaЁ9kombinтб:Бчg+p‡№1=с1i, lё˜LLoCЧ1Us‰ъ,` pxcF (aSВы, TabSheршјьЁDatuЩ яs €e џя7ЅЦNb;Bo@™aачAБErmitРwn Anzahl markiсщr ‚F`oer l€E‘WbCouСЄ №6€(l > 0)ˆ$ For i№1 №To lW\№V(i).Addрress)ЃЬЇC38Ж 'Zelle aus@wertenШIf Not IsNumeric(Artikelnum) Or A " = ""*Len V<> 8 œTh М?Nr7`Falsey'MsgBox "Achtung! Keine G@ќltige z", vbInformation,@ "Meld6"UEc?Truˆ>РEnd If‡‡€ˆ h'Date€ipfad u#-namen e rzeug ~pxcFiН›\\Cad01\phoenixpdm\SCHILLER_RESSOURCEN\001_PXC\User" & С& ">.€+ˆzЅ‡`‚Ќ angemРGeter Р.um `abfraN*‚=€ ApplicX:.N7‹= /РTAiC z uweisEiEFree Э€>- гU OpР\EWFor Out€put As ЫDPrint #BРŽEТkt a 0)ЈЌayiр1 To &l&I= Y0Va&lIНEx@ Right( , 8џ`(3a~ @„ с%У#>8SendMРailToK TN8€01.10.0_8a2MaKurzz˜eic ю 6olА\1AObj№0№#et‚ C= Creа; “("АSlookz.Ш_" рС‚ƒlžeF\аF '™= зƒиѕnprќfpz0 - s1B[ob„ gC~s Kќ Xиl dА&€?h !ЁN'а!ћ 0twzТ‡"иtk"$#0Pа#„es1Ž det0(0sexcel˜ ge`t "dаsolР%'Fљ€*igђFСАYP`0ˆEP6ga?' Hp m !q†‹T gnoch nС‡0]S  Withѓ.гItem(0pб5'EmpfфАz`2y.Rec@ipient#N" З‘'BetrŒefHŒQ.SuтЉА*"Z!nBr%аВPY№ Lh'NaPXCЦPXC2ІїCOSTS[lЌ(SHOWDOCКвCostSQLЏ‘OBJ‘НExArtNrxCommandBarControlPХControlsЬKAddїrCaptionxFaceIdЪiOnAction„  BeginGroup‰ЖZeichnungFertigЊ‡ Tabelle1RŠ Tabelle2SŠ Tabelle3TŠ Modul1Э Artikelnummer}И Ќ(ShowObjekt<Н PhoenixObjЅ CreateObjectјŠObjIDД IsNumeric$* SelectionZЎValueфKMsgBox—R vbInformationВn ExecuteMacrokЖЌ(ShowStammdatenBnЌ(ShowHKй,HKˆ] GetEditTextЬ Ќ(ShowHK_SQLaТ Kommentar„k ActiveCellНЗCommentHsЌ(CreateLinkRangeЛi`lcUserЈЙpxcFile:_TabSheet IDatum@4ArtNržCount0vRangeк AddressЇХUserName\цiFile0Ў ActiveSheet%N Hyperlinks:•Anchor#rFontUBoldƒљ Ќ(ExtractArtNr% ZelltextorgкУArtNrTxtœJArtNrEx?Right  Ќ(SendMailToKonZš MaKurzzeichen4УWorkbookkItemзz€џџџ_B_var_ZeichnungFertig=q Mail_sendenЗolApp‹‘ CreateItemЦ~ €џRecipientsб€џSubjectRPBodylјChrK~ReadReceiptRequested{hSendЭфViele–RGrќпeІ# _B_var_Chr\; €џџџ_B_var_IfPђ €џџџ_B_var_Setџџxџџџџџџџџџџџџ џџџџџџџџ=?ACџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ Z pВ€0* pH‚dф VBAProjeˆct4@j = r kSL” J< r€stdole>stdo€le h%^*\G{00€020430-C 0046}#2.0#0#C:\WINDOWS\syst em32\e2.tlb#OLE Automation`ƒEOffDic„EOf€iдc‚EŸ€•€E2DF8D04C-5BFA-10€1B-BDE5€EдAA€C4€2ˆE€˜gramme\Gemeinsame Dateien\Microsoft Shared\OFFICE12\MSO.0DLL#‡ƒN 9 .0 ObТ LРibrary€K"е‚лd€ DieseArbeitsmappeG") i€ks€A(rbРiР^s map@e*“2ЄЊHB1€Ь€#B%,B)$Q#"+Т РTabelle1GЎA$'l…1€% Щ2вЯ-ЉЭ ж2б2Ы’2б2уu1жЊ3б3Ы3б3ф PшЫpModul .СsMpduwр-Ё-Ї2BtЉoРт&я,!р8e`ЦG•ЦЈ„ѕрGвРF+ uм^ЎI˜РЪі›І? DРFWorkbook Workbook_Open @ CellеРF РF РF РF ShowStammdatenCaption FaceIdOnActionBeginGroup ShowObject ShowObjekt Herstellkosten ShowHK @Link to PHOENIX-Stammdaten Range CreateLinkRange 0Extrahiere Artikelnummer РF ExtractArtNr .Zeichnung fertig melden SendMailToKon ShowObjektShowStammdatenShowHK ShowHK_SQLSHOWDOCCreateLinkRange ExtractArtNr SendMailToKon  &Outlook.ApplicationCreateItem wzRecipientsAdd .QA-Request Fehler/FrageSubject &Das ist eine e-Mail Viele Grќпe...Body (ReadReceiptRequestedSendVBE6.DLL ‰џџџџЬ а ‰џџџџ` №OrU€€€€~} џџџџџџџџџџџџ __SRP_1џџџџзzPROJECTwmџџџџџџџџџџџџйžPROJECTџџџџмpSummaryInformation(џџџџџџџџцрџџџџџџџџџџџџ  9ApDieseArbeitsmappeDieseArbeitsmappeTabelle1Tabelle1Tabelle2Tabelle2Tabelle3Tabelle3Modul1Modul1ID="{CD0898B0-41CE-48A6-A00B-166236401E8A}" Document=DieseArbeitsmappe/&H00000000 Document=Tabelle1/&H00000000 Document=Tabelle2/&H00000000 Document=Tabelle3/&H00000000 Module=Modul1 Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="25279952FB07FF07FF07FF07FF" DPB="D6D46A21AA635A645A645A" GC="87853BF05D100F110F11F0" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] DieseArbeitsmappe=88, 132, 1116, 758, Tabelle1=88, 132, 1060, 881, Tabelle2=154, 203, 1149, 860, Tabelle3=176, 232, 1171, 889, Modul1=110, 165, 1138, 791, Z ўџр…ŸђљOhЋ‘+'Гй0А@H`x  œЈфStephan.Woerzstephan.woerzMicrosoft Excel@B`‰бЂЧ@€YњТrCЪўџеЭеœ.“—+,љЎ0 PX€ ˆ˜  Ј зф Sieghard Schiller GmbH & Co. KG  Tabelle1 Tabelle2 Tabelle3 Arbeitsblфtterўџ џџџџ РF'Microsoft Office Excel 2003-ArbeDocumentSummaryInformation8џџџџџџџџџџџџъ0CompObjџџџџџџџџџџџџяsџџџџџџџџџџџџџџџџџџџџџџџџitsbl.Biff8Excel.Sheet.8є9Вq