EAN13 check i EXCEL

Ja, jeg har tidligere lavet en Excel-model, som tester/beregner kontrolciffer i EAN13.

Har du en mail-adresse - alternativt send en mail til janvogt@esenet.dk

Indeholder din liste 12 eller 13 karakterer?

http://www.eksperten.dk/spm/322353

Hvis din liste står i kolonne A kan du indsætte denne formel i B1 og kopiere den ned:

=IF(10-MOD(((MID(A1;2;1)+MID(A1;4;1)+MID(A1;6;1)+MID(A1;8;1)+MID(A1;10;1)+MID(A1;12;1))*3)+(MID(A1;1;1)+MID(A1;3;1)+MID(A1;5;1)+MID(A1;7;1)+MID(A1;9;1)+MID(A1;11;1));10)=10;0;10-MOD(((MID(A1;2;1)+MID(A1;4;1)+MID(A1;6;1)+MID(A1;8;1)+MID(A1;10;1)+MID(A1;12;1))*3)+(MID(A1;1;1)+MID(A1;3;1)+MID(A1;5;1)+MID(A1;7;1)+MID(A1;9;1)+MID(A1;11;1));10))

I en dansk Excel version skal følgende oversættes:
IF = HVIS
MID = MIDT
MOD = HELTAL

I kolonne C1 kan du derefter skrive følgende formel:

=IF(RIGHT(A1;1)=B1;"OK";"Ikke korrekt")

Ovenstående forudsætter at der er 13 karakterer i samtlige dine EAN13-tekststrenge.

Hej Bak
Jeg ledte lige selv efter det spørgsmål du henviser til - uden held :-)
Jeg fik dog aldrig VBA-koden til at fungere i min Excel 97.

Jeg får en fejl i din formel

HVIS(10-HELTAL(((MIDT(A1;2;1)+MIDT(A1;4;1)+MIDT(A1;6;1)+MIDT(A1;8;1)+MIDT(A1;10;1)+MIDT(A1;12;1))*3)+(MIDT(A1;1;1)+MIDT(A1;3;1)+MIDT(A1;5;1)+MIDT(A1;7;1)+MIDT(A1;9;1)+MIDT(A1;11;1));10)

Det sidste ;10) vil den ikke godkende.

Jan's formel oversat til dansk (Her chekkes A3):
=HVIS(10-REST(((MIDT(A3;2;1)+MIDT(A3;4;1)+MIDT(A3;6;1)+MIDT(A3;8;1)+MIDT(A3;10;1)+MIDT(A3;12;1))*3)+(MIDT(A3;1;1)+MIDT(A3;3;1)+MIDT(A3;5;1)+MIDT(A3;7;1)+MIDT(A3;9;1)+MIDT(A3;11;1));10)=10;0;10-REST(((MIDT(A3;2;1)+MIDT(A3;4;1)+MIDT(A3;6;1)+MIDT(A3;8;1)+MIDT(A3;10;1)+MIDT(A3;12;1))*3)+(MIDT(A3;1;1)+MIDT(A3;3;1)+MIDT(A3;5;1)+MIDT(A3;7;1)+MIDT(A3;9;1)+MIDT(A3;11;1));10))

a1 = 8888888888888 (13 ciffer)
b1 = formlen
c1 = kontrol formel.

Giver stadig fejl.

Så må du have tastet noget forkert. Formlen virker fint.
http://tommy.bak.homepage.dk/ean13.xls

Som Bak viser, var der en fejl i min oversættelse.
MOD = REST og ikke HELTAL, som jeg fik nævnt tidligere.

Prøv at kopiere formlen ind herfra. Får du så ikke et ciffer beregnet i celle B1 (kontrolcifferet)?

Kontrolformlen hedder på dansk:
=HVIS(HØJRE(A1;1)=B1;"OK";"Ikke korrekt")

Tak venner :O)

Kan i ikke begge komme med et svar, så i kan dele scoren.

Jo da :-)

Jo da.:-)