Excel, Formeln, VBA Programmierung, UDF, Tipps & Tricks

Prüfzifferberechnung nach Modulo10

Benutzerdefinierte Funktion

Diese benutzerdefinierte Funktion berechnet die Prüfziffer nach Modulo 10.

Eine Zahlenfolge wird von rechts nach links abwechselnd mit 3 und 1, beginnend mit 3, multipliziert. Die Produkte werden addiert und durch 10 geteilt. Der Rest der Division wird von 10 subtrahiert.

Tabelle2

	A	B	C	D	E	F	G	H	I	J	K	L
1	Zahlenreihe	1	2	3	4	5	6	7	8	9	0	1
2	Multiplikator	3	1	3	1	3	1	3	1	3	1	3
3	Ergebnis	3	2	9	4	15	6	21	8	27	0	3
4
5
6	Summe der Produkte:	98
7	Geteilt durch 10	9,8
8	Rest	8
9	10 minus Rest	2
10
11	Prüfziffer =	2

Formeln der Tabelle

B3 : =B2*B1
C3 : =C2*C1
D3 : =D2*D1
E3 : =E2*E1
F3 : =F2*F1
G3 : =G2*G1
H3 : =H2*H1
I3 : =I2*I1
J3 : =J2*J1
K3 : =K2*K1
L3 : =L2*L1
B6 : =SUMME(B3:L3)
B7 : =B6/10
B8 : =(B7-GANZZAHL(B7))*10
B9 : =10-B8
B11 : =B9

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen Excel Jeanie HTML 3.0 Download

Einsatz der benutzerdefinierten Funktion in der Tabelle

Tabelle1

	A	B
1	String	Prüfziffer
2	12345678901	2
3	12345678902	9

Formeln der Tabelle

B2 : =modulo10(A2)
B3 : =modulo10(A3)

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen Excel Jeanie HTML 3.0 Download

Der Code für ein allgemeines Modul

Public Function Modulo10(Zelle) As Byte

'Berechnet die Prüfziffer nach Modulo 10

'Gewichtung 3 - 1

'Code für ein allgemeines Modul

'*********************************

'Autor: Jürgen Hennekes

'*********************************

Dim bln As Boolean

Dim intI As Integer

Dim dblSumme As Double

For intI = Len(Zelle) To 1 Step -1

bln = Not bln

If bln = True Then

dblSumme = dblSumme + Mid(Zelle, intI, 1) * 3

Else

dblSumme = dblSumme + Mid(Zelle, intI, 1) * 1

End If

Next

Modulo10 = IIf(dblSumme Mod 10 = 0, 0, 10 - (dblSumme Mod 10))

End Function