EAN 13 Prüfzifferberechnung
28.03.2024 18:31:49
Jo65
ich habe folgenden Code im Internet gefunden, um die Prüfziffer
in Access zu berechnen.
Gibt es eine möglichkeit, den Code umzuschreiben das der für Excel funktioniert?
Also wenn ich z.B. in A1 12 Zahlen eingebe das dann die 13. Stelle in A2 erscheint.
Hier der Access Code:
Public Function ean13pruefziffer(ean)
'
' EAN-13 Prüfziffer errechnen
'
Dim I As Long, Sum As Long, Fak As Long
ean13pruefziffer = Null
If IsNull(ean) Then Exit Function
If Len(ean) > 12 Then Exit Function
Sum = 0: Fak = 3
For I = Len(ean) To 1 Step -1
Sum = Sum + (Asc(Mid(ean, I, 1)) - Asc("0")) * Fak
If Fak = 3 Then
Fak = 1
Else
Fak = 3
End If
Next I
ean13pruefziffer = (10 - Sum Mod 10) Mod 10
End Function
Danke