Wie kann man die Pruefziffer eines EAN13 in Excel berechnen?

  • Anonymous
  • Autor
  • Offline
  • Neues Mitglied
  • Neues Mitglied
Mehr
11 Jahre 7 Monate her - 11 Jahre 7 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.

Signum Warenwirtschaftssysteme AG
Kasinostraße 2
DE-64293 Darmstadt

Tel: +49 (6151) 15 18 - 0
Fax: +49 (6151) 15 18 - 100
info@signum.ag