Hallo zusammen, ich bin Informatik Student im 2 Semester und außerdem Vollzeit Berufstätig in einem Betrieb, in dem ich öfters mit Excel Listen zu tun habe. Ich kenne mich gut in Objektorientierten Programmiersprachen aus, jedoch ist VBA für mich absolut neu. Ich habe mir vorgenommen ein kleines Projekt durchzuführen und hoffe auf eure Hilfe, sodass ich es schneller abschließen kann.

Gegeben ist eine Liste mit Artikelnummern. Ziel ist es, per VBA, Passende Barcodes zu generieren.

Ich weiß bereits wie die Barcodes anhand der Artikelnummern generiert werden kann.

Jede Artikel Nummer besteht aus 13 Zahlen, eine vierzehnte Zahl ist notwendig und stellt die Prüfziffer für den Barcode dar. Je 2 Zahlen ergeben einen 14-stelligen Binärcode, welcher direkt in Barcode transkribiert werden kann, da die 1 für schwarzes Feld steht und die 0 für ein weißes Feld. Außerdem gibt es jeweils ein 4-Stelligen Binärcode für den Anfang der Barcodes und für das Ende des Barcodes, damit ergeben sich für den vollständigen Barcode immer 106 Felder.

In Excel möchte ich das so lösen, dass ich zunächst die Spalte angebe, wo sich die Artikelnummern befinden und zweitens eine Spalte angebe, von wo aus der Barcode, in der jeweiligen Zeile, generiert werden soll. VBA soll nun folgendes tun: Die Zellen sollen entsprechend formatiert werden (kurze und Längliche Zellen, so wie man es von Barcodes kennt), es sind immer 106 Felder notwendig. In jedem Feld wird nun abhängig von der Artikelnummer, welche sich in der gleichen Zeile befindet, entweder eine 1, für schwarzes Feld, oder eine 0, für ein weißes Feld, generiert.

Folgenden Code habe ich schon:

Sub CreateBarcode()

'definition Variablen

Dim pair00, pair01, pair02, pair03, pair04, pair05, pair06, pair07, pair08, pair09

Dim pair10, pair11, pair12, pair13, pair14, pair15, pair16, pair17, pair18, pair19

Dim pair20, pair21, pair22, pair23, pair24, pair25, pair26, pair27, pair28, pair29

Dim pair30, pair31, pair32, pair33, pair34, pair35, pair36, pair37, pair38, pair39

Dim pair40, pair41, pair42, pair43, pair44, pair45, pair46, pair47, pair48, pair49

Dim pair50, pair51, pair52, pair53, pair54, pair55, pair56, pair57, pair58, pair59

Dim pair60, pair61, pair62, pair63, pair64, pair65, pair66, pair67, pair68, pair69

Dim pair70, pair71, pair72, pair73, pair74, pair75, pair76, pair77, pair78, pair79

Dim pair80, pair81, pair82, pair83, pair84, pair85, pair86, pair87, pair88, pair89

Dim pair90, pair91, pair92, pair93, pair94, pair95, pair96, pair97, pair98, pair99

pair00 = Array("1", "0", "1", "0", "1", "1", "0", "0", "1", "1", "0", "0", "1", "0")

pair01 = Array("1", "0", "0", "1", "0", "1", "1", "0", "1", "1", "0", "1", "0", "0")

pair02 = Array("1", "0", "1", "0", "0", "1", "1", "0", "1", "1", "0", "1", "0", "0")

pair03 = Array("1", "0", "0", "1", "0", "0", "1", "1", "0", "1", "1", "0", "1", "0")

pair04 = Array("1", "0", "1", "0", "1", "1", "0", "0", "1", "1", "0", "1", "0", "0")

pair05 = Array("1", "0", "0", "1", "0", "1", "1", "0", "0", "1", "1", "0", "1", "0")

pair06 = Array("1", "0", "1", "0", "0", "1", "1", "0", "0", "1", "1", "0", "1", "0")

….

(Jedes Array steht für eine Kombination von zwei Zahlen der Artikelnummern, welche dann 14 Felder des Barcodes ergeben. Es gibt 100 Kombinationen.)

Welche Methoden sind notwendig und wie werden sie eingesetzt, um entsprechende Formatierung der Zellen vorzunehmen?

Wie kann ich eine Schleife erzeugen, um Zeile für Zeile durchzugehen, so lange etwas in der Zeile steht und entsprechenden binären Code, einzutragen, bzw. entsprechende Felder schwarz zu füllen?