EAN Prüfziffer berechnen



Excel-Version: 10.0 (Office XP)
nach unten

Betrifft: EAN Prüfziffer berechnen
von: Wolfgang Metzner
Geschrieben am: 26.05.2002 - 22:45:03

Hallo zusammen, ich würde gerne wissen,
ob es eine Möglichkeit gibt, bei einer Tabelle
mit vorhandenen EAN-Codes die leider nur 12-stellig sind,
die Prüfziffer (13te Stelle) mit Excel zu berechnen.

Für die Insider: das ganze müsste nach dem
Modulo 10 System erstellt werden.

Also wer weiss Rat, oder kann mir sagen,
wo es ein kostenloses Programm,Makro oder Formel gibt?

nach oben   nach unten

Re: EAN Prüfziffer berechnen
von: Harald Kapp
Geschrieben am: 27.05.2002 - 07:36:04

Hallo Wolfgang,
siehe http://www.strichcodeservice.at/ean_code.htm

Gruß Harald

nach oben   nach unten

Re: EAN Prüfziffer berechnen
von: Harald Kapp
Geschrieben am: 27.05.2002 - 08:05:55

So geht's in VBA für EAN13:

unction ean(zahl As Variant) As Variant
Dim As Integer
Dim ziffer As Integer
Dim temp As Variant
temp = zahl
ean = 0
If zahl / 10 ^ 12 > 1 Then
   ean = zahl ' ean ist bereits 13 stellig
Else
   For i = 1 To 12
      zahl = Int(zahl)
      zahl = zahl / 10
      ziffer = 10 * (zahl - Int(zahl))
      ean = ean + ziffer * (1 + 2 * (i Mod 2))
   Next
   ean = 10 * temp + (10 - (ean Mod 10))
End If
End Function

Die Funktion liefert die 13 stellige EAN zu einer 12 stelligen EAN ohne Prüfziffer. Formatierung der Zelle in Excel als Zahl ohne Dezimalstellen.
Gruß Harald

nach oben   nach unten

Re: EAN Prüfziffer berechnen
von: Wolfgang Metzner
Geschrieben am: 27.05.2002 - 21:31:28

Herzlichen Dank für den VBA-Code

Gruß
Wolfgang


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "EAN Prüfziffer berechnen"