Office: VBA Funktion

Problem

Ein Unternehmen verwendet sechsstellige Artikelnummern
Um Eingabefehler zu verringern, wird an diese Artikelnummer
eine weitere Ziffer als Prüfziffer angehängt.
Sie wird folgendermaßen errechnet:

Artikelnummer 1 2 3 4 5 6
Faktor 6 5 4 3 2 1
Einzelwer 6 10 12 12 10 6
Gesamtwert 56
dividiert durch 11
Rest 1 <- Prüfziffer
Artikelnummer mit Prüfziffer: 1234561

Kann mit jemand beim Erstellen des Struktogramms helfen? Bzw. die Funktion programmieren?

Stimmt die eingegebene Prüfziffer mit der errechneten Prüfziffer überein,
so wird als Text "Prüfziffer stimmt" ausgegeben.
Weicht die errechnete Prüfziffer von der eingegebenen Prüfziffer jedoch
ab, so soll die Funktion als Ergebnis den Text
"Prüfziffer stimmt nicht, korrekt ist ..." ausgeben.


DANKE

 

Hallo!

Das sollte doch auch noch ohne VBA gehen:

	A	B
2	1234561	stimmt
3	1234562	stimmt nicht! Richtig wäre 1

Zelle	Formel
B2	=WENN(REST(A2;10)=REST(SUMMENPRODUKT((7-ZEILE($1:$6))*TEIL(A2;ZEILE($1:$6);1));11);"stimmt";"stimmt nicht! Richtig wäre "&REST(SUMMENPRODUKT((7-ZEILE($1:$6))*TEIL(A2;ZEILE($1:$6);1));11))
B3	=WENN(REST(A3;10)=REST(SUMMENPRODUKT((7-ZEILE($1:$6))*TEIL(A3;ZEILE($1:$6);1));11);"stimmt";"stimmt nicht! Richtig wäre "&REST(SUMMENPRODUKT((7-ZEILE($1:$6))*TEIL(A3;ZEILE($1:$6);1));11))

Teste es mal durch, ob dir die Formel die korrekten Ergebnisse liefert.

 

Danke, für Excel habe ich es auch hinbekommen und deine Formel sind richtig:)

Doch "leider" muss ich es mit VBA programmieren.

Kannst du mir da helfen?

 

Hallo!

Warum so etwas in VBA sein MUSS, werde ich mein Leben lang nicht begreifen...

Code:

Sub test()
  Dim Bereich As Range, Zelle As Range, i As Integer, x As Integer
  Set Bereich = Range("A1:A2") '<-- hier anpassen
  For Each Zelle In Bereich
    x = 0
    For i = 1 To 6
      x = x + (7 - i) * Mid(Zelle, i, 1)
    Next i
    x = x Mod 11
    If x = Zelle Mod 10 Then
      Zelle.Offset(0, 1) = "Stimmt"
    Else
      Zelle.Offset(0, 1) = "Falsch! Richtig ist " & x
    End If
  Next Zelle
End Sub

 

Hey ich weiß es ist ja schon ein paar Jährchen her aber könnte mir vllt jemand sagen warum in Zeile 7 ein Fehler ist?
Danke schonmal :)

 

Moinsens!

Weil Du Zeile 3 (nach dem ') nicht beachtet hast... ;-)

Gruß, Michael