From 2651aeec46aa65bfda125178fd8a8ddacd094d33 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Thu, 2 Oct 2025 09:25:25 +0200 Subject: [PATCH] cbam --- SDL/Resources/CBAM_Auswertung_GP.xlsx | Bin 9934 -> 11732 bytes SDL/kunden/usrCntlCBAM.vb | 14 +++++++++++++- 2 files changed, 13 insertions(+), 1 deletion(-) diff --git a/SDL/Resources/CBAM_Auswertung_GP.xlsx b/SDL/Resources/CBAM_Auswertung_GP.xlsx index a9b1fce5bf489ade85b1ad4039aaf335b120dec3..6bea39211b6bfa47e960a866a6926c27235b3c93 100644 GIT binary patch delta 6321 zcmZvgWl$Vzn}!Dn?l8E+;I6^lU4j$b8DN438=T-W1cG}YxCaPMfB}L83ob!}J0#e0 z&bPa#_SAO&=(?+=>Z!Nudhfc%HD*jnwbhVb00AffGyniV2atIgHsOW<0K7o1C#6S( zz8ZGxaB~`T+Z}Q z^o+!UO&I*Uz2}<0WGmlE$uV}a?NlH_f6pIC4EGr$sLS_}Jy>vEE-t{Qf9=Un|Zv<@LC z+zc!2BdvTG{fmBqmIq3t?YWyZE#4OQVqxEthsKNC3bw3IKrnydHjFZeMo~7i)KS7cM_naFxD>d-3yf)HXdK{MPJwp)9Ro z0HRw|UD2QYc*Ll?9YRsgFnFB!ZVKV-|WwLiWhGD%nG zGr?QfB;xFC*eRmLFdrC9eO~~2PgYt1=NxJYs-&%w=aglU4D0>jl0HeMwI7yVfs8M} zjIlQwuiqfYo|@D{Bo96qQTNk9_!_&dE+JF^XGuK`)bo%r5NYik%Bv?iz1ip$f(mGU zCj6k;!e&I@y5%y9ni zo5-sp@H(`L-YU7_kmpw$Yr32MA}^^3hRHgxDJg1}#Oi%?6qQBt+ZOv{FFP|^VlQGu zwKO2vFsLMAfx%GfqPy#iAbY%C2;~cuf{1q#MBs17#-_4}ZkHlbQQ!Zm*daf38kE@> zBzn-}mnp21wpeFx0-+D9niISyYlbU1l5@F(TD#Q)*k#CO2#C~%T~a1X3y3mC4;BW_ z+KQ@GxGc~!atwy0lruo0)Wk1J7*`V4P*Gds>R`L21Ss(n4kXD%F6RJrD3WnWw7+C@ z{Q6^1<~zJKDeTw2#~U#&qWr#Y?fl$ANbxq)7sZbI3VNtohYk?MTdO{m>V|M)flIWj zX8*P9;FKVTULT{z%g8}k&~0Wr^oLiA!%>~&l^fa0Fv;wmp$&9sB<+MeiP|E;ckGf% zO&=v2_W{9gdHkUS3_~!4#^2S{;A}W*GF$?&Ap)7mDI&fdjM}G!1BHFBKPF^@mkC=ILQYw@UhE0~q8Y{7K&A{bUMViAEnLoa{c%ibQD1 zm98xa@TSwB4!Pn$v9Y~;c_i&HaZLq#dmbLTwKElBSHVDH^K6jdBPJ{b35Y@B$@_{55daWHfpKH8 zK_#To3I)n4ILir|%FOUP+#20nSieyCF5fj96Q$5*Xy z7)@ka#wiBQ_k7>5NU%{|zXQkK9ywmp2|;7QFWM?Ol8SFm=*u}CDjr9zIxZ#y?L-h+q^y= zcdl8Drr3nHT-eReZ>;$&GUz9m!vBgdFcoASwG95+U zs$~}5{LcFisf>QdNvj-z$hI#U1sld~wQ|@p(`+QYfiT51O6g|@OFk;Q$^F$E6A!cG zqf?2w)sZ=A7}mzHR$=eki+nA!vV(y=>>i?^#F!sNlb8oGn8#PN z=}Y;K2!H(^P%&3Nwcclt%06#t4F3St)6ve(%ahx}!w&4p{deH~i?3XN<%p!-*ghVh z!VS`+oL>NJE)q*l??UC;J5WMW$=`%e55g*{FR$4on7 zfvqJlSfRt1AmhQ&Tl&DA|Yzvp!M>^g!Al{B@x|5&cuL zpYhroEINmzl~m8qyIH?qd5)~6`J!6XLd5Xu53%hrcZz9<(Jhhr{%P6j=`OJZ zJgh;qq>?LqB`2%9wUTtBaPD?l$o1(eL_tBAV(Br`!SsWjI5SwX<*7?6H`G<1pq^3( zI(|BDzB%&9^ZVhm4&x8t8YfRWakAy?yt#54WxLyZPDo4zX4hA&E}&VOvaI2^6=znS z5%%Wt61VlY^``WFU^y!z`)EAYl-mXqQ8Mlf;6l6YQO^KX*t@Da*uuxqRAK^L)5 zou#ui_-jE0^4M?)57fbVF3Rwhzr z8&WqRC@F$hJ=W8y{c5I^F!9ioqTGM4A%WDDwt91eaep@c!t;K62;o7 z_vSR;dUxE2B=?R!CvKn8&`@bMf}zbR3*s!w_RZ%L*&c7%Jj&;v*CrQkJy*$%f0!FDrR z{Q*4(kCs4ML)a!_b$Q2HFy)f#9d7O|$_?25L4mq;1~lli^jOt!5M1SqoGf%}Cc{Vh zXv!`#c-{SZx^inr2sHyrRM2i=Cy^k_pF^YyykYJ zu1GtZXw07C)c1%~x$%hfwp|se?#n!k_F7W0YqumL?<9hkTsZue&tnRX>-H1kPf@Ca z8gTh-ziRhS*QX1%)9>1;1bTf!?Te1(Vi>An$AsCCmsyY{^7}0)Y=fEzXAr%E&y1-6QhvUv~%>N#sU&g;eQ z)^0``5;*JmGwoB+DQWU61H5VjC4Qe~eI4f~650GUqp*^9Fe&hpBK`Q|@xw}k=Z@`1G1)`6DUpYA3gT}FvJ z{dQ$iH1VQzl2Rw@c&JnYMnycQyH?Pq+aI|aLRdaVcH3y}x$UG0XNGH6_OPN5YSN%# zihL@SId<}CWnHu|Go|yxShww*!Lyl8WND(qtP3c!_bwyEACH0iSesWFw7@?LzDJj# z*n<9Q-N%%_+OHd%m?cP8$Xr8n(C`r5J!4pcOH?6w33;jE)OT!ilcXJ86HH3Z7w$WC zyfvK^50j1B_Ie1;T?td>%SL~n!Z^g1(|mz9hcW3p}>TVEo}ix9OQY)r?cPOu1gN>NuD_7hXfmn-@8x^$V zy7~&hWYiU%&uA>hoP2>6aWhm!0++)&g36Wx@9YH(sanW9v%kCZ6K5gpTD_)K{7K`Q zU}b9aiOfoFvufgbqt&VR9f&D9{Vhn2#-%{4Gi}{z!ozuW8 zERj5>sLmTkRM7`G?|l%9$mt237b{qtXcTfg^vNh{KuYTuDfJVZ$XN9`HjI}`WsL0x zJNxW6x~?T@!sthNjnbYv@{FJbCNik`W`p1os2^X=7;5#BE1;>` z)-Pt1%N3^1KPu@O%|FJmgeOQLDKN%Cf!~}pE8ae8AV21Fm1MsUGo8@$pHwNICu%f2 zmcK9fScsRnP0oqhgZTllfe+B~zrY~xr?uSt;fOWiNMR9*C!Ri|?HeziZ40$ks*Rbi z7x1+vrJ7Yod5a;@M3iq;&N10&H81yIB|If%xsatc40~#8js8K6p=VT!DcHSjW?*57 z&bA*rBDZ4;Dz+YYjQWf%Ox$Y8LqdEasP}SH7Nf7E(tH*ar`!SmKyF3FYarL$y1W;- z|G8lS`rNago{#|lF)FZQYBXfi04rX##ye^d0yH93$K|>`G*e+A4wt7zwQwCpfA|;r1m$`S%Qpb|oAlo!;k3wcGN%Ib^>MLY=NUv86s<$SuvK;&^l&+4knrBghY>)O2~;;)?`jxG zr9if8sw)sMwB#4Z%T`EV{_Q>g+aS~|N6GEBRw8t5?iV!zS!766rKirSV$$ds1`(?Y zjWu7~u%DcLyym>){df6W{F-+qE{NIK z;F)aCSAr*P#Ooz2m} zi3TuJQXyF^$A`H486)hO4*;@xqxWl(1z}$DAk@Qc42*#7|r79F<81Tv*Dl%BuRy9^;)=_3PAn8@kh^BZIUkTS$52!*9LpG$1 zqb&b2>=I3^j-P8X#l>ku(_T*_@sR`-f)}(m1VF*JLL;K=^CTTaQ+z|J1OZMQVEU^M zUAE>;zLEIEy&sV`m2qjOzR&JQR14h@7+>cYFN|dkq7n@17yS5!nuI6ZxFhB>PjuXe zp{3Rrp+k;@7pO#Gm)E!+2r?+M9lv;xIi1T`3o-3n3+2Q3_Avj1hgwb&lp0(nw`lKM zNfar)XL-Xx9hWr3T!&DqNiXB1c|aynx!Y91nf9Tjk~aK`cCFXWuq~{zHR=HBNAmKN zdev9s0f2dnN3&tm`6+IP@STbT#5G#rOwjem*Hv@a%&JfRQOljH);tCEWcXs)gJ?lG zlexaaXuk>d_w(}f$m8{>brc2pAypVyJVeHN|TXkziqKrSC4Wrn` z6ebRhLJmvdFJq=BcgxT;a0WiqUtDCn4YTH@1m4_fm4`daM1FgwO3Xbvj!`2Aq1SPM zD?RhV^{m*#E;#AwbWdmCrXxQXn^r<1&mxD?$>S;>6Fij}bSCeE{;-v;*Fo-n*4MhS zzkJLN^y_NvE{$A^{l@(x!}fk=9$ekxZ7lW$NA;&&mjm4WReJNnve*aclTC>f?8!UR z9_`DB=m11$NZJ6F=?V{8zG83i*`gIBPtf1%K5J@WvHgjE4&*0yPpIMPK0A}zxxmR+ z6JNao9T@+lyZPQdt`2uV#x2ty{_@kg=Ji_}-bUwL>;bWF>}nq84$~yx?^yHHrzR?y z)T|ZHl_BCQXT=WBEkg?$k$jo1mN4%qPd!cScF?LSFKa8s+KxQ>$5@NWYX^zwCRkJKPT@w4i_XP zREXgvzdk25u|+NI&plWJ@3oR~4&EiU1c$ZTxoj^mNnH`I=iffzS%({-S&V|77%|>6 zsi{K$h7v5638yiXZU_vaTX!364|j+sw-p5Pm!i;CLwgJt$dJV`!x8zW-+-1GesXdJE?j;}Xk(inU8H~8 zu6V&%4o)hIJu0{9CwNJA;OuaZJH!&>j!b{HC_p_OrEGK6!x0f5rvav3aShy6GCuD^ zdexvsMmOJ4x&`Kci7a#R^)B+dwd6i0xM6t&?;@98l5@38(25cfp|1u8-zasO?6~sb zd`domS826RsE{A$Hd_umH8=)45yBzSJ4*wb%E8-XYqpWQ`)QkanLqUP1t4!aygU!8 z<`)nE7^VjR*#F`m+j{_>+2;Qbl1Dm%HB8YG9)Cgff^Ph>I4+dPmX<(uRU8* zZa9~&M+9MOff+L;`c~gN_TU;nlhUj0wax-Y_M49{I7&;i-zu2rk`}Ab;AchJ3t0`x z*xc3p?f!zt)t-yvHG;sSMxkhOS;VPFgSSb?Llg z9)7DQ=$VMo=_Ev6REZ0XAR&$BNZ0Cn8$K#O3F`ny-c^tjxnh`=Y)Jww7k6@Q#AQzw z>Pn6uccy0SWzOo|yb0>f2k5Xk~l^8CPckDaETH`(dCxI2jV$1MiV7& z54~{WMFTwRg+kWVNJdW_qL%Jmh&)E1FNq#ou2FhpgD<+R<4*dA(o;|hq<&b587ag~Mu9-f`^kP@a&R_-I!o>JfZl~8$;72WJ z^x$c%7i?y!gkZ?w&(5xh?>WTHSt(<9%n*zRb}`T_Y)XI(w2vX#-ZE^xq>bT7 z@wBqCa&sOA1u!|fm5$g^U1H-P6ICsNMbD9Q*Odn_q320Em>UoVL2|54+8)m&ZUa6# z-IP!#+mP^rYwrF-x#wRkuCM7>{aM0KbXYH9sQPBe`@`_Hw2l8762}3o>Yz350ksM>n zrR>r5abKc0$)Pgsa#p3N{_t(iscAY#B;JSwyXIE0dA9FYcQ%W_;cwj9dNgTUbp@4j z9k~)2u=CN&QnFtGTk;_H1L$^xk?l|xHgzW7w|@UbZTmA!NR^_m^)UyfY@&=Oo&Swf z>nqxT@yMqvtd&YGZVEQ?4Ols6I45C@Sa)uoSPH(8;<3cQd0`!a1ZAd~$RfV3T8lnXwnZTh=GpwH()k*U>Qcbu!ff7wlu!; zZpyglubW8nV{SS}88swrS^NnBXTE+VCaA6Bm=ASH`e~1-t!|%_+`Bg9uE1l5&P(b` zttY3tM_q-ccjfp?+hIKkBF#Ol)9=Jjm{|-A&(?VF1Su87ggUFQdHgmIohtWDsOG8l zBcFHkckpq^(IRNR5vrE!=2dF{ot~`mxebzCeNvY_cBJ@s`BAAL0I^hnjd&HwQD4UH z3#P-WJWwYS`Om}ghQ4!39POxDDrU_7gHW;ytTAr(Sr~A>4>$-6ekn3^$>15i_ACGM zzZM_r4W-$U_badyKM4c~`q0mTj}3gWJRAN#BmD_fbG*&Z2y~v&Q2z>VCSI-2`n{Y% zcr3)sda0nf`{k+g(J$Xf^GdPMY*!?UfLV&>ed*pp-?>|O88TYJcN%z}BI0^Y7ubSx zPiIavvl-Gxzg8hL?(ijbPe6V?@@Gln+ef{NO0C6()4t#|=r#BtlW=Vlp9zgG5~nLo z-74xW{Y(hf>6wsou`QKxI7${9FoxwBF*g+XEX*RuMs>+Sjw=xhA=FYl40EM4A zFU{HRvSbT|i`^B!)uw#VR39cZyl-BW+ll|eDi@$lojWxOJj1+(K0_|nUYyt|X^6a$n#@x$EbCggUwZz|>MMvia7ts0$ceP7Sz z9~c#3=vKBq(c2(54BV?_M5}^pi6x5GqQ>J?y}`T7I z*0REz`r`);ZNof$&|E;+J>q5~?b@fZ#wDLwr)g-|5(}z7?d=qe!gLUa$r zsGU4DapsDFJECo_EgSU7z=9m(RF=9?v9DcYUOH`Qu6x3$&BL!U$mQ)5Ok1{?Kl~!7 z3M7g@jh~3KXZr{~s}cMaVtw&9{z2%^lI6YP0n&SGwqkq!_$cr}?L)0rlm2<_R@Aou zmOA#NrLpjOP;(p@8!YszZ~;}Hl=DlEY!Q~Gkw4Rp%DX42w05Z_>qBl9GU6iDGHAK* z6Mt(t1laf7I_g$MJE<&%=OF2pr)oLaI=7KT+)OqNN(?G!0a}iimra%8zXB1C*Q`W5 zdcb$&#Ye}IV_%Js3uYRqrcu5Otluj;24uNnd&j(I^KJ#qv##0F*eR)|o3cbx`;&(v5K>z@rg$Uyl zz3J6_CD$~U z-WFb7b;*;#DqLCp?Gh|3=b(gBrmW<4uLen)b4Fz|HWEWj8)Idg#*d{I1)a+#@S{{? znMM!4pO7-3wfX2G|KNo*8?4CspO@365R1V5!7H<)!_@wFpJp8sr`neNSC3nr>Ne;c zmVRu1nEhervB~=T6LlTel91mmAsIP7Kg_bNe{VBm5|^ns7NV7>z4IC|xc;eri|ZX8T<*e}8hne8+mM0v$X@9SChL?lYhaqmW3 z&m}HSHr|?&NO*y+MsF8Z+edTu6a9cjot33tVPN1 zh}xtM$EzBM$c{i$LeF)6$SS3YjmiI{MMxBk#ucHzMM!~p(YOjcy67tSChisb`;Pzu z`8dG2V?Do4)%)viL`iOBAE zEjE{^o^V+fYxIqHa-d@WQHfh;An{JXz2$b~2Y*-uS=ernp`$^R!soT3SbMF@xO$gj zfL9$E$aUase{SyF`yjnWd~CFJ+Lb=!(=5{B-MbU-ZPxAO>BBe_PdqCzSp*++2#8aS z>T??dKMaf?9KZODVXcGhaFJLb0Hu2b6rDid<|9kS~7E%KeWMHNlYCz%jAHBucs0o zrx#6)NQ9~<9U3uPTf_Yy&_=KK?HKp7uBAqK*urWZBI1Dh%0tG9KNfgn>sEqIhef&y zBHvV1;$2kvcG!6P)n?czF$8hzr58@Q%k(^1xiMJ1uHfQR(k*5VK21iZhKEYV=4V^q zol@Uk9g_gPO8(=i@yg;e!j^*Fo(GEtyV_6btN6G+ITH_cRBLOnaxKfU_fyxtq_oDJ zQR7|bW}^XOl6Oiej z=LL}@VMdcqq?J^nX(g&iO7Z@Gr~OxN{x|lBQIdkZ|5yzG0P?@3|K#(;Zb{L "" Then f.Add(btnCBAM_DS_DAKOSY_Summe.Tag) + If btnCBAM_DS_DAKOSY_GP.Tag <> "" Then f.Add(btnCBAM_DS_DAKOSY_GP.Tag) If f.Count > 0 Then 'Zwischenablage @@ -1725,6 +1731,12 @@ Public Class usrCntlCBAM Blatt.Range("AE" & cnt).Value = row("importer po box") Blatt.Range("AF" & cnt).Value = row("importer coordinate longitude (x)") Blatt.Range("AG" & cnt).Value = row("importer coordinate latitude (y)") + + Blatt.Range("AH" & cnt).Value = row("exporter title") + Blatt.Range("AI" & cnt).Value = row("exporter country code or member state") + Blatt.Range("AJ" & cnt).Value = row("exporter street") + Blatt.Range("AK" & cnt).Value = row("exporter street additional") + cnt += 1 rowcounter += 1 Next