Barcodes in Excel 2016, Excel 2013 und Excel 365

Barcodes in Excel Tabellen einbetten und automatisieren

Excel 365, 2024, 2021, 2019, 2016, 2013, 2010

Im Folgenden wird kurz beschrieben, wie Sie einen Strichcode in ein Excel-Dokument einfügen und mit dem Inhalt einer Zelle verknüpfen können.

Starten Sie zunächst Excel und erstellen oder öffnen Sie ein Dokument.

Stellen Sie sicher, dass Sie Excel so konfiguriert haben, dass die Registerkarte Entwickler erscheint. Gehen Sie dazu in die Excel-Optionen, indem Sie auf die Registerkarte Datei klicken. Dadurch wechseln Sie in die Backstage-Ansicht. Klicken Sie dann auf Optionen in der Registerkartengruppe auf der linken Seite. ActiveBarcode: Barcode, Excel

Aktivieren Sie unter Ribbon anpassen die Option Entwickler auf den Hauptregisterkarten, und schließen Sie dann das Optionsfenster. ActiveBarcode: Barcode, Excel

Sie können nun das ActiveBarcode-Steuerelement in Ihr Dokument einbetten. Wählen Sie die Registerkarte Entwickler. Klicken Sie auf die Schaltfläche Einfügen im Bereich ActiveX-Steuerelemente und wählen Sie dann Weitere Steuerelemente. ActiveBarcode: Barcode, Excel

Auf dem Bildschirm erscheint ein Dialogfenster: ActiveBarcode: Barcode, Excel

Wählen Sie ActiveBarcode und klicken Sie auf OK. Es wird nun ein Strichcode in Ihrem Dokument erstellt. Es handelt sich um einen Standard-EAN-128-Strichcode. Dies ist der Standardtyp. Sie können ihn in jeden von ActiveBarcode unterstützten Barcodetyp ändern: QR Code, GS1/EAN-128, Data Matrix, GTIN/EAN-13, Code 39, Code 93, GS1-Data Matrix, Code 128, PDF417, DUN-14, EAN-8, EAN-14, EAN-18, ISBN, ITF-14, NVE, PZN8, SCC-14, SSCC-18 ...Sie können diesen Barcode nun ändern. Sie können den Typ, den Text, die Farben usw. ändern. Klicken Sie dazu mit der rechten Maustaste in den Barcode. Ein Pop-up-Menü wird geöffnet: ActiveBarcode: Barcode, Excel

Wählen Sie ActiveBarcode Object gefolgt von Properties. Es öffnet sich der Eigenschaftsdialog. Hier können Sie den Barcode nach Belieben ändern.

Alternativ können Sie auch den Eigenschaftsdialog von Excel verwenden. Klicken Sie dazu auf die Schaltfläche Eigenschaften im Bereich Steuerelemente: ActiveBarcode: Barcode, Excel

Verknüpfung zwischen einer Zelle und dem Barcode herstellen: Öffnen Sie den Eigenschaftsdialog von Excel wie oben beschrieben. Aktivieren Sie das Barcode-Objekt, indem Sie es einmal anklicken. Die Eigenschaften des Barcode-Objekts werden nun im Eigenschaftsdialog angezeigt. Suchen Sie nach der Eigenschaft LinkedCell. Diese Eigenschaft stellt eine Verknüpfung zwischen einer Zelle und dem Barcode her: ActiveBarcode: Barcode, Excel

Geben Sie den Namen der Zelle für den Link in diese Eigenschaft ein. Das war's!

Wenn Sie einen Barcode erstellen möchten, der Daten aus mehreren Zellen kodiert, müssen Sie diese Zellen zunächst zu einer Hilfszelle zusammenführen. Verbinden Sie dann diese kombinierte Zelle mit dem Barcode-Objekt.

Im folgenden Beispiel werden die Inhalte der Zellen B3 und B4 in Zelle B6 zusammengefasst. Zelle B6 ist mit dem Barcode-Objekt verknüpft. ActiveBarcode: Barcode, Excel

Barcode Objekte mit VBA automatisieren in Excel

Sie können VisualBasic for Applications (VBA) verwenden, um viele Aufgaben in Excel zu lösen. Hier zeigen wir Ihnen, wie Sie das ActiveBarcode-Steuerelement mit VBA einbetten, verwenden und löschen können:

Einbetten des ActiveBarcode Controls in ein Blatt:
In diesem Beispiel wird ein Barcode-Steuerelement direkt über einer Zelle platziert. Dann sieht es so aus, als ob sich der Barcode innerhalb einer Zelle befinden würde.

Zuerst lesen wir die Größe der Zellen ab:

CurrentCell = "C3"
MyHeight = Range(CurrentCell).Height
MyWidth = Range(CurrentCell).Width
MyTop = Range(CurrentCell).Top
MyLeft = Range(CurrentCell).Left

Bitte beachten Sie, dass eine Zelle eine Mindestgröße haben sollte, damit der Barcode in sie hineinpassen kann. Wenn die Zelle zu klein ist, wird ein Größenfehler angezeigt. Wir ändern also die Höhe der Zelle auf 30 Pixel:

' Enlarge the cell height to 30 pixels
Range(CurrentCell).RowHeight = 30

Mit der folgenden Funktion wird das Barcode-Steuerelement direkt über der Zelle erstellt:

ActiveSheet.OLEObjects.Add(ClassType:="ACTIVEBARCODE.BarcodeCtrl.1", Link:=False, _
 DisplayAsIcon:=False, Width:=MyWidth , Height:=MyHeight, Top:=MyTop + 2,_
 Left:=MyLeft + 4).Select

Sie können das Barcode-Objekt direkt mit einer Zelle verknüpfen:

ActiveSheet.OLEObjects(MyBarcode).LinkedCell = "B7"

Um den Zugriff auf das Steuerelement zu erleichtern, speichern wir den Namen des Steuerelements in der Variablen MyBarcode:

MyBarcode = ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Name

Nun können Sie die Eigenschaften und Methoden des Barcode-Objekts nach Belieben verwenden:

' set properties
ActiveSheet.OLEObjects(MyBarcode).Object.Font.Size = 8
ActiveSheet.OLEObjects(MyBarcode).Object.Type = 14 ' Code 128
ActiveSheet.OLEObjects(MyBarcode).Object.Text = Range("C3")

Wenn Sie das Steuerelement nicht mehr benötigen, können Sie es aus dem Blatt löschen:

ActiveSheet.OLEObjects(MyBarcode).Delete

Tipp: Wenn es erforderlich ist, dass Windows anstehende Ereignisse (oft als KeepWindowsAlive bezeichnet) innerhalb eines Makros verarbeitet, können Sie dies mit der folgenden VBA-Funktion erzwingen:

DoEvents

Dies kann notwendig sein, z.B. wenn sich das Control neu zeichnen muss.