Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
172to176
172to176
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

EAN Prüfen

Forumthread: EAN Prüfen

EAN Prüfen
22.10.2002 15:47:40
Bongartz
Hallo

Ich möchte EAN Zahlen überprüfen. EAN sind für Artikelnummern im Handelsbereich. Info unter "http://www.ean.de/Inhalt/e2/e8".

Hier im Forum habe ich eine Funktion gefunden, mit deren Hilfe ich die Prüfziffer einer EAN (Letzte stelle) ermitteln kann.
Die Funktion wird wir wie folgt aufgerufen:
Beispiel:
A1="123456789012"
B1=A1 & GetEAN(A1)
liefert "1234567890128"

Code:

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

     Code eingefügt mit Syntaxhighlighter 1.13

Nun mein Problem, es gibt 8, 13 und 14 stellige EAN.
Ist es möglich die Funktion so zu ändern , das Sie 8, 13, 14 stellige EAN erkennt , die letzte Zahl (Prüfziffer) abschneidet und an deren stelle die Prüfziffer berechnet und einfügt.

Gruß
Bongartz

Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: EAN Prüfen
22.10.2002 16:23:01
Any Body
1. wandle die Nummer in String
2. ermittle Länge
3. Schneide Länge - 1 Zeichen ab
4. ermittle daruas die Prüfziffer und vergleiche

OK ?

hth
Any

Re: EAN Prüfen
22.10.2002 17:36:10
Bongartz
Hallo

ich habs mal mit meinen bescheiden VBA kenntnissen probiert.
Einige Probleme habe ich noch damit.
Kannst Du mir nochmals helfen? Ich habe meine Probleme im Code bezeichnet.

'Hier die Beispiel EAN Nummern zum testen.
Sub Test8()
    GetEAN (12345670)
End Sub

Sub Test13()
    GetEAN (1234567890128#) 'Hier bekomme ich immer eine Raute eingefügt
End Sub

Sub Test14()
    GetEAN (12345678901231#) 'Hier bekomme ich immer eine Raute eingefügt
End Sub

Function GetEAN(strWert As String) As Integer

Dim x As Integer, nSumme As Integer, nLang As Integer
Dim lGerade As Boolean
Dim Länge As Byte

Länge = Len(strWert)
 
If IsNumeric(strWert) And Länge <> 0 Then
         
   Select Case Länge
   Case 8
      Goto Pruefen
   Case 13
      Goto Pruefen
   Case 14
      Goto Pruefen
   Case Else
      'Kann mann eine Fehlermeldung anhängen?
   End Select
 
End If
Exit Function
   
Pruefen:
cWert = strWert
nLang = Len(cWert) - 1  'Wie kann ich die letzte Ziffer abschneiden?
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

GetEAN1 = Int((nSumme + 9) / 10) * 10 - nSumme
'Wie kann ich die Werte zusammenfügen?

End Function

     Code eingefügt mit Syntaxhighlighter 1.13

Gruß
Bongartz

Anzeige
Re: EAN Prüfen
22.10.2002 17:36:22
Bongartz
Hallo

ich habs mal mit meinen bescheiden VBA kenntnissen probiert.
Einige Probleme habe ich noch damit.
Kannst Du mir nochmals helfen? Ich habe meine Probleme im Code bezeichnet.

'Hier die Beispiel EAN Nummern zum testen.
Sub Test8()
    GetEAN (12345670)
End Sub

Sub Test13()
    GetEAN (1234567890128#) 'Hier bekomme ich immer eine Raute eingefügt
End Sub

Sub Test14()
    GetEAN (12345678901231#) 'Hier bekomme ich immer eine Raute eingefügt
End Sub

Function GetEAN(strWert As String) As Integer

Dim x As Integer, nSumme As Integer, nLang As Integer
Dim lGerade As Boolean
Dim Länge As Byte

Länge = Len(strWert)
 
If IsNumeric(strWert) And Länge <> 0 Then
         
   Select Case Länge
   Case 8
      Goto Pruefen
   Case 13
      Goto Pruefen
   Case 14
      Goto Pruefen
   Case Else
      'Kann mann eine Fehlermeldung anhängen?
   End Select
 
End If
Exit Function
   
Pruefen:
cWert = strWert
nLang = Len(cWert) - 1  'Wie kann ich die letzte Ziffer abschneiden?
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

GetEAN1 = Int((nSumme + 9) / 10) * 10 - nSumme
'Wie kann ich die Werte zusammenfügen?

End Function

     Code eingefügt mit Syntaxhighlighter 1.13

Gruß
Bongartz

Anzeige
Laufzeitfehler 6
23.10.2002 00:52:34
Bongartz
Hallo

ich habe inzwischen alles herausgefunden. Nur die letzte Zeile macht mir noch probleme. Laufzeitfehler 6

Wer weiss woran das Liegt?

'Hier die Beispiel EAN Nummern zum testen.
Sub Test8()
    GetEAN (12345670)
End Sub

Sub Test13()
    GetEAN (1234567890128#) 'Hier bekomme ich immer eine Raute eingefügt
End Sub

Sub Test14()
    GetEAN (12345678901231#) 'Hier bekomme ich immer eine Raute eingefügt
End Sub

Function GetEAN(strWert As String) As Integer
   Dim x As Integer, nSumme As Integer, nLang As Integer
   Dim lGerade As Boolean
   Dim Länge As Byte
   Länge = Len(strWert)
 
   If IsNumeric(strWert) And Länge <> 0 Then
      Select Case Länge
      Case 8
         cWert = Left(strWert, 7)
         Goto Pruefen
      Case 13
         cWert = Left(strWert, 12)
         Goto Pruefen
      Case 14
         cWert = Left(strWert, 13)
         Goto Pruefen
      Case Else
         Exit Function
         'Kann mann eine Fehlermeldung anhängen?
      End Select
   End If
   Exit Function
   
Pruefen:
   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
   endWert = Int((nSumme + 9) / 10) * 10 - nSumme
   GetEAN = Int(cWert & endWert)   'Laufzeitfehler

End Function

     Code eingefügt mit Syntaxhighlighter 1.13

Gruß
Bongartz

Anzeige
Re: Laufzeitfehler 6
23.10.2002 02:12:12
Nike
Hi,
gib deiner Funktion mal ein bischen mehr Spielraum...

Function GetEAN(strWert As String) As Double

Bye

Nike

Danke jetzt geht die Function mit EAN13
23.10.2002 11:36:34
Bongartz
Hallo

vielen dank. Jetzt muss ich nur noch die Prüfzifferlogik für die 8 und 14 stelligen EAN finden. Dann ist die Function perfekt.

Gruß
Bongartz

EAN Prüfziffer Berechnung für EAN 8, 13 , 14
23.10.2002 12:11:08
Bongartz
Hallo

hier ist die Excel Funktion zum Ermitteln der Prüfziffern.
Im Feld A1 befindet sich die EAN-Nummer in Originallänge.
In Feld B1 einfach = GetEAN(A1) eingeben.
Die Prüfziffer aus A1 wird abgeschnitten und ermittelt.
Das Ergebnis wird in Feld B1 mit der ermittelten Prüfziffer eingestellt.

Hier der Code:

Function GetEAN(strWert As String) As Double
   Dim x As Integer, nSumme As Integer, nLang As Integer
   Dim lGerade As Boolean
   Dim Länge As Byte
   Länge = Len(strWert)
 
   If IsNumeric(strWert) And Länge <> 0 Then
      Select Case Länge
      Case 8
         cWert = Left(strWert, 7)
         nLang = Len(cWert)
         lGerade = True
         For x = 1 To nLang
            lGerade = Not lGerade
            If lGerade Then
                nSumme = nSumme + Val(Mid$(cWert, x, 1)) * 1
            Else
                nSumme = nSumme + Val(Mid$(cWert, x, 1)) * 3
            End If
         Next x
         endWert = Int((nSumme + 9) / 10) * 10 - nSumme
         GetEAN = Int(cWert & endWert)
         Exit Function
      Case 13
         cWert = Left(strWert, 12)
         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
         endWert = Int((nSumme + 9) / 10) * 10 - nSumme
         GetEAN = Int(cWert & endWert)
         Exit Function
      Case 14
         cWert = Left(strWert, 13)
         nLang = Len(cWert)
         lGerade = True
         For x = 1 To nLang
            lGerade = Not lGerade
            If lGerade Then
                nSumme = nSumme + Val(Mid$(cWert, x, 1)) * 1
            Else
                nSumme = nSumme + Val(Mid$(cWert, x, 1)) * 3
            End If
         Next x
         endWert = Int((nSumme + 9) / 10) * 10 - nSumme
         GetEAN = Int(cWert & endWert)
         Exit Function
      Case Else
         Exit Function
         'Kann mann eine Fehlermeldung anhängen?
      End Select
   End If

End Function

     Code eingefügt mit Syntaxhighlighter 1.13

Gruß
Bongartz

Anzeige
Re: EAN Prüfen
23.10.2002 15:09:57
Peter Feustel
Hallo Bongartz,


Ich habe ein wenig mit den EAN gespielt, dabei ist folgendes herausgekommen:

In Spalte E habe ich 20 EAN erfasst, davon haben die ersten 17 eine richtige, die 3 letzten eine falsche Prüfziffer.

12345678
1234567890128
12345678901235
7622200004607
9783827261854
3446194180
9783446194182
3468041817
20004369
4009300002642
20036234
4008153845116
66264017710
4006132373230
4008153711862
4043400204988
20032432
13243546
3210987654321
978344619415

Wenn Du nun das Makro darüber laufen lässt, wird Dir in Spalte F die ermittelte Prüfziffer ausgegeben und in Spalte G der Hinweis, ob die Prüfziffer in Ordnung war oder aber nicht.

Sub EAN_Pruefung()

Dim strwert As String
Dim intLaenge As Integer
Dim intIndx As Integer

For intIndx = 1 To 20
' die Länge der EAN ermitteln
intLaenge = Len(Cells(intIndx, 5).Value)
' die EAN ohne Prüfziffer in ein Arbeitsfeld bringen
strwert = Left(Cells(intIndx, 5).Value, (intLaenge - 1))
' Die Function GetEAN aufrufen und die PZ nach Spalte F bringen
Cells(intIndx, 6).Value = GetEAN(strwert)
' wenn die Original EAN = EAN Arbeitsfeld (ohne PZ) +
' ermittelte PZ ist dann = OK sonst = Fehler
If Cells(intIndx, 5).Value = strwert & Cells(intIndx, 6).Value Then
Cells(intIndx, 7) = "OK"
Else
Cells(intIndx, 7) = "Fehler"
End If
Next intIndx

End Sub

'
' die Prüfziffer der EAN-Nummer errechnen
' =======================================
'
Function GetEAN(strwert As String) As Integer

Dim intIndx As Integer
Dim intSumme As Integer
Dim intLang As Integer
Dim blnGerade As Boolean

intLang = Len(strwert)
blnGerade = True
For intIndx = 1 To intLang
blnGerade = Not blnGerade
If blnGerade Then
intSumme = intSumme + Val(Mid$(strwert, intIndx, 1)) * 3
Else
intSumme = intSumme + Val(Mid$(strwert, intIndx, 1)) * 1
End If
Next intIndx
GetEAN = Int((intSumme + 9) / 10) * 10 - intSumme

End Function


Versuch es doch so einmal, dabei ist es völlig unerheblich, ob Du eine acht- oder 13-stellige EAN prüfen willst. – Was ist eine 14-stellige EAN, von der Du berichtest?


Gruß, Peter

Anzeige
Re: EAN Prüfen
23.10.2002 22:21:13
Bongartz
Hallo Peter

das ist Genau das was ich noch brauchte. Werde ich gleich mal ausprobieren.
Die EAN-14 wird teilweise bei Produkten aus USA verwendet.
Ich Arbeite bei einem Lebensmittelvertrieb und wir Importieren aus USA.
Wir haben aber auch noch DUN (14 stellig) bei einigen Produkten.
DUN-14 (USA)
Nach dem internationalen Standard aufgebaute 14-stellige Identnummer.
Diese Nummer kann nicht im EAN-13-Strichcodesymbol dargestellt werden.
http://www.infomax-usa.com/dun14.htm

Hier ein paar Links zu EAN Prüfziffer. Ich habe auch noch ein VBA Beispiel gefunden.
http://www.strichcodeservice.at/andere_check_digits.htm#EAN_PZ
http://www.kraasch.de/vba031.htm

Gruß
Bongartz



Anzeige
EAN Prüfen oder Korrigieren
24.10.2002 12:15:56
Bongartz
Hallo Peter

vielen dank noch mal für Dein Beispiel. Ich habe mir zwei verschieden Funktion erstellt. Eine zum korrigieren der EAN und eine zweite Funktion zum Prüfen der EAN.
Die zweite Funktion stellt dann ein OK bzw. Fehler in das Feld.
Die Funktionen werden mit "=GetEAN(Position der zu Prüfenden EAN)" und
"=CheckEAN(Position der zu Prüfenden EAN)" aufgerufen.
Beispiel1:
A1="1234567890120"
B1=GetEAN(A1)
liefert "1234567890128"
Beispiel2:
A1="1234567890120"
C1=CheckEAN(A1)
liefert "Falsch"
oder
A1="1234567890128"
B1=CheckEAN(A1)
liefert "EAN-14 OK"

Gruß
Bongartz

Hier der Code:

' Funktion ermittelt die korrekten EAN(8,13,14), UPC und DUN(14) Prüfziffern und
' übergibt die korrekt EAN in das Feld, von der die Funktion aufgerufen wurde.
Function GetEAN(strWert As String) As Double
   Dim x As Integer, nSumme As Integer, nLang As Integer
   Dim endWert As String
   Dim lGerade As Boolean
   Dim Länge As Byte
   Länge = Len(strWert)
 
   If IsNumeric(strWert) And Länge <> 0 Then
      Select Case Länge
      Case 8
         cWert = Left(strWert, 7)
         lGerade = False
         Goto Berechnen
      Case 12
         cWert = Left(strWert, 11)
         lGerade = False
         Goto Berechnen
      Case 13
         cWert = Left(strWert, 12)
         lGerade = True
         Goto Berechnen
      Case 14
         cWert = Left(strWert, 13)
         lGerade = False
         Goto Berechnen
      Case Else
         Exit Function
      End Select
   End If

Berechnen:
   nLang = Len(cWert)
   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
   endWert = Int((nSumme + 9) / 10) * 10 - nSumme
   GetEAN = Int(cWert & endWert)

End Function
' Funktion ermittelt die korrekten EAN(8,13,14), UPC und DUN(14) Prüfziffern und
' übergibt in das Feld von der die Funktion aufgerufen wurde ein "***-OK" oder "Fehler".
Function CheckEAN(strWert As String) As Variant
   Dim x As Integer, nSumme As Integer, nLang As Integer
   Dim endWert As String
   Dim lGerade As Boolean
   Dim Länge As Byte
   Länge = Len(strWert)
 
   If IsNumeric(strWert) And Länge <> 0 Then
      Select Case Länge
      Case 8
         strEAN = "EAN-8 OK"
         rWert = Right(strWert, 1)
         cWert = Left(strWert, 7)
         lGerade = False
         Goto Berechnen
      Case 12
         strEAN = "UPC-12 OK"
         rWert = Right(strWert, 1)
         cWert = Left(strWert, 11)
         lGerade = False
         Goto Berechnen
      Case 13
         strEAN = "EAN-13 OK"
         rWert = Right(strWert, 1)
         cWert = Left(strWert, 12)
         lGerade = True
         Goto Berechnen
      Case 14
         strEAN = "EAN-14,DUN OK"
         rWert = Right(strWert, 1)
         cWert = Left(strWert, 13)
         lGerade = False
         Goto Berechnen
      Case Else
         CheckEAN = "Fehler"
         Exit Function
      End Select
   End If

Berechnen:
   nLang = Len(cWert)
   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
   endWert = Int((nSumme + 9) / 10) * 10 - nSumme
   If rWert = endWert Then
      CheckEAN = strEAN
   Else
      CheckEAN = "Fehler"
   End If

End Function

     Code eingefügt mit Syntaxhighlighter 1.13



Anzeige
;

Forumthreads zu verwandten Themen

was ist das für Datei (*.pcb) ??? Hilfe * Filter *
Richi

Hallo, habe de eine Frage,
Habe eine Datei die hat eine Endung .PCB
ich kann die Datei mit notepad öffnen auch mit Excel
Diese Datei wir in in einen Bestöckungs Automat geladen.
Dort stehen Informationen über die Bauteile die Bestückt werden.
Nun das Problem:
ich möchte...
01.01.1970 00:00:00
Thread-ID: 1039482
33 Beiträge
Anzeige
Was ist dass Es erscheinen merkwürdige Makros ???
juergen

Hallo liebe Excel Gemeinde
Bei mir passiert etwas sehr mekwürdiges.Und zwar
Öffne ich Excel mit leerem Blatt und gehe dann in die VBA Umgebung ist alles sauber.
Öffne Ich die Exceldatei von Hajo.Ziplies "nur_mit_aktivierten_makros_zeit_loeschen.xls"
Und gehe dann auf Makros...
30.03.2009 19:21:05
Thread-ID: 1065401
8 Beiträge
Was ist das?
Ron

Hallo Wissende, ich wüsste gerne was dieser Code genau macht und wie man ihn umschreiben kann, so dass er mir aus zwei Worksheets(nämlich einem alten und einem update davon)einen dritten Worksheet erstellt der die Gleichanteile sowie neue Zeilen des zweiten Worksheets enthält. Dank an alle Helf...
26.04.2002 09:18:13
Thread-ID: 116505
4 Beiträge
Was ist das denn
Der Rolf

Mahlzeit zusammen,
ich habe ein großes Problem:- Nachdem ich eine Excel Mappe zur Bearbeitung an verschiedene Leute gesendet habe, und diese die Tabelle vervollständigten habe ich einen hellblauen Schriftzug ("Mitglieder") in meiner Mappe. Er kann nicht makiert werden, stellt kein Kommentar...
29.04.2002 13:43:40
Thread-ID: 117153
3 Beiträge
Freigabeschutz - was ist das?
gerwas

Hallo Weite Welt - mal wieder
habe hier eine Arbeitsmappe (Dienstplan) mit zwölf Blättern. Der Kollege, der das Teil bisher genutzt hat, ist nicht mehr verfügbar. Das Passwort zum Öffnen der Datei habe ich gefunden. Wie bekomme ich die Datei gespeichert? Und was ist ein Freigabeschutz, den...
17.12.2011 08:53:31
Thread-ID: 1242407
2 Beiträge
Was ist das?
Nepumuk
Hallo,
seit ein paar Tagen tauch das immer mal wieder auf:

Gruß
Nepumuk
17.05.2016 17:46:56
Thread-ID: 1493760
19 Beiträge
Anzeige
Was ist das Problem...?
Rich

Hi,
ich schreibe gerade was, um unsere Statistik auf Knopfdruck zu erledigen. Dazu habe ich auf einem Sheet zwei Buttons.
Der erste läuft ohne weiteres durch. Bei dem Zweiten habe ich jetzt erst angefangen und wollte aus meiner Sheet "Listen" war rauskopieren. Aber er spinnt schon bei...
27.06.2016 06:52:25
Thread-ID: 1501142
12 Beiträge
.txt Datein per Loop - Was ist das Maxium?
huihui

Hallo zusammen,
ich hätte da mal eine Frage an die VBA Profis.
Ich habe mir ein Code geschrieben welche .txt Datein einliest und auswertet.
Die Test sind auch erfolgreich und läuft alles so wie es soll.
Am ende meiner Auswertung werde ich ca. 3000 Files auszuwerten haben. Mir i...
07.10.2016 18:52:38
Thread-ID: 1518633
4 Beiträge
Falsche Formel oder was ist das Problem?
Andreas

Hallo,
ich muss in einer Liste eine Bedingte Formatierung anwenden. Wird in Spalte N ab N6 der Wert ok ausgewählt, dann sollen die Zellen links davon, also M-B grün eingefärbt werden. Eine einzelne Zelle bekomme ich hin.
B6 Formel =$N$6="ok" Formatierung grün einfärben, geht. Will ich n...
22.01.2018 09:28:41
Thread-ID: 1603756
5 Beiträge
Was ist das für ein VBA UserForm Control?
Klaus

Hallo an Alle,
Ich versuche ein UserForm zu bauen, indem ein Control mit mehreren Zeilen und Spalten bestimmte Symbole aus einem bestimmten Zeichensatz anzeigt. Das Füllen mit den Symbolen ist kein Problem für mich. Habe es mit ListBox und ComboBox ausprobiert.
Aber leider schaffe ich...
11.03.2018 19:55:33
Thread-ID: 1613645
7 Beiträge
Anzeige
Was ist das für eine Formel
Werner

Hallo,
ich bin in einer Kalkulationstabelle auf eine Formel gestoßen, die ich nicht verstehe:
C15*C18/(1-C18)
wobei C15=100,05 und C18=4%, das Ergebnis ist 4,17 - wie kann das angehen, 4% von 100,05 sind doch nicht 4,17.
Kann mir jemand das erklären?
Danke!
Werner
18.11.2018 20:35:41
Thread-ID: 1658072
4 Beiträge
Was ist das für eine Formel
Werner

Hallo,
ich bin in einer Kalkulationstabelle auf eine Formel gestoßen, die ich nicht verstehe:
C15*C18/(1-C18)
wobei C15=100,05 und C18=4%, das Ergebnis ist 4,17 - wie kann das angehen, 4% von 100,05 sind doch nicht 4,17.
Kann mir jemand das erklären?
Danke!
Werner
18.11.2018 20:37:43
Thread-ID: 1658073
6 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

EAN Prüfen und Prüfziffer Berechnen in Excel

Schritt-für-Schritt-Anleitung

  1. VBA Funktion erstellen: Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen. Füge ein neues Modul hinzu und kopiere den folgenden Code:

    Function GetEAN(strWert As String) As Double
   Dim x As Integer, nSumme As Integer, nLang As Integer
   Dim lGerade As Boolean
   Dim cWert As String
   nLang = Len(strWert)

   If IsNumeric(strWert) And nLang <> 0 Then
       Select Case nLang
           Case 8
               cWert = Left(strWert, 7)
               lGerade = False
               GoTo Berechnen
           Case 13
               cWert = Left(strWert, 12)
               lGerade = True
               GoTo Berechnen
           Case 14
               cWert = Left(strWert, 13)
               lGerade = False
               GoTo Berechnen
           Case Else
               Exit Function
       End Select
   End If

Berechnen:
   nLang = Len(cWert)
   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

  2. EAN Prüfziffer berechnen: In einer Excel-Zelle, z.B. B1, kannst du jetzt die Funktion aufrufen. Wenn in A1 deine EAN-Nummer (z.B. 123456789012) steht, gib in B1 ein:

    =GetEAN(A1)

    Dies gibt die Prüfziffer zurück.

Häufige Fehler und Lösungen

  • Laufzeitfehler: Wenn du einen Laufzeitfehler erhältst, überprüfe, ob die EAN-Nummer korrekt eingegeben wurde und die richtige Länge hat (8, 13 oder 14 Stellen).
  • Falsche Prüfziffer: Stelle sicher, dass die EAN korrekt formatiert ist. Überprüfe insbesondere, ob die Ziffern nur numerisch sind.

Alternative Methoden

  • GTIN prüfen: Du kannst auch die GTIN (Global Trade Item Number) verwenden, die ähnlich wie die EAN funktioniert. Die oben genannte Funktion kann auch für GTIN-Nummern verwendet werden, da sie die gleiche Logik zur Berechnung der Prüfziffer verwendet.
  • Einfache Excel-Formel: Anstatt VBA zu verwenden, könntest du die Prüfziffer auch mit einer Formel in Excel berechnen, was jedoch deutlich komplizierter wäre.

Praktische Beispiele

  1. EAN 8 Beispiel:

    • A1: 1234567 (ohne Prüfziffer)
    • B1: =GetEAN(A1) → Ergebnis: 8 (Ergänzt zur EAN: 12345678)

  2. EAN 13 Beispiel:

    • A1: 123456789012 (ohne Prüfziffer)
    • B1: =GetEAN(A1) → Ergebnis: 8 (Ergänzt zur EAN: 1234567890128)

  3. EAN 14 Beispiel:

    • A1: 1234567890123 (ohne Prüfziffer)
    • B1: =GetEAN(A1) → Ergebnis: 0 (Ergänzt zur EAN: 12345678901230)

Tipps für Profis

  • EAN Code überprüfen: Du kannst die Funktion erweitern, um auch die gesamte EAN zu überprüfen. Füge dazu eine weitere Funktion CheckEAN hinzu, die die EAN mit der berechneten Prüfziffer vergleicht.
  • Einfache Fehlererkennung: Implementiere eine einfache Fehlermeldung, die den Benutzer warnt, wenn die eingegebene Zahl nicht die korrekte Länge hat oder nicht numerisch ist.

FAQ: Häufige Fragen

1. Was ist eine EAN?
Die EAN (European Article Number) ist ein Strichcode, der in der Handelswelt zur Identifikation von Produkten verwendet wird.

2. Wie berechne ich die EAN Prüfziffer in Excel?
Du kannst die oben genannte VBA-Funktion GetEAN verwenden, um die Prüfziffer für 8-, 13- und 14-stellige EANs zu berechnen.

3. Kann ich auch GTIN Nummern prüfen?
Ja, die Funktion ist auch für GTIN Nummern anwendbar, da sie die gleiche Prüfziffernberechnung verwendet.

4. Was mache ich, wenn ich einen Laufzeitfehler bekomme?
Überprüfe die EAN-Nummer auf korrekte Eingabe und Länge. Achte darauf, dass die Nummer nur aus Ziffern besteht.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige