Etiketten sind in vielerlei Hinsicht nützlich. Sie können Etiketten in Excel mit Hilfe von Microsoft Word erstellen. In manchen Fällen kann dies jedoch sehr mühsam und zeitaufwändig sein. Daher möchten Sie vielleicht Etiketten in Excel ohne Word erstellen. In diesem Artikel wird Schritt für Schritt gezeigt, wie Sie Etiketten in Excel ohne Word erstellen können.

Download Arbeitsbuch Praxis

Sie können das Übungsheft über den unten stehenden Link herunterladen.

Was sind Etiketten?

Im Allgemeinen ist ein Etikett ein Aufkleber oder ein Stück Papier, das den Gegenstand oder das Produkt beschreibt, an dem es angebracht ist. Etiketten werden in einer Vielzahl von Anwendungen eingesetzt. So müssen beispielsweise Etiketten für Adressen erstellt werden, damit sie auf einem Umschlag angebracht werden können. Außerdem können wir Etiketten an der Hardware in unseren Computern sehen, damit wir sie identifizieren können und über ihre Spezifikationen Bescheid wissen.

4 Schritte zum Erstellen von Etiketten ohne Word in Excel mit VBA

Es ist sehr bequem, Etiketten in Excel zu erstellen, ohne die Hilfe von Microsoft Word Außerdem spart es eine Menge Zeit und Ärger.

Nehmen wir nun an, Sie haben einen Datensatz mit einer Liste von Adressen Sie möchten Ihre Weihnachtskarten verschicken und Etiketten für diese Karten erstellen. Adressen in Excel zu erstellen, ohne Word zu verwenden, können Sie die folgenden Schritte ausführen.

Schritt 01 Daten in ein neues Blatt in Excel kopieren

• Kopieren Sie zunächst die Adressen in der Spalte und fügen Sie sie in ein Neues Blatt ausgehend von der Zelle A1 .

Schritt 02 VBA: VBA-Fenster öffnen und ein Modul in Excel erstellen

• Drücken Sie dann ALT + F11 zum Öffnen des VBA Fenster.
• Wählen Sie nun das Blatt, an dem Sie gerade arbeiten, und Rechtsklick In diesem Fall ist es Blatt 2 .
• Wählen Sie dann nacheinander einfügen. > Modul .

Letztendlich werden diese Schritte die VBA Fenster und fügen Sie ein neues Modul in Ihrem Blatt.

Schritt 03 Einfügen des Codes in Excel

• Kopieren Sie an dieser Stelle den folgenden Code und fügen Sie ihn in das leere Feld ein.

 Dieser Code erstellt Etiketten in Excel Sub Createlabels() Application.Run "AskForColumn" Cells.Select Selection.RowHeight = 75.75 Selection.ColumnWidth = 34.14 With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Selection.HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With End Sub AskForColumn() Dim refrg As Range Dim vrb As Long Dim dat As Long Set refrg = Cells(Rows.Count, 1).End(xlUp) dat = 1 On Error Resume Next incolno = InputBox("Enter Number ofColumns Desired") For vrb = 1 To refrg.Row Step incolno Cells(dat, "A").Resize(1, incolno).Value = _ Application.Transpose(Cells(vrb, "A").Resize(incolno, 1)) dat = dat + 1 Next Range(Cells(dat, "A"), Cells(refrg.Row, "A")).ClearContents End Sub 

💡 Code-Erläuterung:

An dieser Stelle erkläre ich den oben verwendeten Code. Wie Sie sehen können, besteht dieser Code aus zwei Teilen. Der eine Teil enthält die Sub AskForColumn () die als Teil 01 und die andere enthält die Sub Etiketten erstellen() die als Teil 02 Ich werde nun diese beiden Teile einzeln erklären.

Teil 01 :

An dieser Stelle habe ich den Code in verschiedene Abschnitte unterteilt und die einzelnen Abschnitte im folgenden Screenshot nummeriert, so dass ich hier jeden Abschnitt entsprechend seiner Nummer erläutern werde.

• Abschnitt 1: Dieser Abschnitt erstellt eine Unterseite namens AskForColumn .
• Abschnitt 2: Hier deklarieren wir verschiedene Variablen.
• Abschnitt 3: In diesem Abschnitt wird die Anzahl der Zeilen in der Spalte gezählt.
• Abschnitt 4: Hier erstellen wir nun eine Eingabefeld um nach der Anzahl der Spalten zu fragen.
• Abschnitt 5: In diesem Abschnitt führen wir eine Für Außerdem verwenden wir die Schleife Schritt Schlüsselwort, um die Schleife so oft laufen zu lassen, wie wir in der Eingabefeld .
• Abschnitt 6 In diesem Stadium verwenden wir diesen Abschnitt, um die Zellen der Spalte in verschiedene Zeilen und Spalten zu verteilen, indem wir die Anwendung Transponieren und Eigentum Größe ändern .
• Abschnitt 7: Schließlich löschen wir die zusätzlichen Inhalte in diesem Abschnitt.

Teil 02 :

Auch in diesem Fall habe ich den Code in verschiedene Abschnitte unterteilt und die einzelnen Abschnitte im folgenden Screenshot nummeriert, so dass ich hier jeden Abschnitt entsprechend seiner Nummer erläutern werde.

• Abschnitt 1: Dieser Abschnitt erstellt eine Unterseite namens Etiketten erstellen() .
• Abschnitt 2: In diesem Abschnitt nennen wir die Sonne AskForColumn() zu laufen.
• Abschnitt 3: An dieser Stelle definiert dieser Abschnitt die Zellenformat für alle Zellen unter Verwendung der Zellen Eigentum.

Schritt 04 Code zum Erstellen von Etiketten ohne Word in Excel ausführen

• Drücken Sie nun F5 um die Unterseite auszuführen Createlabels () .
• Daraufhin erscheint auf Ihrem Bildschirm ein Feld wie auf dem folgenden Screenshot.
• Fügen Sie an dieser Stelle die Anzahl der Spalten ein, in denen Sie Ihre Beschriftungen haben möchten.
• Klicken Sie dann auf OK .

• Schließlich haben Sie Ihre Etiketten wie in der folgenden Abbildung erstellt.

💡 Anmerkungen :

• Diese Methode funktioniert nur, wenn Sie Ihre Daten in einer einzigen Spalte haben.
• Nachdem Sie die Etiketten erstellt haben, können Sie mit der Funktion Alle Grenzen Optionen im Startseite tab.
• Stellen Sie außerdem sicher, dass Sie die Sub Etiketten erstellen() In diesem Fall, wenn Sie die Sub, AskForColumn () werden Sie nicht das gewünschte Ergebnis erzielen.
• Geben Sie außerdem nichts anderes als die Adressen in der Spalte A .

Lesen Sie mehr: Erstellen von Etiketten in Word aus einer Excel-Liste (Schritt-für-Schritt-Anleitung)

Wie man Etiketten in Excel ohne Word druckt

Nachdem Sie die Etiketten mit den oben genannten Schritten erstellt haben, können Sie nun die Etiketten drucken Wenn Sie dies tun möchten, können Sie die folgenden Schritte ausführen.

Schritte :

• Gehen Sie zunächst zur Layout der Seite im oberen Bereich der Seite.
• Klicken Sie dann auf die Schaltfläche Seite einrichten Taste.

• Danach gehen Sie zu Margen .
• Bearbeiten Sie nun die Top und Unten Margen bis 0.5 und bearbeiten Sie dann die Links und Rechts Margen bis 0.215 .
• Klicken Sie daher auf OK .

• Drücken Sie nun STRG + P zum Öffnen des Drucken Menü.
• Klicken Sie an dieser Stelle auf Keine Skalierung und es werden 4 Optionen angezeigt.
• Wählen Sie dann aus diesen Optionen Alle Spalten auf einer Seite unterbringen .

• Nun sind Sie bereit zum Drucken.
• In diesem Fall sieht die Druckvorschau so aus wie auf dem folgenden Screenshot.

Lesen Sie mehr: Wie man Etiketten aus Excel in Word mail merge (mit einfachen Schritten)

Schlussfolgerung

Zu guter Letzt hoffe ich, dass Sie in diesem Artikel gefunden haben, wonach Sie gesucht haben. Wenn Sie Fragen haben, können Sie unten einen Kommentar hinterlassen. Wenn Sie weitere Artikel wie diesen lesen möchten, können Sie unsere Website besuchen ExcelWIKI .