Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Prüfziffer mit Modulo 11 errechnen

Prüfziffer mit Modulo 11 errechnen
20.06.2006 13:24:15
Bernd
Ich habe bei meinem ersten Eintrag im Forum einen wichtigen Hinweis vergessen:
Das Benutzerformular wird mit >Strgs Ich möchte in ein einem Benutzerformular eine 7-stellige Zahl
eingeben und diese mit einer Prüfziffer (Modulo11) in der 8. Stelle
automatisch ergänzen.
Beispieldatei: www.herber.de/bbs/user/34486.xls
Als Anfänger in Sachen VB bin ich für jeden Hinweis sehr dankbar.
Gruß Bernd
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Prüfziffer mit Modulo 11 errechnen
20.06.2006 14:08:49
u_
Hallo,
darunter kann ich mir nichts vorstellen. Erläutere doch mal Modulo11.
Gruß
Geist ist geil!
(Dies ist ein allgemeines Statement und nicht an bestimmte Personen gerichtet.)
AW: Prüfziffer mit Modulo 11 errechnen
20.06.2006 14:26:08
Harald
Hi u_
Modulo:
Quadratischer Rest
aus Wikipedia, der freien Enzyklopädie
Wechseln zu: Navigation, Suche
Der quadratische Rest ist der Rest der Division einer Quadratzahl durch eine natürliche Zahl. Eine ganze Zahl r heißt quadratischer Rest modulo m, falls es eine Zahl x mit
Userbild
gibt. Ist dies nicht der Fall, spricht man auch von einem quadratischen Nichtrest oder einem nicht-quadratischen Rest.
Ich lass die Frage offen ;-))
Gruss Harald
Anzeige
AW: Prüfziffer mit Modulo 11 errechnen
20.06.2006 15:29:46
Bernd
Berechnung einer Prüfsumme nach Modulo 11:
Zunächst werden alle Ziffern von rechts nach links einzeln mit einem Multiplikator multipliziert.
Der Multiplikator entspricht der Position der Ziffer+1, also:
1. Stelle * 2, 2. Stelle * 3 .... 6. Stelle * 7
Alle daraus resultierenden Produkte werden addiert. Das Ergebnis wird dann durch 11 dividiert. Der daraus resultierende Rest (Modulo 11) wird von 11 abgezogen und ergibt dann die Prüfziffer.
Beispiel:
Art.-Nr.4253016
6 * 2 = 12
12 + 1 * 3 = 15
15 + 0 * 4 = 15
15 + 3 * 5 = 30
30 + 5 * 6 = 60
60 + 2 * 7 = 74
74 + 4 * 2 = 82
82 : 11 = 7
82 – (7 * 11 ) = 5
11 – 5 = 6 Prüfziffer wäre also 6 Vollständige Art.-Nr.= 42530166
Anzeige
AW: Prüfziffer mit Modulo 11 errechnen
20.06.2006 16:14:05
UweD
Hallo
du schreibst..
... Der daraus resultierende Rest (Modulo 11) wird von 11 abgezogen und ergibt dann die Prüfziffer...

Das kenn ich nur vom Modulo10. Bei Modulo11 ist der Rest bereits die Prüfziffer.
Kann ich auch nur so in der Literatur finden.
Gruß UweD
AW: Prüfziffer mit Modulo 11 errechnen
20.06.2006 14:47:56
UweD
Hallo
hier : wie der Modulo 11 gebildet wird.
http://www.activebarcode.de/codes/checkdigit/modulo11.html
hier ein Makro dazu. (muß noch angepasst und in deine Userform eingebaut werden)

Sub modulo11()
Dim Test$, i As Byte, Quer%, Prüf As Byte
Test = "64010093"
For i = 1 To Len(Test)
Quer = Quer + Mid(Test, i, 1) * (i + 1)
Next
Prüf = Quer Mod 11
If Prüf = 10 Then
MsgBox "Fehlerhafter Code"
Prüf = ""
Test = "ungültig"
End If
MsgBox "Prüfziffer: " & Prüf & vbLf & vbLf & _
"Code: " & Test & " " & Prüf
End Sub

Gruß UweD
(Rückmeldung wäre schön)
Anzeige
AW: Berichtigung
20.06.2006 14:55:00
UweD
Hallo
Den Fall Prüf = 10 hatte ich nicht getestet...
Ändere die Zeile so ab..
Dim Test$, i As Byte, Quer%, Prüf$
Gruß UweD
(Rückmeldung wäre schön)
AW: Berichtigung
20.06.2006 16:20:59
Bernd
Hallo Uwe,
vielen Dank für die Unterstützung. Ich habe die Prozedur implementiert und getestet.
Ich erhalte als Ergebnis die Prüfziffer 2.
Bei der 7-steilligen Nr. 6401009 müsste die Prüfziffer eigentlich 3 lauten.
Es gibt augenscheinlich unterschiedliche Verfahren in der Berechnung.
Nach meinen Informationen sollte die Berechnung Prüfziffer nach Modulo 11 wie folgt errechnet werden:
Zunächst werden alle Ziffern von rechts nach links einzeln mit einem Multiplikator multipliziert.Der Multiplikator entspricht der Position der Ziffer+1, also:
1. Stelle * 2, 2. Stelle * 3 .... 6. Stelle * 7
Alle daraus resultierenden Produkte werden addiert. Das Ergebnis wird dann durch 11 dividiert. Der daraus resultierende Rest (Modulo 11) wird von 11 abgezogen und ergibt dann die Prüfziffer.
Beispiel:
Art.-Nr.4253016
6 *2 = 12
12 + 1 * 3 = 15
15 + 0 * 4 = 15
15 + 3 * 5 = 30
30 + 5 * 6 = 60
60 + 2 * 7 = 74
74 + 4 * 2 = 82
82 : 11 = 7
82 – (7 * 11 ) = 5
11 – 5 = 6 Prüfziffer wäre also 6 Vollständige Art.-Nr.= 42530166
wenn 11-0=11 so ist die rüfziffer = 1 bzw. 11-1=10 so ist die rüfziffer = 0
Vielen Dank
Bernd
Anzeige
AW: Prüfziffer mit Modulo 11 errechnen
20.06.2006 20:25:52
Bernd
Hallo Uwe,
aufgrund meiner geringen VB-Kenntnisse hätte gern gewust, wie die Prozedur aussehen müsste, wenn die Berechnung in der For - Schleife von rechts nach links erfolgen würde ?
For i = 1 To Len(Test)
Quer = Quer + Right(Test, i, 1) * (i + 1)
ist syntaktisch falsch
Danke im Voraus
Bernd
Anzeige
AW: Prüfziffer mit Modulo 11 errechnen
21.06.2006 10:40:03
UweD
Hallo Bernd
so aus dem Kopf heraus...
For i = Len(Test) To 1 Step-1
Quer = Quer + Mid(Test, i, 1) * (i + 1)
Next
Gruß UweD
(Rückmeldung wäre schön)
AW: Prüfziffer mit Modulo 11 errechnen
23.06.2006 10:21:11
BerndF
Hallo Uwe,
Dein Vorschlag funktioniert; leider erfolgt die Berechnung aber auch von links nach rechts.
Ein Test unter Verwendung des Barcode-Scanner brachte folgendes Ergebnis:
eingescannter Barcode: 6401015101890
Nr. in der Sortimentsliste: 64010158
Nach welchen Verfahren die die Prüfziffer 8 ermittelt wird ist mir ein Rätsel.
Mein Problem hat sich dadurch erstmal erledigt.
Nochmals vielen Dank für die Unterstützung.
Gruß Bernd
Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

Prüfziffer mit Modulo 11 in Excel berechnen


Schritt-für-Schritt-Anleitung

Um die Prüfziffer mit dem Modulo 11 Verfahren in Excel zu berechnen, folge diesen Schritten:

  1. Zahl eingeben: Gib die 7-stellige Zahl in eine Zelle ein, zum Beispiel in A1.
  2. Multiplikatoren erstellen: In den Zellen B1 bis B7 gib die Werte 2 bis 8 ein.
  3. Produkte berechnen: In Zelle C1 gib die Formel ein:
    =A1 * B1

    Ziehe die Formel bis C7 nach unten, um die Produkte für alle Ziffern zu berechnen.

  4. Summe der Produkte: In Zelle C8 berechne die Summe:
    =SUMME(C1:C7)
  5. Modulo 11 anwenden: In Zelle C9 berechne den Rest:
    =C8 MOD 11
  6. Prüfziffer bestimmen: In Zelle C10 berechne die Prüfziffer:
    =IF(C9=0, 1, 11-C9)

Jetzt hast du die Prüfziffer für deine 7-stellige Zahl in Zelle C10.


Häufige Fehler und Lösungen

  • Fehler: Falsche Multiplikatoren

    • Stelle sicher, dass die Multiplikatoren in der richtigen Reihenfolge (2 bis 8) eingegeben sind.
  • Fehler: Modulo-Funktion nicht erkannt

    • Stelle sicher, dass du die richtige Syntax für die Modulo-Funktion verwendest. In Excel wird MOD verwendet, gefolgt von der Zahl und dem Divisor, z.B. =MOD(C8, 11).

Alternative Methoden

Eine alternative Methode zur Berechnung der Prüfziffer mit dem Modulo 11 Verfahren ist die Verwendung von VBA. Hier ist ein einfaches Makro:

Sub modulo11()
    Dim Test As String
    Dim i As Integer
    Dim Quer As Integer
    Dim Prüf As Integer
    Test = "6401009"
    For i = 1 To Len(Test)
        Quer = Quer + Mid(Test, i, 1) * (i + 1)
    Next i
    Prüf = Quer Mod 11
    If Prüf = 10 Then
        MsgBox "Fehlerhafter Code"
        Prüf = ""
    End If
    MsgBox "Prüfziffer: " & Prüf
End Sub

Dieses Makro berechnet die Prüfziffer auf Basis der eingegebenen Zahl.


Praktische Beispiele

  1. Beispiel 1:

    • Art.-Nr. 4253016
    • Prüfziffer: 6
    • Berechnung:
      6*2 + 1*3 + 0*4 + 3*5 + 5*6 + 2*7 + 4*2 = 82
      82 MOD 11 = 7
      11 - 7 = 4 (Prüfziffer)
  2. Beispiel 2:

    • Art.-Nr. 6401009
    • Prüfziffer: 3
    • Berechnung wie oben, jedoch ändere die Eingabe in A1 entsprechend.

Tipps für Profis

  • Nutze bedingte Formatierung in Excel, um Zahlen hervorzuheben, die eine Prüfziffer von 10 ergeben, damit du sofort auf Fehler aufmerksam wirst.
  • Experimentiere mit der Excel Funktion MOD, um verschiedene Modulo-Berechnungen durchzuführen, wie zum Beispiel Modulo 10.

FAQ: Häufige Fragen

1. Was ist das Modulo 11 Verfahren?
Das Modulo 11 Verfahren wird verwendet, um eine Prüfziffer für eine Zahl zu berechnen, indem die Ziffern gewichtet und summiert werden.

2. Wie kann ich die Prüfziffer für eine EAN berechnen?
Die EAN kann ebenfalls mit dem Modulo 11 Verfahren berechnet werden, indem die Ziffern in der EAN entsprechend gewichtet werden.

3. Welche Excel-Version benötige ich?
Das beschriebene Verfahren funktioniert in allen aktuellen Excel-Versionen, einschließlich Excel 2010 und neuer.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige