Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1492to1496
1492to1496
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Etikettendruck mit Excel

Forumthread: Etikettendruck mit Excel

Etikettendruck mit Excel
24.05.2016 20:21:27
Roland
Hallo beisammen!
Ich stehe momentan voll auf der Leitung.....
Ich habe eine Stückliste als Excel Tabelle.
In Tabelle 1 ist die Stückliste, und in Tabelle 2 eine Vorlage für Etiketten, und jetzt will ich auf Knopfdruck Etiketten ausdrucken, und zwar mit der Teilnummer und Stückzahl, und dann soll jede Teilnummer auch so oft gedruckt werden wie in der Spalte Stückzahl angegeben.
Weiß aber absolut nicht weiter wie ich das mit Formeln oder Makros machen könnte...
Wäre über jede Hilfe sehr dankbar!
mfg
Roland
https://www.herber.de/bbs/user/105774.zip

Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Etikettendruck mit Excel
25.05.2016 09:06:39
Roland
Hallo Dieter!
Danke für deine Antwort, aber da ist noch das Problem, wenn ich dann 50 teilnummern habe, dann muss ich jede einzeln auswählen und drucken....

Anzeige
AW: Etikettendruck mit Excel
25.05.2016 08:29:34
UweD
Hallo
wenn du alle Aufkleber automatisch drucken möchtest dann so...
Ich hab das Makro von DD mal erweitert

Sub drucken()
Dim wksTab1 As Worksheet, wksTab2 As Worksheet
Dim intAnzahl As Integer, intZeilen As Integer
Set wksTab1 = Worksheets("Tabelle1")
Set wksTab2 = Worksheets("Tabelle2")
For intZeilen = 3 To wksTab1.Cells(Rows.Count, 1).End(xlUp).Row
wksTab2.Range("A4") = wksTab1.Cells(intZeilen, 1)
intAnzahl = wksTab2.Range("B4")
wksTab2.PrintOut Copies:=intAnzahl, Preview:=0, Collate:=1, IgnorePrintAreas:=0
Next
End Sub

Gruß UweD

Anzeige
AW: Etikettendruck mit Excel
25.05.2016 08:46:02
UweD
Hi
so kannst du dir die Sverweis-Formel in B4 auch noch sparen

For intZeilen = 3 To wksTab1.Cells(Rows.Count, 1).End(xlUp).Row
wksTab2.Range("A4") = wksTab1.Cells(intZeilen, 1)
wksTab2.Range("B4") = wksTab1.Cells(intZeilen, 2)
intAnzahl = wksTab2.Range("B4")
wksTab2.PrintOut Copies:=intAnzahl, Preview:=0, Collate:=1, IgnorePrintAreas:=0
Next
Gruß UweD

Anzeige
AW: Etikettendruck mit Excel
25.05.2016 09:13:17
Roland
Hallo Uwe, genau das habe ich gesucht, nur wenn ich die Stückliste nach unten erweitere(und die kann beliebig lang werden), dann stimmt das Druckergebnis nicht mehr...

AW: Etikettendruck mit Excel
25.05.2016 09:34:45
UweD
Hallo nochmal
was stimmt denn dann nicht mehr?
durch wksTab1.Cells(Rows.Count, 1).End(xlUp).Row wird immer die letzte Zeile in Spalte A =1) gesucht und bis dahin abgearbeitet.
Gruß UweD

Anzeige
AW: Etikettendruck mit Excel
25.05.2016 10:03:09
Roland
Fehler gefunden!
Hab die Datenüberprüfung nicht entfernt gehabt!
Super funktioniert, danke!
Jetzt wäre noch toll, wenn es mit leeren Zeilen dazwischen auch noch funktionieren würde, kommt manchmal vor, um die Stückliste optisch zu trennen...
Aber wenn nicht auch egal! Danke auf jeden Fall!

Anzeige
AW: Etikettendruck mit Excel
25.05.2016 10:25:36
UweD
Hi.
dann vorher noch auf "LEER" prüfen.

For intZeilen = 3 To wksTab1.Cells(Rows.Count, 1).End(xlUp).Row
If wksTab1.Cells(intZeilen, 1)  "" Then
wksTab2.Range("A4") = wksTab1.Cells(intZeilen, 1)
wksTab2.Range("B4") = wksTab1.Cells(intZeilen, 2)
intAnzahl = wksTab2.Range("B4")
wksTab2.PrintOut Copies:=intAnzahl, Preview:=1, Collate:=1, IgnorePrintAreas:=0
End If
Next
End Sub

Gruß UweD

Anzeige
AW: Etikettendruck mit Excel
25.05.2016 11:34:31
Roland
Ja, danke perfekt!
als Zusammenfassung hier mein ganzer code...

Sub EtikettDrucken()
Dim wksTab1 As Worksheet, wksTab2 As Worksheet
Dim intAnzahl As Integer, intZeilen As Integer
Dim DruckerAktiv As String
Set wksTab1 = Worksheets("Laser")
Set wksTab2 = Worksheets("EtiketteTeil")
DruckerAktiv = Application.ActivePrinter     ' aktuellen Drucker merken
For intZeilen = 8 To wksTab1.Cells(Rows.Count, 3).End(xlUp).Row
If wksTab1.Cells(intZeilen, 4)  "" Then
wksTab2.Range("A7") = wksTab1.Cells(intZeilen, 3)
wksTab2.Range("E7") = wksTab1.Cells(intZeilen, 4)
intAnzahl = wksTab2.Range("E7")
wksTab2.PrintOut Copies:=intAnzahl, Preview:=0, ActivePrinter:="\\server-print\ _
ETIKETT-EG", Collate:=1, IgnorePrintAreas:=0
End If
Next
Application.ActivePrinter = DruckerAktiv     ' Drucker zurücksetzen
End Sub

Anzeige
;
Anzeige

Infobox / Tutorial

Etikettendruck mit Excel

Schritt-für-Schritt-Anleitung

Um Etiketten aus Excel zu drucken, folge diesen Schritten:

  1. Erstelle eine Excel-Tabelle mit deiner Stückliste. Die erste Spalte sollte die Teilnummer und die zweite die Stückzahl enthalten.

  2. Erstelle eine Etikettenvorlage in einer zweiten Tabelle (Tabelle2), in der du die Etikettenformatierung festlegst.

  3. Öffne den VBA-Editor mit ALT + F11 und füge ein neues Modul hinzu.

  4. Kopiere den folgenden Code in das Modul, um das Etikettendruck-Makro zu erstellen:

    Sub EtikettDrucken()
    Dim wksTab1 As Worksheet, wksTab2 As Worksheet
    Dim intAnzahl As Integer, intZeilen As Integer
    Dim DruckerAktiv As String
    Set wksTab1 = Worksheets("Tabelle1")
    Set wksTab2 = Worksheets("Tabelle2")
    DruckerAktiv = Application.ActivePrinter     ' aktuellen Drucker merken

    For intZeilen = 3 To wksTab1.Cells(Rows.Count, 1).End(xlUp).Row
        If wksTab1.Cells(intZeilen, 1) <> "" Then
            wksTab2.Range("A4") = wksTab1.Cells(intZeilen, 1)
            wksTab2.Range("B4") = wksTab1.Cells(intZeilen, 2)
            intAnzahl = wksTab2.Range("B4")
            wksTab2.PrintOut Copies:=intAnzahl, Preview:=0, Collate:=1, IgnorePrintAreas:=0
        End If
    Next
    Application.ActivePrinter = DruckerAktiv     ' Drucker zurücksetzen
End Sub

  5. Führe das Makro aus, um die Etiketten zu drucken. Achte darauf, dass dein Drucker korrekt eingerichtet ist.

Häufige Fehler und Lösungen

  • Datenüberprüfung nicht entfernt: Wenn du beim Drucken nicht alle Daten berücksichtigst, überprüfe, ob du die Datenüberprüfung entfernt hast.

  • Leere Zeilen: Um leere Zeilen zu ignorieren, füge eine Bedingung in die Schleife ein, wie im obigen Code gezeigt.

Alternative Methoden

Wenn du adressetiketten aus Excel drucken möchtest, kannst du auch Word verwenden:

  1. Exportiere die Excel-Daten als CSV-Datei.
  2. Öffne Word und gehe zu „Seriendruck“.
  3. Wähle „Etiketten“ und füge die CSV-Daten hinzu.
  4. Konfiguriere das Layout und drucke die Etiketten.

Praktische Beispiele

Hier ist ein einfaches Beispiel, wie du eine Excel-Tabelle für den Etikettendruck aufbauen kannst:

Teilnummer Stückzahl
12345 10
67890 5

Die Etikettenvorlage könnte so aussehen:

A B
Teilnummer Stückzahl
12345 10

Tipps für Profis

  • Verwende Excel-Vorlagen für Etiketten, die bereits die richtigen Maße haben, damit du Zeit sparst.
  • Überlege dir, Makros zu automatisieren, um regelmäßig Etiketten zu drucken.
  • Verwende die SVERWEIS-Funktion, um Daten dynamisch in die Etiketten einzufügen, falls erforderlich.

FAQ: Häufige Fragen

1. Wie kann ich sicherstellen, dass alle Teilnummern korrekt gedruckt werden?
Stelle sicher, dass deine Excel-Tabelle keine leeren Zeilen enthält und dass die Druckeroptionen korrekt eingestellt sind.

2. Kann ich Etiketten in verschiedenen Formaten drucken?
Ja, du kannst verschiedene Etikettenformate in Excel erstellen, indem du die Zellen und das Layout anpasst. Stelle sicher, dass du eine Excel Etiketten Vorlage verwendest, die zu deinem Drucker passt.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige