Office: (Office 2007) Barcode in Excel erstellen

Helfe beim Thema Barcode in Excel erstellen in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo zusammen! Ich muß eine Inventurliste erstellen, in der die Inventarnummer auch als Barcode erscheinen soll. Die Entsprechenden Schriftarten für... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Metschu, 17. Mai 2007.

  1. Barcode in Excel erstellen


    Hallo zusammen!

    Ich muß eine Inventurliste erstellen, in der die Inventarnummer auch als Barcode erscheinen soll.

    Die Entsprechenden Schriftarten für diesen Barcode (Code 128, Code 39, etc) habe ich schon.
    Problem ist nur, das der Barcode aus einem Startzeichen, Text, Prüfziffer und Stoppzeichen besteht.

    Start und Stoppzeichen kann ich ja noch hinzufügen, nur mit der Prüfziffer wird es schwierig.

    Kann mir einer einen Tip geben, wie ich das hinbekommen kann?

    Danke.

    Torsten

    :)
     
    Metschu, 17. Mai 2007
    #1
  2. OfficeUser Neuer User
    Hallor Torsten,

    die Prüfziffer für EAN berechnet sich doch so, dass immer die Zahlen mit 1 und 3 abwechselnd multipliziert und zum schluss Summiert werden. Wo liegt hier bei dir das genaue Problem? Die PZ ist dann die Differenz der Summe zum nächsten Vielfachen von 10 ggü. der PZ

    Habe dir mal ein kleines Beispiel gebastelt. EAN-Nummer:1568451891126 Hier wäre die Prüfziffer 1


    Tabelle1

     BCDEFGHIJKLMNOPQ
    1EAN-Code   
    2(1)(2)(3)(4)(5)(6)(7)(8)(9)(10)(11)(12)(13)   
    31568451891126 Prüfziffer
    41156244151249316 1091101
    5                
    ZelleFormel
    B4=B3*1
    C4=C3*3
    D4=D3*1
    E4=E3*3
    F4=F3*1
    G4=G3*3
    H4=H3*1
    I4=I3*3
    J4=J3*1
    K4=K3*3
    L4=L3*1
    M4=M3*3
    O4=SUMME(B4:M4)
    P4=AUFRUNDEN(O4;-1)
    Q4=P4-O4

    Ansonsten gibt einfach mal ein Beispiel, wie eure Nummern aufgebaut sind.
     
    Zuletzt von einem Moderator bearbeitet: 12. Januar 2021
    OfficeUser, 19. Mai 2007
    #2
  3. Hallo Sebastian!

    Danke für Deine Antwort.
    Das Problem ist, das ich Code 128 brauche. Hier ist die Berechnung der Prüfziffer wie folgt:

    Es gibt eine Tabelle, die die Referenzahl zu dem jeweiligen Zeichen zurdnet.

    In einem Borland-Delphi Programm habe ich das schon hinbekommen. Habe leider keinen Plan, wie ich das in Excel umsetzen kann, das es Automatisch in der Spalte nach der Inventarnummer erscheint.


    Gruß

    Torsten
     
    Metschu, 19. Mai 2007
    #3
  4. Barcode in Excel erstellen

    Hallo,

    da sind wir doch schon mal einen Schritt weiter, wenn wir wissen nach welchem Code du vorgehen musst. Ich werde es mir mir morgen mal anschauen. Komm heute nicht mehr dazu.
    Schönen Abend.

    Grüße
     
    Sebastian Schulz, 19. Mai 2007
    #4
  5. Guten Abend,

    ich habe mich nochmal deinem Problem gewidmet. Vll. kannst du ja meine Tabelle als Ansatzpunkt nehmen.
    (Barcode 128B)
    Grüße
     
    Sebastian Schulz, 22. Mai 2007
    #5
  6. Mein Held !

    *winner der ist für dich *Smilie

    Vielen Dank für die Hilfe, klappt Super.

    Gruß

    Torsten
     
    Metschu, 22. Mai 2007
    #6
  7. Hi,

    ich habe folgendes Problem und bin leider nicht so der excel crack....

    ich muss eine liste aus 13 stelligen barcodes erstellen, wobei die 13te stelle die prüfziffer ist.

    Ich benötige ca 8000 verschiedene barcodes die alle mit 20 anfangen...
    Ich habe schon diverse Modifikationen der oben geposteten excel sheets ausprobiert, leider aber ohne erfolg.

    Bin für jede Hilfe sehr Dankbar.

    mfg

    david
     
  8. Barcode in Excel erstellen

    An excel barcode add-on can be used to draw and create barcode on microsoft office excel document, specifying any excel workspread to add the required barcode.
     
    Tritglorlee, 30. Juni 2014
    #8
  9. Ich hab vor einiger Zeit auch so ein Problem gehabt.
    Nach kurzer Suche bin ich auf deiner französischen Seite fündig geworden:
    Den Code habe ich mir in ein Add-In eingebunden:



    PHP:
             Public Function code128$(Text$)
    'This function is governed by the GNU Lesser General Public License (GNU LGPL)'
    'V 2.0.0'
    'Parameters : a string'
    'Return : * a string which give the bar code when it is dispayed with CODE128.TTF font'
    '         * an empty string if the supplied parameter is no good'
    Dim i%, checksum&, mini%, dummy%, tableB As Boolean
    If Len(Text$) > 0 Then
    'Check for valid characters'
    For i% = 1 To Len(Text$)
    Select Case Asc(Mid$(Text$, i%, 1))
    Case 
    32 To 203 '126,'
    Case Else
    i% = 0
    Exit For
    End Select
    Next
    'Calculation of the code string with optimized use of tables B and C'
    code128$ = ""
    tableB True
    If i% > 0 Then
    i
    % = 'i% become the string index'
    Do While i% <= Len(Text$)
    If 
    tableB Then
    'See if interesting to switch to table C'
    'yes for 4 digits at start or end, else if 6 digits'
    mini% = IIf(i% = Or i% + Len(Text$), 46)
    GoSub testnum
    If mini% < 0 Then 'Choice of table C'
    If i% = 1 Then 'Starting with table C'
    code128$ = Chr$(210)
    Else 
    'Switch to table C'
    code128$ = code128$ & Chr$(204)
    End If
    tableB False
    Else
    If 
    i% = 1 Then code128$ = Chr$(209'Starting with table B'
    End If
    End If
    If 
    Not tableB Then
    'We are on table C, try to process 2 digits'
    mini% = 2
    GoSub testnum
    If mini% < 0 Then 'OK for 2 digits, process it'
    dummy% = Val(Mid$(Text$, i%, 2))
    dummy% = IIf(dummy% < 95dummy% + 32dummy% + 105)
    code128$ = code128$ & Chr$(dummy%)
    i% = i% + 2
    Else 'We havent 2 digits, switch to table B'
    code128$ = code128$ & Chr$(205)
    tableB True
    End 
    If
    End If
    If 
    tableB Then
    'Process 1 digit with table B'
    code128$ = code128$ & Mid$(Text$, i%, 1)
    i% = i% + 1
    End 
    If
    Loop
    'Calculation of the checksum'
    For i% = 1 To Len(code128$)
    dummy% = Asc(Mid$(code128$, i%, 1))
    dummy% = IIf(dummy% < 127dummy% - 32dummy% - 105)
    If 
    i% = 1 Then checksum& = dummy%
    checksum& = (checksum& + (i% - 1) * dummy%) Mod 103
    Next
    'Calculation of the checksum ASCII code'
    checksum& = IIf(checksum& < 95checksum& + 32checksum& + 105)
    'Add the checksum and the STOP'
    code128$ = code128$ & Chr$(checksum&) & Chr$(211)
    End If
    End If
    Exit Function
    testnum:
    if 
    the minicharacters from iare numericthen mini%=0
    mini
    % = mini% - 1
    If i% + mini% <= Len(Text$) Then
    Do While mini% >= 0
    If Asc(Mid$(Text$, i% + mini%, 1)) < 48 Or Asc(Mid$(Text$, i% + mini%, 1)) > 57 Then Exit Do
    mini% = mini% - 1
    Loop
    End 
    If
    Return
    End Function
     
    Zai-Ba, 1. Juli 2014
    #9
  10. longwest, 4. März 2015
    #10
  11. Hallo,
    habe das gleiche Problem, mir fehlt aber noch der Teil von der Excel-Tabelle bis zum fertigen Code, den ich in der Barcode-Schrift darstellen lasse und dann hoffentlich einscannen kann...

    Habe ich da Chancen auf Hilfe?*wink.gif* *Smilie

    Vielen Dank
    Godi


     
    Zuletzt von einem Moderator bearbeitet: 12. Januar 2021
    ***Godi***, 5. Februar 2018
    #11
  12. Hallo,
    ich sitze an einem ähnlichen Problem. Ein grosser Teil der Prüfziffern lassen sich ja dann mit der Schriftart Code128.ttf darstellen, aber was mache ich mit den Prüfziffern 95 - 102 sowie 7?
    Selbst wenn ich - falls die Prüfziffer so hoch ist - in die Darstellung im Zeichensatz C wechseln würde und anschliessend wieder zurück, könnte ich nach wie vor die Prüfziffern 100 - 102 nicht darstellen.
    Hat da schon jemand eine Lösung drauf gefunden?

    Vielen Dank und Gruss
    Janine
     
    Excel-userin, 22. März 2018
    #12
  13. Barcode in Excel erstellen

    Ich sehe jetzt nicht genau, was Du brauchst.
    Ich hab mal ein Makro (VBA OS-Basic) geschrieben, das Excelzellen als Barcode einfärbt - braucht 95 Spalten für einen EAN13-Code (Arrayfunktion).
    Codiert EAN13 und EAN128 (Transportetikett)
    EAN13.xls [Kompatibilitätsmodus] - Excel_2018-03-22_19-59-06.jpg
     
    Hans Hofmann, 22. März 2018
    #13
  14. Hallo,
    mein Barcode ist ein spezieller, in dem drei Variable Texte unterschiedlicher Länge eingefügt werden ("Text1" "Text2" "Text3")
    Wie ich mit der Schriftart Barcode128.ttf den Start- und Stoppcode hinbekomme ist klar. Die Textbarcodezeichen sind auch klar. Wie ich die Prüfziffer berechne ist auch klar.
    Allerdings gibt es Prüfziffern, die sich in Excel nicht direkt als Barcodezeichen ausdrücken lassen (Beispiel hier sind die Prüfziffern 95 - 102). Laut Zeichensatz B (Code B) würden bei diesen Prüfziffern die Tasten in einen Barcode umgewandelt werden müssen.
    Das funktioniert aber im normalen Excel nicht. Vielleicht muss ich da wirklich irgendein Makro laufen lassen, dass aus diesen in Excel nicht darstellbaren Tasten direkt aus der Prüfziffer einen Barcode macht.
    Beste Grüsse
    Janine
     
    Excel-userin, 22. März 2018
    #14
Thema:

Barcode in Excel erstellen

Die Seite wird geladen...
  1. Barcode in Excel erstellen - Similar Threads - Barcode Excel erstellen

  2. Barcode Scanliste Makro anpassen

    in Microsoft Excel Hilfe
    Barcode Scanliste Makro anpassen: Hallo zusammen! Einer der Mitglieder hier hat mir eine Funktionsliste erstellt, mit der man Barcodes scannt und danach einen Wert über die Bildschirmtastatur eingibt. Die Barcodes hatten bisher...
  3. Spalteninhalt kopieren und in Barcode umwandeln

    in Microsoft Excel Hilfe
    Spalteninhalt kopieren und in Barcode umwandeln: Hallo in die Excel-Runde! Ich habe folgendes Problem: Alle Zelleninhalte von Spalte A sollen ab Zeile 6 in die jeweilige Nachbarzelle in Spalte B kopiert werden. Dabei soll die originale...
  4. Excel Barcode im Tabelle finden

    in Microsoft Excel Hilfe
    Excel Barcode im Tabelle finden: Hallo liebes Forum, ich bräuchte Eure Hilfe für eine Tabelle die ich gerne benutzen würde damit ich auf einem Lieferschein automatisch die Artikel die einzeln in einer Zeile stehen, abhaken oder...
  5. Barcode scannen, vergleichen und Blatt 2 einfügen

    in Microsoft Excel Hilfe
    Barcode scannen, vergleichen und Blatt 2 einfügen: Hallo ich bin auf der Suche für ein Makro. Bin jedoch bzgl. Makro ein Anfänger. Ich habe zwei Arbeitsblätter. Im Blatt "Akkreditierung" sind allen Namen ein Barcode zugeordnet. In Blatt "Tag00"...
  6. Einfügen von Barcodes in ein Office-Dokument

    in Microsoft Excel Tutorials
    Einfügen von Barcodes in ein Office-Dokument: Einfügen von Barcodes in ein Office-Dokument Excel 2010 Word 2010 PowerPoint 2010 Excel 2007 Word 2007 PowerPoint 2007 Mehr... Weniger...
  7. Barcode mit Steuerzeichen in ein Formularfeld einlesen

    in Microsoft Access Hilfe
    Barcode mit Steuerzeichen in ein Formularfeld einlesen: Hallo, ich habe ein Problem mit dem einscannen in ein Textfeld. Ich habe einen QR-Code, der verschiedene Angaben enthält, die alle mit einem CR getrennt werden. In Word schreibt er jede Angabe in...
  8. Kombination von Feldfunktion (DISPLAYBARCODE) und Seriendruckfeldern

    in Microsoft Word Hilfe
    Kombination von Feldfunktion (DISPLAYBARCODE) und Seriendruckfeldern: Hallo zusammen, ich habe folgende Situation: Programm XYZ liefert über eine temporäre Datei Seriendruckfelder, die anschließend in Word verwendet werden können. Dies funktioniert im Fließtext...

Users found this page by searching for:

  1. strichcode in excel erstellen

  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden