ࡱ> Y : !"#$%&'()*+,-./0123456789 ;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~Root Entry F9m@1Workbook_VBA_PROJECT_CUR"P3VBAP3N  "#$%&'()*+,-./012356789:;<=>?@ABCDEFHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnoprstuvwxyz{|} u'ɀ\pwr Ba=DieseArbeitsmappe=x-L;!<X@"1Arial1Arial1Arial1Arial3#,##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\ _ _-;_-* "-"??\ _ _-;_-@_-                + )  , * `Tabelle1118 u'ɀ   dMbP?_*+%"<~?<~?U >@7 Tabelle1 Drbb#<nGtlJ#FߎJ@-{ xߎJ@-{ nGtlJ#ME(SLSS6"DieseArbeitsmappe$ !Tabelle14Modul1 '__SRP_3?N0{00020819-0000-0000-C000-000000000046}(%H@h % %Xp@@0L $*\Rffff*084c0ad7d04xAttribute VB_Name = "DieseArbeitsmappe" " Bas0{00020819-0C$ 0046} |GlobalSpacIFalse dCreatablPredeclaIdTru BExposeTemplate`DerivBustomizD2Drbb#<RϠbA:A6P] Fd|_ J㍶R.xd|_ J㍶R.RϠbA:A6P]ME(SLSS6"N0{00020820-0000-0000-C000-000000000046}(%H@h % %Xp@@<<0L $*\Rffff*094c0ad7d04xAttribute VB_Name = "Tabelle1"  Bas|0{00020820-; C$0046} |GlobalSpac False dCr@eatablPredeclaDIdTru BE xposeTemplateDeriv$Bust0omizD2rU  ,DLL#Visual Basic For Applications*#f*\R1*#1af*\R1*#df*\R1*#285 & (@ (h  &B   ( 80RHx0U4S  0 @ P&Bp&B   0 @0RP0U>W  0@ P ` p /  &B& T(VRbxME<> <8<< LL<<<&Q,,..,%+ (`?kpi" i$`&n`(l`*h`,d"`.@@`"+68`:kh//"i" i$`&n`(l`8h`*d`,`1`.\+:`,D/xQi" daI< +> `X-4kVi" ei+@`=k`ZiB D1_~iD d1`"`>T:1`$P`FLda+N`8k(""viB H#57iD n`"P8TO `$P`FL:`PH2+Rh`Ok77iB (PaiD D1_~`"OT1`$OPns`FLenda`THr`VD`X@55{`.P<F1`Z:.`\8 ng`^4``0`b,+d`JkFFiB HiD Ho`"KT1`$P`fKLd1`FH:1`TD`V@da`h0<exc`X`8e`.4;`j0#57`Z.ah`\, +l `5kHlliB h-iD '$In,  $$`"(6T `$5P-+K`FL'@`TH "`r@6D`X@`j<h`t: `v8KT`x 4KT`z0`|,X'`~(d'+x ` (  iB X '`"HE`he+ `  ''i"`G `t '$+ ` H  iB `"`'N+ `  iB `"+ ` P  iB `"+ ` iB `"KT`KT+ ` X <i"$>``t G +X` ##ZiB iT`"`'+` !!}iB MTi "`"`\+` Hi" h'i$ t+`MXki" i$ +` Hi" hi$ +`/kI" D+` (?)` $$ H -% '"%`.G +P` iB `.'`"+`1kMMiB  XiD  .I, Ix20 'h`"P2TK`$P "`TL`<H'h`PDG `@`< K`n8'`.4G +``0Hk8AA#iB X'hiD x hI, `"GT .`$P`TxL.`<H V`D`@`<`.G8+`Ck>>diB KTiD X 'I, !d'`"DT$H`$P D`<L D`FhDHX '`D`@`<$$`.D8$>+0`J>>iB ('$iD H--KI, `"GT0'`$PG`<L`FHG`HD `@`<`.H8G+` pI" +` ?) "0  (0'% H%`.`'+` i"'I< 'I 0vI 0 v`:~` ` `H``.'z+p` (i"HI ~+  `  i" i$ `.`#WER+!` `!0i"  Bi$ '`.`+"` "Ci" 0 i$ '"`.0'`+X#` #Vi"  i$ I '`.`+$` $ki" I 00`.`'+  %` P%{i" p'I" I$ 10I&  0%`+* &` @ &i" ` I"  I$  I&  `+.!'` 0!'i" P!I" x!I$ !I&  `+2"(` "(i" @"I" h"I$ "I&  `+6$)`P)k#)11i" 0#i$P#I x#I #I<  `:n `Th`<#d`>`X$@@+\*`%k$ *i" $I<% %,`\z 8%%& `"t`"t`"t($@(p(((%X((%`"t `"t)`"t@(`$p`"t``$pH`"t0`$p$Xx h  ` "0X0$(8  P  X$  p!0 `"t0@p @(` @(P @8)@ @(0 8@) @ .`"t@ @x#)#$#P##B+BCBB)8C*`6x*)@*0*`"t++`$p`"t`"tH`$p0`"t`$p`"t`$p`"t`$p`"t`$p`"tX`$p@`"t(`$pB@"h `"t,,@--,,`:x,, -`"t,@(-d @T @D -h...-.0.`>x0`Bh X.-`DX .`"th.. @.d @.T @D @4 @// 0P0h00/0/`x//0/@"h / >0@@80d @` @\ H@p1L @0< @0, @0 0@0 @@1 3`Bh @2(2`DX @X1 (@ @ h8 833222(2h31`xh2`Bh 2P2`D(2X 2x2 HJL4>4@3$ @3  (32 @4 @@4  333@P3 @ 2:0l@3 3@ @4 :`Bh p4@4'`DX @(4 (@4 @X4 @4 4X4'@4 4X4*@ @4/@ @ (  X  p @ 6766 7x7p6575`lx05556(6`"t6@6`$p`Bh `DX HJL4>4N@6$ 6p6 @`7 @H7 @ 876@7 @ @ 7 7@7 @ @@ x70X6@0R @ @7 @8 @ `Nx@88h8`Bh 88P8`DX 8x8`Bh 99`DX x88h:998:98908HJL4>46 @9D @4 @$ @  P:9 @ : :@ @ 8:`6x::`:0:`"th=`"t;:`$p `:;:<<x<<;`:;x:`$p;;@<X <; 04@T @0<D @H<4 @@`<$ @ @< @ @< <<@/ @=<@= @(= @ 0<`@xX@`Bh P>P=`DX >P=H?>?x?>P=>=x>`Bh >`>`DX >>dHJL4>4 6@ ?H 8?>@8 @( @$ ? ? @`?  @ @ x?H@@A@AAXAA@@(Ax@` xPC`Bh @@@`DX @`"t@@`$pA@ @A\ BA 04A@X @pAH @A8 @A( @ @8B @ @B (BA@/ BB@PB @hB @ B`$p#:\>lR@\ @CL @0G< @ C, @C B04 D`"h DhD`$ CX @F @ 8hP EEXEEF0EhDFpC`xD8K`Bh ED`D`DX `Bh @`DX (HEDHJL4>4:0@pE4 (E0E@pF$ @  FpE@E @ @E @F @ @(F @@F @XF @ @F E@N@ F@ @F @G H@ #@HG @`G +@ `xGxGG`Bh HG`DX `BGh IG`DX H0xGPIIIIHxGIGHJL4>4:@(I4 @IH@8J$ @J  (J(I@hI @ @I @I H0d@ @I @hJ @ J!@PJ #@ @J h@ HxKL8LPLLhMLKKXK`Bh KK`DX `dx(K0`Bh KK`DX (LKHJL4>4@@hL( LL@PM @8M @L LhL@L @ @ ML@M (ML'N@ MM'@ @ @M MhM*@ MM.MBNNhNNN`xNhNN`"h NN`$hNX NN 8xP`HPpPPPQHPO0PO`RxOOO`Bh PO`DX `PPHJL4>4@@P( PHP@Q @pQ @ Q QP@P @ @ 8QP@HQ `Q Q!@ QHQ!@ @ @ QQ#HQ3P<++00$$X$% D0'L $*\Rffff*2V4c12da77*\R1*#ce*\R1*#66*\R0*#10*\R0*#0*\R0*#13&*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\Programme\Gemeinsame Dateien\Microsoft Shared\VBA\VBA6\VBE6.@H P /`&B&" (B 0@$H `B  &0B  % 8 HXp x%  #2> 2>X   (* 8 @ B H P ` h  p  %        %  @  P ` x # 2> 2>     8  X  x         B     ( 8 @ H  ` p %        %  0  @ P h #p 2> 2>   (8 @ P` hx+       (@Xp  B 08 @P%h   %   0H#P2>p2>     0 @ P`hpx  + "#( 0 H "#` "# )  "# "# "#8 `hp    B  (8HP`hpx %   (%@ ` p#2>2>0 8 Xhp(&( &8X ` p            0 8@ H ` x         $C &CHp         :   0 H :P px      (8B  @HPX `p  $ ( H P X ` p x   ,   (B  08@HP p     0 P p       0  P  p           ! !!! !0!8! @!P!`!B  h!p!x!! !!! !!!" ""$(" P" p" x" " " " " " " ." ## # #(# 0#@#P#B  X#`#h# p### ### # #$$0$"@$h$x$$$$$ $$$ $$%B  %% % (%8%P% p%%% % %%%%0%(&8&P&X&`&& &&& &&&B  &&&&& ''0' P'`'x' ' ''''0'<(H(X(p(x((( ((( (((B  (())) 0)@) P) p) ) ) ) ) * 0*P*X* p* * * * *** *** **+B  +++ + (+8+P+ p++++ ++++,,, ,0,H,`,h, p,,,,",, ,,, -- -B  (-0-8-@- H-X-p- ------.. . 0.@.P.&h..&...../ / /(/ 0/@/P/B  X/`/x/B ///B  ///B / / F/0 0 0(0B  0080@0H0P0X0`0x0000 00 0 11 1(101B  81@1H1P1 X1 h1x1111 1111 2 2 02@2H2 P2`2B h2x22222222 22%3 (383P3 X3h3%3 333$3 33448C48CH4 4"&4 H4 H5;H5;h5 %55595 5&5 16 &(6 H6X6 >`6 26.T67 7$> 7$H7 h7@Yx7.7$778 88"5 8H8X8$`888$88&O88 8!89 90989 %@9P9B X9h9p999999 99%9 9: : (:8:%P: p:::$: ::::8C:8C; P;"&`;0\;0\; %;; < < (< $@< `< p< x< < &E< <<<< <"5<  = 0=$8=X=`=$p==&O== =!== =>> %>(>B 0>@>H>X>`>h>p>> >>%> >>> ??%(? H?X?p?#x?2>?2>? @*R@@wH@@w@0\@0\@ %(A 8A %@A (`A (A(2A AA A$B B 0B"58B `B pB$xBBB$BB&OBB C0"C@CXC`ChCpC %xCCB CCCCCCCC CC%D 0D@DXD `DpD%D DDD#D2>D2>0E hE*RxE@wE@wE0\(F0\XF %F F %F (F(2F (G (G@G HG$`GG G"5G G G$GGH$H(H&O0HXH `H0"pHHHHHH %HHB  HH I0I8I@IHIB  PIXI`IhIpIxIIIIIIIIIIJ J 8JHJ hJ xJJ JJJB  JJJJJK K@K XKhKKK KKK KKK<LHL PL`LpL$xLLLB  LLLB  LLLM(M8M(@MhM pMM MFMM N N N 8N @NPNB  XN`NhNpN(NN(NN NN OFO`O pO O O O OOB  OOOO(OP( PHP PP`P xP6PP P P P Q Q QB (Q8Q@Q8HQ8QQ(QQ(Q R (R8R PRF`RR R R R R RSB S S(S80S hSxS S*SS S S S T T0T B  8TPTXT`ThTpTTTTT>T0U8UPUpUUUU B  UUUUUUUV8V@VH`VVVVVWWW B  W8W@WHWPWXWpWWWWbW@XHX`XXXXX B  XXXXXXY(YHYPYbpYYYYZ8Z@ZHZ ~PZ B ZZZZ[ [[(_ X^_ 8[P[X[`[h[p[x[*0[[[[ [ ^ [(\(\@\X\(`\\ ^\\\\\]",]0]@8]8cx],;] ]]]^ B (^\Dh^:^:8^:^^\8_x] 0$] X$ ++++++++++++++++++++++++++++++++EN!+ entwickelt von Winfried Radner"+ e-mail: Wolf.W.Radzinski@gmx.de+ ohne Gewhren ++++++++++++++++++++++++++++++++e0].]]' '&'( "'*!i# $',!j# * , hl#NTF0 , * 0%2 "'" ,'*MTF0 * , 0%2 $'$ *',n@ . * " .$X $ .$X ( '& & '( & '& &X '  .g~ "$-G-'>ji0 ]] B$H JKTF B'" LKTF B$4'B BX '" BX'BSF B!d'"n D$H JKTF D'$ LKTF D$4'D DX '$ DX'DSF D!d'$n "$> $$>'F "$>-G " " $4'"jal. $$>-G $ $ $4'$j F++KTF " $$ '@+-KTF " $$6'@-+KTF $ "$6'@--KTF- " $$ '@SFerror'@2Cni]hl]] B$Hxt JKTF B'" LKTF B$4'B BX '"S BX'B~4.SF B!d'"_inn D$Ha. JKTF D'$m LKTF D$4'D DX '$0 DX'DCHESF D!d'$chen "$> $$>'Fxt "$>-G " " $4'"j $$>-G $ $ $4'$j_un F++KTF " $$6'N+-KTF " $$ 'N-+KTF $ "$ 'P P0.- P'Nd` P'NkP--KTF $ "$6'NSFerror'Nmni]H`]xS]]s]]] 8P.t B$H JKTF B'" LKTF B$4'B0 BX '"5EE BX'BXTsSF B!d'"_ern D$Ht JKTF D'$ LKTF D$4'D DX '$S DX'D~1.SF D!d'$_unn "$> $$>'F "$>-G " " $4'"j& $$>-G $ $ $4'$j_go F++K--KTF'TSF-'Tn0'V. $'X9FF'\ X he . Xsch $ .$X'Z ZMTFU Z b V "$@'V Z 'Z'\KTFSFn \ . X  V V$@'^ ^ ^$@'`t ` `$@'blt ^ b$@'VekX .k@ T V'RTi(h]ma]0H]`x]]] B$H JKTF B'" LKTF B$4'B BX '" BX'BSF B!d'"n8 D$H JKTF D'$ LKTF D$4'D DX '$ DX'DSF D!d'$n "$> $$>'F "$>-G " " $4'"j $$>-G $ $ $4'$j F++K--KTF'TSF-'Tn 0'V $'X "'j X j $'f "'$ f'" j'Xkx '\ X . X0'h $ .$X'Z ZMTF "'h Z G " "$@'hj ZKKKTF h "$@'h Z G h h$@'hj ZG h "$@'hjKKK KTF h h$@'h ZG h "$@'hj Z G h h$@'hj Z G h "$@'hjSFn V h$@'V'\KTFSFnP \ . X  V0'Vk .k T V'di p ]]] ]( @ ]X ]p ] ]   B$H JKTF B'" LKTF B$4'B BX '" BX'BSF B!d'"n D$H JKTF D'$ LKTF D$4'D DX '$ DX'DSF D!d'$n` "$> $$>'F "$>-G " " $4'"j $$>-G $ $ $4'$j F++K--KTF'TSF-'Tn "G0'"j $Gpj "$0b "Gj " " $4'" $$0b $Gpj $ $ $4'$0'r $'X "'j't_` j X 'v vNTF "'x'tKTF $ " "0 T "'xd0'xk'td " $$N'" r1$@'r "'j "00'x'tkHk@KTF " $$N'" r1$@'r "'jMTF $0 v 0%2'z10 v 0%2'~ " z0 z0'z ~0'~PkH z5$R'| " | |'z ~15 0%'~k z3$R'| " | *3 |'z ~13 0%'~k " z$N'" r ~$@'r "'jn8 t n x'l r'd T r'lkzp#WERT'l#WERT'i ]H ]` B$H JKTF B'" LKTF B$4'B BX '"SF B!d'"n('  ( "0a " " 268435456  " 268435456$l' '"d "'0'"k "0 $  'dX0000000 $ $ 4 'k   (z  (#WERT'ix ] ] "#WERTGj  ( "$' #WERTGj 00000 0%' 10001 0%' 20010 0%' 30011 0%' 40100 0%' 50101 0%' 60110 0%' 70111 0%' 81000 0%' 91001 0%' A1010 0%' B1011 0%' C1100 0%' D1101 0%' E1110 0%' F1111 0%'_H $0   $4''td'tk t '  (z  (#WERT'i ]h ] B$H JKTF B'" LKTF B$4'B BX '"SF B!d'"n'  ( "0a " " 1073741824  " 1073741824$l' '"d "'0'"k` "0 $  'd0 0000000000 $  $ 4 'k  (z  (#WERT'i ] B$H JKTF B'" LKTF B$4'B BX '"SF B!d'"n  (0' " b  $ ' "$1KTF 1$ '0KTFSF#WERT'zhn` " " $4'"8  (z   (#WERT'i ]p B$H JKTF B'" LKTF B$4'B BX '"SF B!d'"n`  (0' " b 8$R' "$17LTF  "$$ '0KTFSF#WERT'zn " " $4'"x  (z`X  (#WERT'i0  ] ] 123456789ABCDEF' B$H JKTF B'" LKTF B$4'B BX '"SF B!d'"n  (0' " b 16$R' "$19LTF  "$$ 'AFLTF   "$X $ '0KTFSF#WERT'zn " " $4'"X  (z@8  (#WERT'i ]x ] "#WERTGj  ( "$' 0000 0%' 1001 0%' 2010 0%' 3011 0%' 4100 0%' 5101 0%' 6110 0%' 7111 0%'_ $0   $4''td`'tkP t '  (z(   (#WERT'i ](]@ B$H JKTF B'" LKTF B$4'B BX '"SF B!d'"n`  Gj  "0a $ ' "1$N'"zk    Gj0123456789ABCDEF'k'  ( "0a " X $lX' '"   $  '   (z  (#WERT'iX]] B$H JKTF B'" LKTF B$4'B BX '"SF B!d'"n@  Gj    Gj0123456789ABCDEF'k0'  ( " b  X $R'  $ "$' MTF   X $ 'SF#WERT'z n " " $4'"  (z  (#WERT'i " $$@'i " $$N'iX " $$l'i0 "$>- "- 0%'d "'ki]h]]' .$ .$$H   .$$'dP  .$!    !$'  k .i] ]81' B$H JKTF BX '" LKTF BX '"SF B!dX '"n8  ( "KKTFSF . "  .$R' .n   (i P ] 8]P]h]]] $G'j B$H JKTF B'" LKTF B$4'B BX '"SF B!d'"n D$H JKTF D'$ LKTF D$4'D DX '$SF D!d'$n0 "$> $$>-'Td 'Tk "$>-G " " $4$'"j $$>-G $ $ $4$'$j,'< $ <$: " <$: 'BIf kpos(x) > 0 Then x = WorksheetFunction.Substitute(x, delim, "")BIf kpos(Y) > 0 Then Y = WorksheetFunction.Substitute(Y, delim, "") " < 0%'" $ < 0%'$  ( " $$l' " $$l'n0  0%2' n0 .    n0 $$l' n0 $$l'n .k 7mit Abs tritt am Ende des Nachkommateils ein Fehler auf+nk = Right(nk, nk_genauigkeit + Abs(nkpos))   G    $4'j KTFMTF   $'    $4'NTF   G0    0%2 'j  $4 '    $'SFn'.   . $0b . '.   . $4'kx    $'dH 0   0%2'k  T  < 'd T 'k  (i]]]]]0]H B$H JKTF B'" LKTF B$4'B BX '"SF B!d'"n D$H JKTF D'$ LKTF D$4'D DX '$SF D!d'$n` "$> $$>-'Td0'Tk  "$>-G " " $4$'"j $$>-G $ $ $4$'$j,'< $ <$: " <$: ' "$: G " < 0%'"j $$: G $ < 0%'$j  ( " $$d'  MTF  $4'    $' RTF '0' NTF0   0%2 '0'SFn   '.  . $0b . '.   . $4'k    $'dp 0   0%2'k@  T  < 'd T 'k  (i`] ]8]P]h]] B$H JKTF B'" LKTF B$4'B BX '"SF B!d'"n D$H JKTF D'$ LKTF D$4'D DX '$SF D!d'$n "$> $$>'F "$>-G " " $4'"j $$>-G $ $ $4'$j?,'< $ <$: " <$: 0%' "$:  G "0  "$: 0%2'"j $$:  G $0  $$: 0%2'$j "$: G " < 0%'"j $$: G $ < 0%'$j  ( F++KTF " $$@'+-KTF " $$N'-+KTF $ "$N'--KTF- " $$@'SFerror'n>  $4'    $'  '.  . $0b . '.=   . $4'k`=    $'d0= 0   0%2'k=   -G 0'j  < 'd< 'k<<  (ip<X<]p]]]]] B$H JKTF B'" LKTF B$4'B BX '"SF B!d'"n; D$H JKTF D'$ LKTF D$4'D DX '$SF D!d'$n(; "$> $$>'F "$>-G " " $4'"j $$>-G $ $ $4'$j,'< $ <$: " <$: 0%' "$:  G "0  "$: 0%2'"j $$:  G $0  $$: 0%2'$j "$: G " < 0%'"j $$: G $ < 0%'$j  ( F++KTF " $$N'+-KTF " $$@'-+KTF- " $$@'--KTF $ "$N'SFerror'n8  $4'    $'  '.  . $0b . '.(8   . $4'k8    $'d7 0   0%2'k7   -G 0'j  < 'd@7 'k07(7  (i70 "$>- "- 0%'d6 "'k6i6]]0]P]h6$$'dX6$'k@6' .$ .$$H   .$ $'d5  .$!    ! $'  kp5 .X5iP5.,05]Xp]] <$G,'<j $G.'j " <': : " " : $4' " : $'"kX4 "' ''.   b "   $'  " $4'        . $4' '" "'  . '.3 : G  < 'jX3iP3. "  0%'i3p]] " $ 0 $ " 0%2 "'"d20 " $ 0%2 $'$k20' . "0' " .$ 1 $ .$ 1G1'j 0  'd1 1G 'jk1 .i1 ]] " $ 0 $ " 0%2 "'"dP10 " $ 0%2 $'$k 10' . "0' " .$ 1 $ .$ 1G1'j 0  'dx0 1G 'jkP0 .i80]P]h " $ 0 $ " 0%2 "'"d/0 " $ 0%2 $'$k/0' . "0' " .$  $ .$ G1'j 0  'd/ 1G 'jk. .i.](]@ "  G0  " 0%2 "'"j $  G0  $ 0%2 $'$j " $ 0 $ " 0%2 "'"d.0 " $ 0%2 $'$k-0' . "0' " .$ 0 $ .$ 0G1'j 0  'd0- 1G 'jk- .i,X]] "  G0  " 0%2 "'"j0' . "0' " .$ 0G1'j 0  'd, 1G 'jk+ .i+ (+]'  &KTF "X ' KTF "$'SF " &$$'n0+ "G '"j0 " 0%2 0 $ 0%2 "$4' &KTF '  KTF $' SF $ &$' nh*(`*iX*  ,8*] '* &KTF "X ' KTF "$'SF " &$$'n) "G '"j0 $ 0%20 " 0%2  "$4 "$' &KTF '* KTF $'*SF $ &$'*n(,(i(  0(]!'. &KTF "X ' KTF "$'SF " &$$'nH( "G '"j0 " 0%2  "$4 $$40 " 0%2  "$4 "$' &KTF '. KTF $'.SF $ &$'.nX'0P'iH' !4(']"'2 &KTF "X ' KTF "$'SF " &$$'n& "G '"j0 " 0%2  "$40 " 0%2  "$4 $$ "$4' &KTF '2 KTF $'2SF $ &$'2n%4%i%w-----------------------------------------------------------------------------------------------------------------5.2.03,"8%]#]#]#$'6 $ <$: Gzj $$>+':d$':k$'T "$>- $2$l0G-'Tjk8$ $$'$ "$'"1'< $0b $2$l1 6 " $'6 $1$'$k# $2$l1b <2$R'<i'\ $2$l'$ $0Gxj " " $'""" :1 6   $'6k" 60  0%2 6 6 <$:  $'6 6 <$4 <G 6 6 < $'6j 6 <$ <G0 6'6j T 6'6z!8!i!!1,0'6 ^,$ "- 0%'"tute0'6") " < 0%'"'>m = lz_mult(n, "2") "0 0%'" "+ 0%'" "G'\j " $$\Gzj "$\Gzj\(]Attribute VB_Name = "Modul1" Option Explicit Pub$ x_di@v As Sng.uw_s" 6'+ '+ entwick elt vsWinfried R adner#-mail: Wolf.W.zinski@gmx.de$ohne `Gewh5|PrivaFuncwlz_plus(ByVal Rxe,  y ) Dim s telle Integer, u l*Long, l' iDɀ-= 0 )$= Len(x) $ySelect Case B-3 I@s < 0:n=Srksheet@.Rept(" 0"&x) &< xBly>y@,Wo|x #Cl!End C2 `For i@To 1ep -1FC@](Mid(x, i, @1)) + yUu f=l\ 1@V DcCStr(CA1 Next `i IfC Then ue Do Whi@Left( /;9a AAxD) > @=DRigh -@ Loop Syнmin_"|__z_ms\'i!af:`A^a"a@ _c_cjX_c_cx_cD)n_c_c_cEc(Abs(9qod!gU!#dld39odms'd!y$Ums+f@bi]rsB zzzs%KabCAi`%ojw3wBDw )w;") #wls#9 $ Aa TCCQLnJ ! <> PTq "-"iU#NIfN,~kpo}xcPdel|E,"NxOrr`h0Resu^ In1a1, g `19Pu- signum:XC!+Qd1)Apg-`aerQ[VariantIa]8cxZTyp0e(xrC+bvb;Scsx@"DoerCDec0)Yr/iblE7u.TP~S e(y ng: эy y     s s&A0'$ 1$¹  `""+-:AAJ-C;-E?e c 1eA$5 =|=V=5l p475g,@%15rtemp| o7o7vbo7o5 o7r@CDo7sA=xr+ C/ /r|# T3 Cg o7Go7 s o71f3"o7o7}o7 +2_!o7Select Case signx y x"++": lz_m =inus(x, y) - HplF-tempNy, xK3s Ifs1<> "0" Theny-"-" &:.ElseI(?!nd If"-mq<"err@or" E%SăFunctiovPublic kult(ByVal xr As VariaPnt,  y )String Dim x䇍tot_A-M m@!jLo`ng, iCkInteger CgzBoolea9&2A+T, 4 8  MATypeH(xrvb: >=KkvbDoWe@rCDec̗xblzxr.Text z.y.y yN%B.{= ..C.fhpD=bum(x)`n`w = arw0RightLen- 16'y)&A# i!#' C!,rX@mdp]i-pO0jc W= Faj > 0&For@_= 1 To jM kC`_(Mid(Yi,CT ikIs :# :Do Whilew  Bd @p(! ak %F0LoopbTrudB0$/iaL`A i < jA2AW4 2}2uK8I4$K8%aCNo ip!a!= f@&)Ci?IJ? s, yɛC[ߧ_ a,_ , jra[S[s [+WЄW`B%WW!W߄dpOWsq]!WPX e(O P0 W WG/ Wy_c WWzTWWZ WWgn`"@TW9WltqW0*= ?aX1W0U3=  xQ qq\j`uA0-\\V 5d ]]]]:A " k `pd0Ibr^XD3, 6, 7$5],5sY= 73j_p t!]5, 8, 9 t2C/ _e2> z8o9ou@(/Co_iGR+_{qۓ_{0@ _{w b&D 2 ot_i tt́div_tOp@resA"uOn Eո GoЗ_ mYqdUS_v@?uystfertigdiffA:rv &c ynaE ymA͵ Case vbDouble: xr = CDec(xr)  x|Str3|bl@Elsxxr.Text End Selec VarType(ysing: yCyry: :C?]0];]signxum(x) & y If = "-" Then Right(x, Len- 1yy)v2y=xyA^"++",:-": tot_*"7-g#0(= 0G/"0 B*GoTo lz_div_erjDo While9f;15i 1test1J L oop :  I*<= { I* —YE5iAP/jFzj*I ferti2g@Fa& 0diff@ - j m lIs < 0: rval@ xiTrue 0>Sy >@@x <> mY  %&A& EϕbAGIf, (`2 i, *g D/p(a[1~" fH0o0og9~12`D>R i ynEyWorksheetFunction@.Rept(@4,~ bP`BAA"d1"f *> (&!K)OKn` D%2weite%. ym 'mult B5Bdnbcm(Subs@tituteOffnO #3 '*3I@u` c(,+nH7O9:9O [ Unti$l C6 restg$pQxepU L$HExit E1 !jc"#WERTmP/6 7PpicFaoDezHex0(ByV\As 0iant) Str On Error "dezhexr,im[Dte|mpc%5Gvb@x4 `pߜe c"ApplicaHCurs= xlWai { &B!CuPm9 Or0 0l268435456\=展", Qs)"5ip, Q!n` TQW"`$(1qv5.# $]0Q\G, 7fk Ӕ xlDefa V 4+4) 5`k 5_`%xBin5155bin5_B,6t~PBoolean3A&;f?-V)105´OjSGju j~0A!f//p 1$//ru 2#10_ _Q3$_ //!4"10_/./!5$_//m!v6#=//"7$_//mp , "8"@1000") hex_temp = WorksheetFunction.SubstituteV(z917AB18BB8C!7dD!BE!fF!BDoI@f Left1)z"0" Th en Righ Len) - 1 fertigFalseE TruA nd If Loop Unti l  lz_DezBinApplica@Cursor@xlDefaultAExit E dezbin_0err:eI"#WERT" Ec-GPub!  Oct(ByVal xr As Variant)String On ErrA-GoTo @'octA' Dim| x Select CaseType(Lxrgvb :=!$Doe &CDecFC;x*CK < .Tex-"Cw "& 46Wai5Do?aTYn(x) > 10 Or> "10737`41824ZB%=A1div(xž, PX x_@%LX$ x(aY Mn)$E$(a ) &'H ,,w$("D"@ ,@' JAql lXltJElA$@ll?lljj}= jtrj@2jZg'!Am0`miWhilef09plus(6,G?1dp4_rD"1":g_p:$v+C0"!-kV +&G@Q7l@ 1lCk-/ c#-gc`, c_ ;-cc 7-_ phbb vbb5f0)O!bxrb OB#a$0`-v-@mq-3_8(-PQ`)1do "7-i2e71,-sv UN< T--9-*Pˑ$----onBHex-----`charsYG=`H23456789ABCDEF`R1Rb"111b# 1ív1C1кbv1x13A613ï^^ P"91y1uӏ1C"A5F/-In(1,, ))o7p2#p F*goeo7o78o73n7 *-o7  , ?a7DezBin2(ByVal x As String)P On Error GoTo dezb_err Dim oct_te mp d.fertig*Boolean If= "#WERT" ThenW(Application.Curs= xlWaitHv= lz_Oct(x) WorksheetFuncLSubstitute(C, "0"00" 1 1 2 1A3 ոA4A1A5C 66BA7C DoCLeftH~1) 0 @ ȗRigh Len) - 1Ì = FalseE Tru nd Loop Until  .*BT@DefaulExit E y:_CDy E  Pubw tInr!Var@iant, #baInteger[in#$ Select@ Case @Type(xr6vb:x 9$Do e r-pCDecF`IxK > .TeNx (%C bp < 1+=3DoA 3C2In`\uw_sB,S &/`m(xd?NbD@IfB!`& )bb> 16S &"0123456789ABCDEF"`("G]u$B= CB(Q divCA6bh), q)Fy$x_`Mid$$(,  + 1t-f*s scAs{?sq!Intϟ999ʁinD99v99;999#z?9RL9f.00y0` 00t0P23P0$Ց/@While x) > 0B,Hmaa0r, d0/-q= In1-]E32D1d3sS$3Is:'0 plusu&92#`R/L`WR"_#~ $F};ut ; _ _u^uadd;s,uy8*uDPy_|D sub&|Rhg__mo I^yZ= abs >`signu` -S%"-0&,+Vxw+ s ParamArray R(B $ a RangciLong=ߐ _P cEFi UBound(c;R(i)vb ߔ %mP-3, @V qEach aPJ.Areas=FcAasc. \ueC 5N ~cvg%i| #@5xfakt'ɱnhQ_o!1i "1 dZect Case VarType(xr) vbString: x = CLng |DoubDle>Els 6.TextEnd Sel Application.CursorkxlWait, $x0, 1:g FCiE1 To 6lz_fakt mult(, i}rNW i, Y_ErrB`Defa. Funcp  lr_div(ByVal xr Asiant,  2y Op nk_stellenb2, genauigkeip25)+ OLn YGoerr_B Dimx , y Atot_signdelF nkposA Lo$ngvkG, nJrestG iIf Is Null(G>) um(x) <> y0'FC= "-"B nD`If  "C:)labs(Right(x , Len- 1)@t'(a*y#$U@,`iT= aU(@) - 'G > 0Worksheetz.SubstiHtut , , ""Y) Y@;Ya#r!"z`Kx= @,$yw, Tru&e@}= Re@pt("0"a_-B M-bI@ *ɝ+Eՠ =& & B h@Z'BmAbs tt am e As Nachkommateils ein Feh@ler aua'%C^nk" + d`K _H2BQ0SvxIs: b @&9ft@ υv A=nk7b< 0"v<9 w/'''-!p 0?1x) &p  F v-C Pnk_VLePAu*"bX$C0H> prDo While Mid(qi"10)E.B" 'Loop ( -v A.>@Qy2-t! b P&C.C-a`)f02EW sk"[G "UOUO`K"___Rr|qx <,HߛP ߛߛ%O!uBqSߛlߛ !xߛ ߛ/ ߛ CߛKߛ1AߛcW:`QO砓ߛI-"1 ߛ"ߛd)pOrϛ?aϛmtN2 ?8upWq9iAI1 orW0lz#P6= \uYht(vk, Lenp) - nkpos) Case Is =T:Td DX$vk Hvk$"0"&x<xWorksheetFunction.Rept(@,2!) & kElseEnd S electIf> 1 Then i0Do While Midi + 1, 1) l LoopCRigh igTIfTnk) >_st`ellenXL eft(nnk{+ *$_nk-K!_T*()0G'l@r_multtot_signmAdelimn'T .Ferr_ wApplica‹CursorxlDefa A  E add(ByVal xr As Varian(t, y Op ;= 2)AString @On Err@ G0oTo ) D@;x , y ACD!Lx LoA AMi .Texs5ujyyy8= E  ' 4= um(xdy+ d'= "-"Bd+ざx#- 'yB%A#y#7#G ,D= {Max((B),  c) xv @ ) $os y)k> C(oSubstitut[, , ""+fzG&dԎWaiX & iWa?xyh"++":`Vlz_ nk_stellen pThen$XLeft(nW&V Else 0nk & WorksheetFunction.Rept(, o- )UQL> 0N qN"" Or "-") &lr_sub delimQ|nk\a Derr_ : A@pplicaiC ursor+xlDefault y  abs(ByVal x) As String fsignum(-": OTSubstitute(x, ?"B/ fA*6+s$ParamArray R(-VariaTnt 0D@SaA4RXang@ciyLo;v@BInteger @On ErrTGoTo>!_@IIsNull(R8(0)z2H= 2t >@׀E@E0BF@1 @UBoun:d)æi?Typei < vbFJadd(,Pi)ɾG+a~aEach a In.Areasc~ajcicr.OueaNext cf G FBi 5d4JttX_AA_, Op!i`br_&,@Xtt".KblocA3PKkG _v MkposO, lwelinkerecht*n2komm\cZC$TBdXt hF  =9 (`@z j = @- DLx`(-;9"=±~x`(/cDo WhileA)>@2CH*a ` -D ,tt" hC &`&d , ($ +) * (i`1w! !! w#nah<"(%1@X)& c=&3 Pbno_`:c%". aSa1o$@R  O$O$n(b ?$o@7XO$pH #O$HrO$ O$O$O$ O$O$O$ H023_$_$  _$V$<> #H ##0 ##N(#C##y#nN##(m in_bi= 16II_%R%% %min_bits - Len(x)) & x Ify) < Then y = WorksheetFunction.Rept("0",Zyy xRsxY2;ElseGG#nd}$lz_BinNORKl For i1 To tempMid$(x, i, 1) A;1 y "1"+"D> D 3 T& %" +6  ENext i E@ ET(ByVal x As Variant, OpAƕ= 16)String` DimY Lo*@C0rͨo]Fϒ@Tr}"#X1= "RwT Zw$'xw";b ;SHL;a$nz(16H>ophbasis0j@On ErrmGo`m shl_errC")A @"gSelect Case g B2:bC I@G10:  Dez*!hsG In} )) cC m&"~0AX= Right(7B&Z.),  $c)A #F#,c$In( _> %=: nPRPPn@6B1~Pr|PPPPT&Pf$@PLef/(~S%*=*()sw' ; SH))@)!p)mp1!)ct shb))RO)*o&_QPp_Q )[QR)Er _Q0W*)_Qi?)P{_Q#a)n(A B)&/'/'tpR('o+o+2o+O2D: fo+j+po+o+d g!o+n+|o+||vp$o+m+| j+LPo+o+Ro+o+o+e|o+||nU|+&,/?*'#/o+o+e VROo+@%o+l+!po+o+l+!o+`+'-5.2.03 Public gr_zpow9,4, sy7͘]nk-2 _genauigkeitb5del@,v"> `bruchBooleandot_sign ring Dim n As S"t, m` lr_zpow = "" If kpos(y, delim) > 0 Then Exit FunctionRtest_Null(x & yv)N_0`62  ^signum&(W+"] bruchFalseETrund If tot_&q-x) -- lz_divA"2", &)@ <> "0 '-i E4&y'ab) T xxn"&11,Do While y4kF1Y?(Amult(, x, nk_genauigkeKW@ πW™DoB@Pr_22Loop C@DB#rBv`, G G K + 1(D1LefYWorksheet.Rept(5_ , Leng) n-#+@mGRighB& l  (5&'bd_err: * Publicf ByVal xɘOpGC `b,")Boolea dIO5Substitute( L Xa+" "-gGb Z?!7"C *T5lP #0/&lPJPM@  `1P55lLCl0l0CHCHCD lPJq@p8l@Ol<:%,l2stdole f%\*\G{0002`0430-C 0046}#2.0#0#C:\WINDOWS\SYSTEM\STDOLE2 .TLB# AutomatioFn^MSForms>BSFEr@ms3DD452EE1-E08F-1 01A-8-02608C4D0BB4Dsystem32\FM20.DLL#Microsoft : ] Object Library/;D1t00}t#0#k040FDE04AD7-4493-4FB2-B2DB-49062377FBB16DOKUME~1\wr\LOKALlz_absK(lz_sumRiaXRange cZ lz_sum_ErrĺvbArray]9AreasKValueK(lz_faktg lz_fakt_Err`(lr_div; nk_stellennk_genauigkeitF err_lr_divHnkposvk_nkf^IsNull(lr_mult err_lr_mult^^(lr_add+ err_lr_addMaxȲ(lr_subύ err_lr_sub'b(lr_abs*(lr_sumڍ lr_sum_Err(ttXttM_ttblockY2ttX_err4lw'^linksrechtsz nachkomma>(no_ttX  (lz_BinAND(lz_BinOR/ (lz_BinXOR (lz_BinNOR=min_bitsB (lz_BinNOT?(lz_SHL%bitanzCopanzbasisV  lz_shl_err(lz_SHR+ lz_shr_errIm(lz_ROR lz_ror_err3(lz_ROL lz_rol_errh(lr_zpowrt lr_zpow_err(bruch3nemdWorkbookk _B_var_Right9 _B_var_LeftQ _B_var_Midp _B_var_ifP _B_var_signxy WorksheetModul2Modul11~_B_var_lr_zpow_err mmC^nni^ _B_var_mmFuncZ0 (test_Null&adnsm0&^l 6B$  EbeitsmappebTabelle1094c0ad7d0Tabelle1b Modul12V4c12da77 Modul1PX0Tem@p\VBE\S.8exd:@ .E .`M OfficOfic 02DF8D04C-5BFAfB-BDE5HTAA420PROGRAMM+ICROSOFTOFFICE\`MSO97 kC" 8.0Lk b@DieseArbeitsmappeG"@1e@eAr*b3is@ap@e2HB1B`B,B)b#+Tabelle1Gal"s1in2r!l!Modul aModu2 Xo!eaK*srU~~~~~~~~~~~~~~~P !hŃj#gN$M   a  +)Aay )Ii ) A Y q   1 I a   1 I a y   DieseArbeitsmappeTabelle1Modul1lr , .F /C:\PROGRA~1\GEMEIN~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA a 0F 0C:\Programme\Microsoft Office\Office10\EXCEL.EXEExcel Yas *\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.4#0#C:\Programme\Microsoft Office\Office10\EXCEL.EXE#Microsoft Excel 10.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{FDE04AD7-4493-4FB2-B2DB-49062377FBB1}#2.0#0#C:\DOKUME~1\wr\LOKALE~1\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M *\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.2#0#C:\PROGRAMME\MICROSOFTOFFICE\OFFICE\MSO97.DLL#Microsoft Office 8.0 Object Library  L b"DieseArbeitsmappe084c0ad7d0"DieseArbeitsmappebTabelle1094c0ad7d0Tabelle1b Modul12V4c12da77 Modul1PX0pPN}Cz47)H [YBrI4 pp0w)AJ(a0T= As bbooleanByValRfalse_IfPublicThenTrue Excel+ VBAWin16~Win32MacVBA6# lr#^stdole`MSFormsCOfficeu DieseArbeitsmappe _Evaluate Tabelle1R Modul1(x_divm (uw_stringUlz_plus\xoylstelle&uec_lx)^ly&^i`WorksheetFunction&ReptJRight lz_minusulz_msKkposfdelimssignumhlz_pxr_yrp_signxy iVarTypepvbString`evbDoubleblz_mlz_mtemp(lz_multl:tot_signmultjakbgzr]mult2mult4mult8 (lz_multiήtempypCmult_iJjx](lz_div\rest lz_div_err|&divi ffertigdiffcrvalxynl_ymk_diffntestydweiter Substitute^ (lz_DezHex dezhex_errtempR Application*CursorlxlWaithex xlDefaultwQ (lz_DezBin  dezbin_errc@hex_temp_ (lz_DezOct dezoct_errHIOct (lz_BinDezY bindez_errT (lz_OctDez octdez_err- (lz_HexDez hexdez_err hex_chars (lz_DezBin2 dezbin2_erroct_tempy(lz_DezIn| dezin_err+(lz_InDez indez_errtempval^(lz_add(lz_sub(lz_modI(@0FC:\WINDOWS\SYSTEM\STDOLE2.TLBstdolelz_div aP.E .`M C:\WINDOWS\system32\FM20.DLLMSForms aa`JDOI#w ,C:\DOKUME~1\wr\LOKALE~1\Temp\VBE\MSForms.exd AaipL-[DR -C:\PROGRAMME\MICROSOFTOFFICE\OFFICE\MSO97.DLLOffice )Qlz_pluslz_minuskpossignumlz_plz_mlz_multlz_multittX lz_DezHex lz_DezBin lz_DezOct lz_BinDez lz_OctDez lz_HexDez lz_DezBin2lz_DezInlz_InDezlz_addlz_sublz_modlz_abslz_sumlz_faktlr_divlr_multlr_addlr_sublr_abslr_sumno_ttX lz_BinANDlz_BinOR lz_BinXOR lz_BinNOR lz_BinNOTlz_SHLlz_SHRlz_RORlz_ROLlr_zpow test_Null   FF  + - 0  2 1 1,0VBE6.DLL  i  k TextF  0   3   4 @   x ` ++ -- 5 3 #WERT +- -+ errorQrU xydelimxryrrestbR nk_stellennk_genauigkeitttttblockmin_bitsbitanzopanzbasisnkE__SRP_1PROJECTwmhPROJECT SummaryInformation(DieseArbeitsmappeDieseArbeitsmappeTabelle1Tabelle1Modul1Modul1ID="{F53735DA-38F8-11D7-A933-000374890932}" Document=DieseArbeitsmappe/&H00000000 Document=Tabelle1/&H00000000 Module=Modul1 HelpFile="" Name="lr" HelpContextID="0" VersionCompatible32="393222000" CMG="BCBE2DF955AB59AB59AB59AB59" DPB="7270E3B782D282D2B333C3156010A9127CA4FD6B4BE1D02251F5E35D4AD0DC14CE7303" GC="282AB9BABABABABA" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] DieseArbeitsmappe=44, 58, 705, 572, Tabelle1=66, 87, 727, 601, Modul1=44, 58, 705, 572, Z Oh+'0@HT` x wrwrMicrosoft Excel@QU@՜.+,0 PDocumentSummaryInformation8CompObjiXd lt| -l  Tabelle1 Arbeitsbltter FMicrosoft Excel-ArbeitsblattBiff8Excel.Sheet.89q