Office: Berechnung der Selbstkontrollziffer

Hallo.

ich möchte in einer Excel-Datei die Selbstkontrollziffer von Eisenbahnwagons berechnen lassen.
Dazu gebe ich die 11-Stellige Wagennummer ein. (z.B. 33544975047)
Anschließend muss jede Zahl einzeln und abwechselnd mit 2 und 1 multipliziert werden. Aus diesen wird dann die Quersumme gebildet und die differenz bis zur nächsten "10" ermittelt.
Bei meiner Beispielnummer wäre das Ergebnis "0".

Wäre klasse, wenn ihr mir da helfen könntet.

Beste Grüße
Georg

:)

 

Grüezi Georg

Hmmm, ich glaube, dass da mit deiner Berechnung und/oder dem Verfahren etwas noch nicht so ganz stimmt - je nachem ob ich die erste Ziffer mit 1 oder mit 2 multipliziere komme ich auf den Wert 3 oder 4.

Mit einer Benutzerdefinierten Funktion kannst Du das Ganze dann wie folgt angehen (wenn der Algorithmus dann wirklich klar ist):

Code eingefügt mit VBA in HTML 2.0.0.3

 

hallo Georg
schau mal hier.
Lok- und Wagennummern berechnen
fuer die Berechnung:
http://de.wikipedia.org/wiki/UIC-Wag...kontrollziffer
gruss hary

 

Hallo Thomas,

mein Beispiel ist richtig.
man fängt mit der "2" an zu multiplizieren. wenn dann ein Zwischenergebnis 2-stellig ist (z.B. 14) müssen die beiden Zahlen nacheinander addiert werden (1+4 und nicht 14+x).
Eine andere Sache: wie kann ich im Excel (2003 / 2007) Formeln erstellen? Und funktioniert die eigene Formel dann auch auf anderen Rechnern?

Gruß
Georg

 

Hallo Hary,

genau sowas - nur brauche ich diese Berechnung für Excel, da ich damit die Eingaben überprüfen möchte. Da helfen Programme oder Java-Anwendungen im Netz gar nicht.

Gruß
Georg

 

Hallo Georg
hab mal was gebastelt(siehe Anhang).
Einzige was evtl stoert ist, dass Zeile2 gebraucht wird. Aber teste mal. Erklaerung in Tabelle.
gruss hary
Code fuer Mitleser:
Code:

verbesserung erwuenscht wenn jemand was einfaellt.

 

Hallo Hary,

das geht schon in die richtige Richtung. Nur soll der die Prüfziffer fortlaufend berechnen und nicht erst nach knopfdruck.
Ich habe dir mal als Beispiel das Tab mit eingefügt:
http://georg.frenzel.free.fr/pruefziffer.xls

ich habe auch vor das ganze in einer Datei zu verwenden, in der die 11 Ausgangszahlen auf 4 Zellen aufgeteilt sind. Das wäre dann noch etwas umständlicher zu schreiben, oder?

Gruß
Georg

 

hallo Georg
Ich werde mal einen hinfusseln. Heute aber nicht mehr.
Hab aber mal eine Frage,da ich aus dem Bereich komme.
Warum willst Du die Pruefnummer ueberpruefen? Bei einer haendischen Wagenliste latsche ich doch am Zug vorbei und wenn ich die Wg_Nummer aufschreibe kann ich doch die Pruefnummer auch mitschreiben oder traust Du den Wg_Nummern nicht?
Wo ich die Wg-Liste schreiben musste habe ich bei gleichbleibenden(die ersten 4) die Felder freigelassen die Pruefnummer aber immer mitgeschrieben.
gruss hary
fiel mir gerade ein: Soll die Pruefnummer nur ueberprueft oder soll diese irgendwo eingetragen werden

mappe zugefuegt!

 

Hallo Hary,

ich habe vor meine eigenen Eingaben zu überprüfen, denn wenn man an dem Zug lang geht vertippt man sich leicht. Ich selber nehme zum direkten aufschreiben die zweite Liste, da man die oberen Zahlen schon mal kopieren kann. die andere Liste ist besser zum abtippen, da man einfach hinter einander die Nummer tippen kann und dann dachte ich die Eingabe mit einem Blick auf diese Weise zu überprüfen.
Deshalb sollte die Kontrollziffer gleich nach der Eingabe der Wagennummer automatisch in das freie Feld rechts daneben eingefügt werden...

Bis morgen.
Georg

 

Grüezi Georg

Ich habe den Code als Funktion gestaltet, die Du nun in jeder beliebigen Zelle eintragen und den Bezug zur Zelle mit der Nummer erstellen kannst.

Hier die Codezeilen die in der angehängten Mappe enthalten sind:

Code:

 

Hallo Zusammen!
Ich habe eure Lösung gesehen und würde gerne wissen, ob es auch möglich ist, dass man eine Meldung bekommt wenn die Prüfziffer nicht stimmt (bzw. wenn ein Tippfehler in der eigentlichen Nummer ist).

Ich habe da ein Makro in dem aber leider ein Fehler in der 7. Zeile ist. Es wäre nett wenn mir jemand weiter helfen könnte! *Smilie

Sub test()
Dim Bereich As Range, Zelle As Range, i As Integer, x As Integer
Set Bereich = Range("A1:A30")
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

 

Moin
Vorweg mal die Frage, wie stehen die Wg.-Nummern in den Zellen?


Tabelle1

	A
1	33544975047-0
2	'335449750470

Tools Tabelle Forum - Hajo's Excelseiten
XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007
Add-In-Version 14.02 einschl 64 Bit

gruss hary

 

Guten Morgen Hary!
Vielen Dank für deine Antwort.

Also grundsätzlich stehen die Ziffern so in der Spalte: #### #### ###-# aber ich weiß, dass es wohl umständlicher ist, es so zu programmieren daher können die Leerzeichen auch weggelassen werden.
Wenn allerdings das Minus hinten bleiben könnte, wäre das schon Luxus (Dein Beispiel A1).

Gruß Tobias

 

Moin
Die Schleife bekommst du ja hin.
Hier fuer A1.
Bsp. Eingabeformat: 3354 4975 047-0
Code angepasst von Thomas
Code:

Ich wuerde aber evtl. den Code(anpassen) ins Worksheet_Change Ereigniss setzen, dann wird gleich nach Eingabe geprueft ob richtig eingegeben.
gruss hary

 

Hey Hary!

Danke das Du Dir die Zeit nimmst! Finde ich echt klasse!

Es funktioniert super bei der Tabelle von Thomas. Wenn ich allerdings in meiner Tabelle (DieseArbeitsmappe) versuche die Function über:

Private Sub Worksheet_Change(ByVal Sh As Object, ByVal Target As Range)
Call SK_Ziffer
End Sub

aufzurufen, passiert garnichts. Ich glaube da mache ich generell n Fehler, weil ichs in der Tabelle von Thomas auch nicht hinbekommen habe.

Zudem die Frage: Wenn diese Function für die komplette Spalte C gelten soll, wie ändere ich die ...(Cells(1, 1)... um?