o2 LOOP Guthaben per Banküberweisung aufladen - Betreff

A1 = 1790000000000

B1 = =VALUE(MID(TEXT($A$1;"\000000000000");(CELL("ROW";B1));1))
B2 = =VALUE(MID(TEXT($A$1;"\000000000000");(CELL("ROW";B2));1))
...
B14 = =VALUE(MID(TEXT($A$1;"\000000000000");(CELL("ROW";B14));1))

C1 = =IF(ISBLANK(B1);"";IF(ISEVEN(CELL("ROW";C1)-1);1;0)*(2*VALUE(B1)-(IF(2*VALUE(B1)>9;9;0))))
C2 = =IF(ISBLANK(B2);"";IF(ISEVEN(CELL("ROW";C2)-1);1;0)*(2*VALUE(B2)-(IF(2*VALUE(B2)>9;9;0))))
...
C14 = =IF(ISBLANK(B14);"";IF(ISEVEN(CELL("ROW";C14)-1);1;0)*(2*VALUE(B14)-(IF(2*VALUE(B14)>9;9;0))))

D1 = =IF(ISODD(CELL("ROW";D1)-1);VALUE(B1);0)
D2 = =IF(ISODD(CELL("ROW";D2)-1);VALUE(B2);0)
...
D14 = =IF(ISODD(CELL("ROW";D14)-1);VALUE(B14);0)

E1 = =BIN2DEC(SUBSTITUTE(DEC2BIN(0)+DEC2BIN(B1);2;0))
E2 = =BIN2DEC(SUBSTITUTE(DEC2BIN(E1)+DEC2BIN(B2);2;0))
E3 = =BIN2DEC(SUBSTITUTE(DEC2BIN(E2)+DEC2BIN(B3);2;0))
...
E15 = =BIN2DEC(SUBSTITUTE(DEC2BIN(E14)+DEC2BIN(B15);2;0))

F1 = =B1*(MOD(CELL("ROW";F1)-1;9)+1)
F2 = =B2*(MOD(CELL("ROW";F2)-1;9)+1)
...
F15 = =B15*(MOD(CELL("ROW";F15)-1;9)+1)

G1 = =E15-IF(E15>9;1;0)*6
G2 = =MOD((SUM(C1:C14)+SUM(D1:D14));10)
G3 = =MOD(SUM(B1:B14);10)
G4 = =MOD(SUM(F1:F15);10)

H1 = =G1*1000+G2*100+G3*10+G4