Formel Prüfsumme Überweisung o2

Was ist denn die "erweiterte Fragestellung"? Das mit dem Barcodescanner? Na dann viel Spaß.

Stefan

ich hab das gerade mal probiert, bei mir in Excel 2007 tut das mal nicht, er zeigt in jedem Feld 0 an.

Aber vermutlich liegt das eher daran das ich Excel nie benutze

Brauchs auch nicht, habs nur mal getestet

Klappt das obige Beispiel bei jemandem? Bei mir stimmt die Prüfsumme nicht. IMHO passen die Formeln auch nicht zur Beschreibung...

Ich habe den o.g. JavaScript-Code mal in VBA überführt. Vielleicht kann das ja einer gebrauchen. Da sind zwar die Prüfungen nicht mehr drin, aber es funktioniert.

Option Explicit
Sub o2_berechnung()


Dim d1, d2, d3, d4, d4mul, lauf, wert, z As Byte
Dim c As String


Const nummer = "xxxxxxxxxxx"


d4mul = 1


For lauf = 0 To Len(nummer) - 1


  c = Mid(nummer, lauf + 1, 1)
  wert = Val(c)
  d1 = wert


  If lauf Mod 2 = 0 Then
    z = 2 * wert
    If z > 9 Then
      z = z - 9
    End If
  Else: z = wert
  End If
  d2 = d2 + z
  d3 = d3 + wert
  d4 = d4 + wert * d4mul
  d4mul = d4mul + 1
  If d4mul > 9 Then d4mul = 1
Next


If d1 > 9 Then
  d1 = d1 - 6
End If
d2 = d2 Mod 10
d3 = d3 Mod 10
d4 = d4 Mod 10
c = d1 & d2 & d3 & d4
Debug.Print (c)
End Sub

Bei mir klappt der VBS Code nicht ganz.
Die erste Prüfnummer ist immer die letzte Nummer der Handy-Nummer.
Die anderen 3 Prüfnummern scheinen zu stimmen.

Ich glaube hier ist der Fehler:

statt:
d1 = Wert

muß stehen:

d1 = d1 xor wert