Office: (Office 2007) Modulo 10

Hallo Zusammen,

ich brauche Eure Hilfe:

ich muss die Prüfziffer für einen EAN-Code errechnen:
12 Ziffern stehen fest, die Prüfziffer muss nach Modulo 10 Gewichtung 3 errechnet werden. Hier ein Auszug:

Die einzelnen Ziffern der EAN-Nummer werden von rechts nach links abwechselnd mit den Faktoren 3 und 1 multipliziert, wobei stets mit Faktor 3 begonnen wird.
Die Summe dieser einzelnen Produkte ist zu ermitteln. Die Differenz zwischen dem Produkt und dem nächsten vollen "Zehner" (Aufrundung) ergibt die Prüfziffer.
Ergibt sich eine durch 10 teilbare Produktsumme, so ist die Prüfziffer 0!

Wie kann ich eine Excel-Formel daraus bauen (kein VBA)?

Schon einmal vielen Dank im voraus!
Tom

:)

 

Hallo Tom,

hier ein Vorschlag

Tabelle1

	A	B
1	207173989648	4
2	EANCode 12-stellig	Prüfziffer

Zelle	Formel
B1	=REST(10-REST(SUMMENPRODUKT((TEIL($A1;ZEILE(1:12);1))*{1;3;1;3;1;3;1;3;1;3;1;3});10);10)

Excel Tabellen im Web darstellen >>

 

Hallo rainberg,

meist versucht man zu helfen, aber ein kleines Danke ist dann meist zu viel. Daher auf diesem Weg (auch wenn das Posting schon von 2007 ist) vielen Dank für die Formel, ist wirklich gut geworden. Konnte ich gut gebrauchen.

Gruß
Eisbaer

 

Hallo Eisbaer,

freut mich, dass es Dir geholfen hat.

Du siehst, auch eine Forensuche kann nützlich sein.

 

Hallo Rainberg,

Gratulieren für deine eindrücklichen Excel Formula !

Deine Erfahrung nach, gibt es auch eine solche sauber Formula für die "Prüfzifferberechnung Modulo 10, rekursiv" die auf den Punkt 1.2 von folgende PDF Dokument erklärt ist ?

http://www.postfinance.ch/medialib/p....0001.File.pdf

Es scheint dass diese "Prüfzifferberechnung Modulo 10, rekursiv" an folgende Home page berechnet ist : http://www.kalix.ch/bvr/

Mit freundlichen Grüssen
Agappy

 

Hallo Agappy,

da kann ich Dir nicht helfen.

Mir fehlt dazu der mathematische Hintergrund, den ich leider aus dem pdf-Dokument nicht ableiten kann.

 

Danke für die Formel-

wenn man sie nach unten weitervervielfältigen will, dann ist sie mit einer kleinen Änderung besser:

=REST(10-REST(SUMMENPRODUKT((TEIL($A1;ZEILE($1:$12);1))*{1;3;1;3;1;3;1;3;1;3;1;3});10);10 )

sonst entwickelt Excel zu viel Eigendynamik.

Grüße,

Christian

PS: das Forum erschwert spontane Antworten

 

Gutenabend Rainberg,

Ich danke dir sehr für deine Antwort. Enschuldigen mich dass ich dir so spät antworte. Wenn ich etwas über dieses Thema (XLS Formel ohne VBA) finde, dann werde ich dir bestimmt informieren.

Mit freundlichen Grüssen
Agappy

 

Hallo,

vielleicht hilft das weiter:

Tabelle1

	A	B	C	D	E	F	G	H	I	J	K	L
1	Kontonummer:	70-4152
2
3		0	1	2	3	4	5	6	7	8	9
4	0	0	9	4	6	8	2	7	1	3	5	0
5	1	9	4	6	8	2	7	1	3	5	0	9
6	2	4	6	8	2	7	1	3	5	0	9	8
7	3	6	8	2	7	1	3	5	0	9	4	7
8	4	8	2	7	1	3	5	0	9	4	6	6
9	5	2	7	1	3	5	0	9	4	6	8	5
10	6	7	1	3	5	0	9	4	6	8	2	4
11	7	1	3	5	0	9	4	6	8	2	7	3
12	8	3	5	0	9	4	6	8	2	7	1	2
13	9	5	0	9	4	6	8	2	7	1	3	1
14
15
16		70-004152	7	1
17			0	9
18			0	5
19			0	2
20			4	7
21			1	3
22			5	3
23			2	2
24			PZ	8

Zelle	Formel
B16	=WENN(LÄNGE(B1)<9;LINKS(B1;3)&WIEDERHOLEN("0";9-LÄNGE(B1))&TEIL(B1;4;99);B1)
C16	=LINKS(B16;1)*1
D16	=INDEX($B:$K;1;VERGLEICH(C16;$B:$K;0))
C17	=TEIL(B16;2;1)*1
D17	=INDIREKT(ADRESSE(VERGLEICH($D16;A:A;0)+3;VERGLEICH($C17;B:K;0)+1))
C18	=TEIL($B;ZEILE()-14;1)*1
D18	=INDIREKT(ADRESSE(VERGLEICH($D17;A:A;0)+3;VERGLEICH($C18;B:K;0)+1))
C19	=TEIL($B;ZEILE()-14;1)*1
D19	=INDIREKT(ADRESSE(VERGLEICH($D18;A:A;0)+3;VERGLEICH($C19;B:K;0)+1))
C20	=TEIL($B;ZEILE()-14;1)*1
D20	=INDIREKT(ADRESSE(VERGLEICH($D19;A:A;0)+3;VERGLEICH($C20;B:K;0)+1))
C21	=TEIL($B;ZEILE()-14;1)*1
D21	=INDIREKT(ADRESSE(VERGLEICH($D20;A:A;0)+3;VERGLEICH($C21;B:K;0)+1))
C22	=TEIL($B;ZEILE()-14;1)*1
D22	=INDIREKT(ADRESSE(VERGLEICH($D21;A:A;0)+3;VERGLEICH($C22;B:K;0)+1))
C23	=TEIL($B;ZEILE()-14;1)*1
D23	=INDIREKT(ADRESSE(VERGLEICH($D22;A:A;0)+3;VERGLEICH($C23;B:K;0)+1))
D24	=SVERWEIS(D23;A4:L13;12;0)

Excel Tabellen im Web darstellen >>

 

Hallo,

ichweiß nicht, wievile Verschachtelungen Excel 2007 zuläßt, aber so sähe die Formel aus, wenn man alle Einzelschritte zusammenziehen würde. Da ich kein Excel 2007 habe, kann ich nicht prüfen, ob es funktioniert. Vielleicht kann jemand mir sagen, ob 20 offene Klammern in 2007 machbar sind, und ob die Formel dann funktioniert.


=sverweis(indirekt(adresse(vergleich
(indirekt(adresse(vergleich
(indirekt(adresse(vergleich
(indirekt(adresse(vergleich
(indirekt(adresse(vergleich
(indirekt(adresse(vergleich
(indirekt(adresse(vergleich
(index($b$4:$k$4;1;vergleich
(index($b$4:$k$4;1;vergleich
(links(b16;1)*1;$b$3:$k$3;0));$b$3:$k$3;0);
a$4:a$13;0)+3;vergleich(teil(b16;2;1)*1;b$3:k$3;0)+1));
a$4:a$13;0)+3;vergleich($c18;b$3:k$3;0)+1));
a$4:a$13;0)+3;vergleich(teil($b$16;zeile()-14;1)*1;b$3:k$3;0)+1));
a$4:a$13;0)+3;vergleich(teil($b$16;zeile()-14;1)*1;b$3:k$3;0)+1));
a$4:a$13;0)+3;vergleich(teil($b$16;zeile()-14;1)*1;b$3:k$3;0)+1));
a$4:a$13;0)+3;vergleich(teil($b$16;zeile()-14;1)*1;b$3:k$3;0)+1));
a$4:a$13;0)+3;vergleich(teil($b$16;zeile()-14;1)*1;b$3:k$3;0)+1));
a4:l13;12;0)

 

Hallo,

Hier noch eine Vereinfachung, die unter Excel 2003 läuft:

Tabelle2

	B	C
1	Kontonummer:	70-4152
2	Kto.Nr. korr.:	Rekursion:
3	70004152	0946827135
4	Startziffer:	1
5	Prüfziffer:	8

Zelle	Formel
C4	=TEIL(C3;LINKS(B3;1)+1;1)
C5	=10-TEIL($C;(TEIL($B;8;1)+1+TEIL($C;(TEIL($B;7;1)+1+TEIL($C;(TEIL($B;6;1)+1+TEIL($C;(TEIL($B;5;1)+1+TEIL($C;(TEIL($B;4;1)+1+TEIL($C;(TEIL($B;3;1)+1+TEIL($C;(TEIL($B;2;1)+1+C4);1));1));1));1));1));1));1)

Tabelle2

	B
3	70004152

Zelle	Formel
B3	=WECHSELN(C1;"-";"00")

Excel Tabellen im Web darstellen >>

 

ohne jetzt alles gelesen zu haben:
http://www.excelformeln.de/formeln.html?welcher=427

Salut WF

 

Hallo WF,

naja, hättest vielleicht mal ein bißchen gelesen. Die Formel scheint wohl nicht das zu sein, was in diesem Fall angesagt ist, da das Thema mittlerweile nicht mehr die Prüfzifferberechnung nach der genannten Formel ist, zumindest zeigt der Link in eine völlig andere Richtung. (Post Agappy v. 21.07.09)

 

Guten Abend BoskoBiati,

Ich bin entzückt zu sehen dass du nicht nur eine gute Lösung gefunden hast aber auch dass du sogar drei Vorschlagen gemacht hast.

Deine Lösung von 27.11.09 00:48 funktioniert Einwandfrei für alle drei Nummern dass ich probiere habe (70-004152-8, 30-603597-3 und 18-1685-4).

Deine von 06:12 (wann schlaffst du ?) funktionieren perfekt für 70-004152-8 aber scheinbar nicht für die Zwei andere Nummern.

Ich habe in Excel 2007, deine Vorschlag von 06:12 probiert. Leider scheint diese Verschalterfunktion nicht zu funktionieren. Die Fehlermeldung lautet : "Sie haben zu vielen Argument für diese Funtion eingegeben". Zur Information, in Hilfe zur Funktion WENN in Excel 2007 können wir das folgende lesen : "Damit es möglich ist, kompliziertere Bedingungen zu formulieren, können bis zu 64 WENN-Funktionen als Argument Dann_Wert und Argument Sonst_Wert verschachtelt werden.".

Ich bin sehr zufrieden. Für mich ist deine Antwort befriedigen und jetzt mein Problem gelöst.

Noch vielen Dank (und vergisst nicht zu schlaffen!).

Mit freundlichen Grüssen
Agappy

 

Habe hier einen Onlienservice für die Prüfzifferberechnung gefunden:
ESR/VESR/BESR - Prüfziffern Online berechnen
(Hat mir witergeholfen)