Office: Berechnung der Selbstkontrollziffer

hary · 2. Februar 2015

Moin
Soll nur in einem Blatt wirken?
Code in den Code des Blattes.
Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim intI As Integer
Dim strWert As String
Dim dblTmp As Double
Dim WgNum As String
Dim PrNum As Integer
If Target.Count = 1 And Target.Column = 3 Then 'wenn nur eine Zelle geaendert und SpalteC
If Len(Target) = 15 Then
WgNum = Left(Replace(Target, " ", ""), 11)
For intI = 1 To Len(WgNum)
If intI Mod 2 = 0 Then
strWert = strWert & Mid(WgNum, intI, 1)
Else
strWert = strWert & Val(Mid(WgNum, intI, 1)) * 2
End If
Next intI
For intI = 1 To Len(strWert)
dblTmp = dblTmp + Val(Mid(strWert, intI, 1))
Next intI
If dblTmp Mod 10 = 0 Then
PrNum = 0
Else
PrNum = 10 - (dblTmp Mod 10)
End If
If Right(Cells(1, 1), 1) PrNum Then
MsgBox "Eingetragene Wg.-Nummer fehlerhaft", vbInformation, "Fehler in Wg.-Nummer"
End If
Else
MsgBox "Anzahl der Ziffern passt nicht", vbCritical, "Wg.-Nummer Fehlerhaft"
End If
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gruss hary

tg89. · 2. Februar 2015

Puh schwere Geburt *biggrin.gif*
Habe den Aufruf gerade hinbekommen...die Function war ja noch an die Zelle geknüpft.

Problem liegt jetzt nur noch darin, dass es nicht klappt in Spalte C.
Oben deine Änderung habe ich gecheckt.
Muss denn hier:

Code:

End If
If Right(Cells(1, 1), 1) PrNum Then
MsgBox "Eingetragene Wg.-Nummer fehlerhaft", vbInformation, "Fehler in Wg.-Nummer"
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

vielleicht auch noch was geändert werden? Tut mir leid ich verstehe zwar ungefähr was passiert aber das wars dann auch.

Gruß Tobi

hary · 2. Februar 2015

Moin
Sry,hab ich uebersehen.
muss heissen:
If Right(Target, 1)
gruss hary

tg89. · 2. Februar 2015

Hary Du bist ein Held! Es Funktioniert!
Du glaubst garnicht was Du mir Gutes getan hast!

Vielen vielen Dank!!

renerene · 11. April 2017

Danke, ich suche jetzt precies so etwas, leider weiss ich noch nicht, wie ich es in meinem Exelldocument rein fummeln kann, bin ein anfänger was Exell angeht, wenn jemand mir aushelfen kan??*redface.gif*

jack_D · 11. April 2017

Moin Moin, +

das kommt letztlich darauf an, was du konkret willst.

Im Vorgenannten Thread hast du 2 Ansätze

Über das WS.Change Element oder über eine UDF (user defined function)
Das eine tickert im hintergrund und prüft und das andere "löst" konkrete Zahlen auf

*rolleyes.gif*

Grüße

renerene · 11. April 2017

Wie hier oben angegeben, das mann den eingegebenen Computernummer gleich controlliert wenn er eingegeben ist.

jack_D · 11. April 2017

Moin Moin,

vorab ein paar ehrlich gemeinte Worte.

Wenn du blutiger Anfänger in Excel bist, wirst du mit einer VBA-Lösung keinen Spaß haben.
Denn du kannst es weder verstehen noch nachpflegen bzw. Ändern.
.. Ich würd es mir an deiner Stelle überlegen!

Dann zur eigenltichen Antwort:

Du öffnest den VBA-Editor (Alt+F11)
Und kopierst den Code in das Blatt in welchem geprüft werden soll.
Thats it -..

Grüße

renerene · 11. April 2017

Moin!
Naja blutiger anfänger, ich habe aber auch noch jemand der mir helfen kann, und ich weiss natürlich ob die nummer dan gut functioniert oder nicht, angeblich steht hier oben den gute formel, meiner meinung nach muss ich den bloß nur noch wirkend einarbeiten...*eek.gif*

jack_D · 11. April 2017

Und da geht es los.

Ich hatte gefragt, ob du es in einer Formellösung (UDF) oder in der "Änderungsverfolgen" haben möchtest.

Deine Antwort war

Wie hier oben angegeben, das mann den eingegebenen Computernummer gleich controlliert wenn er eingegeben ist.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Meine interpretation deiner Antwort - "Änderungsverfolgen"

Alternativ kannst du natürlich auch die UDF nehmen.
Diese würde ich allerdings in ein allgemeines Modul einfügen.

Die Formel als solchen rufst du dann entsprechend der Syntax (analog der bekannten ExcelFormeln) aus den Zellen heraus auf.

Grüße

renerene · 12. April 2017

Hmmm, ich habe es versucht, oder, wir, aber nicht den eindruk das wir den eingegebenen Formel dann speichern können... oder wir finden den Knopf nicht...*entsetzt

jack_D · 12. April 2017

Wenn du die Formel im VBA Editor eingetragen hast, (und alles richtig gemacht hast) dann kannst du die Formel ganz normal (wie jede andere Formel auch) aus jeder Zelle der Mappe aufrufen.

"Speichern" kannst du die Formel (erstmal) nur in der Mappe.
Du müsstest um sie für alle Mappen Verfügbar zu machen ein Addin erstellen.

Grüße

jack_D · 17. April 2017

Moin Moin,

hier mal das Addin mit dem zugrundeliegenden Luhn Algorithmus.

Der Code ist die Weiterentwicklung von Harys WS-Change Codes. (zur UDF)

Aufzurufen ist die Funktion mit =Luhn()

Code:

Public Function Luhn(ByVal Target As Range)

Dim intI As Integer
Dim strWert As String
Dim dblTmp As Double
Dim WgNum As String
Dim PrNum As Integer

If Len(Replace(Target.Value, " ", "")) = 13 Then
WgNum = Left(Replace(Target.Value, " ", ""), 11)

For intI = 1 To Len(WgNum)
If intI Mod 2 = 0 Then
strWert = strWert & Mid(WgNum, intI, 1)
Else
strWert = strWert & Val(Mid(WgNum, intI, 1)) * 2
End If
Next intI

For intI = 1 To Len(strWert)
dblTmp = dblTmp + Val(Mid(strWert, intI, 1))
Next intI

If dblTmp Mod 10 = 0 Then
PrNum = 0
Else
PrNum = 10 - (dblTmp Mod 10)
End If

If Right(Target.Value, 1) * 1 PrNum Then
Luhn = "Eingetragene Wg.-Nummer fehlerhaft"
Else
Luhn = "Eingetragene Wg.-Nummer richtig"
End If

Else
Luhn = "Anzahl der Ziffern und Zeichen passt nicht"
End If

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Rückmeldung und Bewertung wär nett

Grüße Jack

Office: Berechnung der Selbstkontrollziffer

Berechnung der Selbstkontrollziffer

Berechnung der Selbstkontrollziffer

Berechnung der Selbstkontrollziffer

Berechnung der Selbstkontrollziffer

Berechnung der Selbstkontrollziffer

Berechnung der Selbstkontrollziffer - Similar Threads - Berechnung Selbstkontrollziffer

Zellbezug berechnen mit JAHR()

Quartale dynamisch berechnen

Formel zur Berechnung der Nachtzulagen

Positive und Negative Stunden berechnen

Uhrzeiten berechnen

Umsatzsteuer mit Dropdown berechnen - Rechnung

Provisions-Berechnung mit Pivot-Tabelle