 Suchen |
 Kategorien |
|
|
|
|
|
| Wie kann man die Pruefziffer eines EAN13 in Excel berechnen? |
|
Artikel Details
Aktualisiert
16th of December, 2009
|
Ü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 FN 2003-06-30
|
The article has been updated successfully.