Excel: EAN13-Prüfziffer per VBA berechnen

Question

Hallo,

zu oben genannten Problem habe ich bereits diesen Thread gelesen https://supportnet.de/listthread/1130361 (dort kann ich nicht antworten).

In der letzten Antwort wird ein Makro gelistet, welches ich in Excel (2010 SP1) nicht zum laufen bekomme. Die Funktion prfz(-ZELLE-) liefert mir immer #NAME zurück, egal wie die zelle mit dem EAN formatiert ist, als TEXT oder ZAHL oder STANDARD spielt keine Rolle, es liefert immer #NAME zurück.

Code wurde im Module1 als Public Function eingefügt. Ich bin leider kein Experte in VBA, kann mir jemand weiterhelfen?

Ich hab zwar bereits eine Lösung als Formel, die einwandfrei funtioniert, aber bei mehreren tausend EANs bläht das die Tabelle nur unnötig auf. Und man will ja auch noch was dazu lernen.

Vielen Dank im voraus.
Michael

Answer 1

Hallo Michael,

vielleicht machst Du etwas falsch, was ich leider nicht sehen kann.

Anbei ein kleines Beispiel, was zwar in Excel 2007 erstellt ist, aber auch in Excel 2010 laufen sollte.

Beispiel

Gruß
Rainer

Answer 2

Hallo Rainer,

vielen Dank für die schnelle Hilfe. Also ob ich was falsch mache weiß ich nicht, ich denke aber nicht ;)

Deine Tabelle mit den der Fkt. prfz() funktioniert.

Außer, dass dein Code eingerückt ist und oben drüber 'Option Explicit' steht, ist bei mir alles gleich. Dies bei mir übernommen, ergibt keine Änderung... Seltsam, denn zwei andere Makros mit Funktionen laufen ohne Probleme.

Gruß
Michael

Answer 3

Peinlich, Peinlich.

ich hab mich bei der Funktion verschrieben.

prfz statt przf.

Also doch was gelernt. ;)

Gruß
Michael.