Barcodes in Excel aus EAN Nummer generieren
Schritt-für-Schritt-Anleitung
-
Vorbereitung:
- Stelle sicher, dass Du die Schriftart für Code 128 in Excel installiert hast. Diese Schriftart ist erforderlich, um die Barcodes korrekt darzustellen.
- Du kannst die Schriftart kostenlos herunterladen und in Excel installieren.
-
VBA-Makro einfügen:
- Öffne Excel und drücke
ALT + F11, um den VBA-Editor zu öffnen.
- Gehe zu
Einfügen > Modul und füge den folgenden Code ein:
Public Function Code128$(Text$)
Dim x%, y%, fehlzeichen%, checksumme&
Dim Zeichensatz As Variant
Zeichensatz = Array("ß", "!", Chr(34), "#", "$", "%", "&", "'", "(", ")", "*", "+", ",", "-", ".", "/", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", ":", ";", "<", "=", ">", "?", "@", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "[", "\", "]", "^", "_", "`", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "{", "|", "}", "~", "´", "ä", "ö", "ü", "Ä", "Ö", "Ü", "µ", "À", "Á", "Â", "È")
Code128$ = ""
'Maximale Länge des Textes auf 40 Zeichen begrenzen
If (Len(Text$) > 40) Then
x% = MsgBox("Der zu codierende Text ist " & Str(Len(Text$) - 40) & " Zeichen zu lang." & Chr(13) & "Um Fehler beim Scannen des Barcodes zu vermeiden, ist dieses Makro auf 40 Zeichen begrenzt.", 64, "Barcode-Generator (Code 128)")
Exit Function
End If
If (Len(Text$) = 0 Or Text$ = "0") Then Exit Function
'Prüfziffer berechnen
checksumme& = 104
For x% = 1 To Len(Text$)
fehlzeichen% = 1
For y% = 0 To 94
If (Mid$(Text$, x%, 1) = Zeichensatz(y%)) Then
fehlzeichen% = 0
checksumme& = checksumme& + (x% * y%)
Exit For
End If
Next y%
If fehlzeichen% = 1 Then
x% = MsgBox("Das Zeichen " & Mid$(Text$, x%, 1) & " kann nicht dargestellt werden.", 64, "Barcode-Generator (Code 128)")
Exit Function
End If
Next x%
checksumme& = checksumme& Mod 103
Code128$ = "Á" & Text$ & Zeichensatz(checksumme&) & "È"
End Function
-
Barcode generieren:
- In einer Zelle kannst Du nun den Barcode mit der Formel
=Code128(A2) erzeugen, wobei A2 die Zelle ist, die die EAN-Nummer enthält.
-
Darstellung des Barcodes:
- Wähle die Zelle mit dem Barcode und ändere die Schriftart in die installierte Code 128 Schriftart. Achte darauf, dass um die Zelle genug Rand bleibt, da es eine Ruhezone links und rechts gibt.
Häufige Fehler und Lösungen
Alternative Methoden
- Du kannst auch Barcode-Generatoren verwenden, die online verfügbar sind, um EAN-Codes zu erstellen und diese dann in Excel zu importieren.
- Excel Add-Ins für Barcode-Generierung können ebenfalls hilfreich sein, insbesondere wenn Du regelmäßig Barcodes erstellen musst.
Praktische Beispiele
- Beispiel für EAN 13:
- Wenn Du eine EAN 13 Nummer wie
4006381333931 in Zelle A2 hast, kannst Du einfach die Formel =Code128(A2) verwenden, um den Barcode zu generieren.
Tipps für Profis
- Nutze VBA zur Automatisierung: Du kannst ein Makro schreiben, das automatisch Barcodes für eine gesamte Spalte generiert.
- Experimentiere mit verschiedenen Barcode-Typen, wie EAN 128 oder Code 39, je nach Anforderungen Deines Projekts.
FAQ: Häufige Fragen
1. Kann ich Barcodes für verschiedene EAN-Formate erstellen?
Ja, das ist möglich. Du kannst die Funktion anpassen, um verschiedene Barcode-Formate wie EAN 128 zu unterstützen.
2. Wie kann ich sicherstellen, dass der Barcode lesbar ist?
Achte darauf, die richtige Schriftart zu verwenden und genug Abstand um den Barcode zu lassen, um Scanfouten zu vermeiden.
