Wie kann man die Pruefziffer eines EAN13 in Excel berechnen?

Mehr
7 Jahre 4 Monate her - 7 Jahre 4 Monate her #1025 von Anonymous
Über ein Makro "GetEAN" mit folgendem Inhalt:

Function GetEAN(cWert As String) As Integer

Dim x As Integer, nSumme As Integer, nLang As Integer
Dim lGerade As Boolean

nLang = Len(cWert)
lGerade = True
For x = 1 To nLang
lGerade = Not lGerade
If lGerade Then
nSumme = nSumme + Val(Mid$(cWert, x, 1)) * 3
Else
nSumme = nSumme + Val(Mid$(cWert, x, 1)) * 1
End If
Next x
GetEAN = Int((nSumme + 9) / 10) * 10 - nSumme

End Function

Bitte Anmelden oder Registrieren um der Konversation beizutreten.