ich habe da ein kleines Problem. Ich möchte gern Belege erzeugen, welche einen Barcode tragen, um sie später in ein optisches Archiv einscannen zu können, durch die im Barcode verschlüsselten Informationen läßt sich der Beleg später wieder finden. Ich habe also einen Truetype Font benutzt, der den entsprechenden Code darstellt. Leider reicht das für unser System noch nicht aus. Es wird noch eine Prüfziffer benötigt. Wie sich diese Prüfziffer errechnen läßt, das ist unter folgendem Link beschrieben und stimmt auch mit dem von uns verwendeten System überein. Ich habe es manuell nachgeprüft.
http://www.strichcodeservice.at/code39.htm#Prüfzeichenberechnung
Nach dieser Methode erhält das Wort Excel die Prüfziffer 8. Soweit so gut.
Ich habe nun innerhalb des Beleges die Informationen aus drei Zellen genommen, einmal eine Mischung aus Buchstaben und Zahlen, einmal ein Datum, von dem ich jedoch nur das Jahr anzeigen lasse und einmal eine Ziffernfolge, und habe sie durch die Funktion verketten in eine Zelle gebracht. Die Formel sieht so aus: =WENN(ODER(D8="";I8="");"";VERKETTEN(C5;JAHR(D8);I8)) Das alles in der Schriftart für Barcodes dargestellt ergibt den richtigen Balkencode. Mir fehlt aber noch eine Methode die in der Zelle, durch verketten, angezeigten Informationen automatisch auslesen und daraus eine Prüfziffer oder ein Prüfzeichen errechnen zu lassen, um dies anschließend in die Zeichenfolge zu integrieren. Hierbei stehe ich vor einem etwas größeren Problem. Hat jemand eine Idee, wie man das per Formel oder von mir aus auch per VBA lösen kann?
Ich wäre euch für Antworten wirklich sehr dankbar!!!
Viele Grüße,
Marc Richter