Etikettendruck

[DieterB]

Hallo, hallo

heute kam mein Chef an mit einer Exceltabelle
14 Seiten mit daten, die auf Etiketten gedruckt werden sollen.

In Spalte A stehen die Adresse, pro Adresse 5 Zeilen.
Das Blatt hat Etiketten, 2 Spalten und 5 Zeilen.
Wie kriege ich die date aus Splate "A" (zwischen den einzelnen Adressen sind 2 Leerzeilen)
in ein vernünftiges Etikettenformat?

Ich habe fast den Verdacht, dass es "zu Fuss" schneller geht.
Also Blockweise in Word kopieren

[Jockel]

Hallo, hallo

heute kam mein Chef an mit einer Exceltabelle
14 Seiten mit daten, die auf Etiketten gedruckt werden sollen.

In Spalte A stehen die Adresse, pro Adresse 5 Zeilen.
Das Blatt hat Etiketten, 2 Spalten und 5 Zeilen.
Wie kriege ich die date aus Splate "A" (zwischen den einzelnen Adressen sind 2 Leerzeilen)
in ein vernünftiges Etikettenformat?

Ich habe fast den Verdacht, dass es "zu Fuss" schneller geht.
Also Blockweise in Word kopieren

Hallo, ich benutze dafür den Serienbrief, also nix mit blockweise in Word kopieren...!!!!

[DieterB]

war meine erste idee
aber wenn alle daten untereinander stehen, keine Idee wie das mit Serienbrief zu praktizieren ist

[Jockel]

Hallo, dann kann man die sicher "in Form" bringen, ich kenne deine Datei ja nicht... ... wenn alles untereinander steht und immer 5 Zeilen pro "Datensatz" ist das doch nicht schwer...

[Jockel]

Hallo, wie sehen denn die 5 Zeilen z.B. aus..? Zwei bis sieben "Beispieldatensätze" wären nicht schlecht

[Zwergel]

Hi,

zwischen den einzelnen Adressen sind 2 Leerzeilen

also sind pro Adresse 5 genutzte Zeilen und 2 Leerzeilen. Die Leerzeilen kann man ja im Serienbrief so behandeln, daß sie nicht erzeuigt werden im Etikett oder entfernt sie schon in Excel

[DieterB]

Vielen dank erstmal.

Jetzt habe ich aber ein Proble:
bisher kannte ich das mit der serienbrieffunktion so,
dass Excel die externe datenquelle für Word ist,
und jede Spalte quasi ein Datenfeld.

@Jockel: ich muss mir die tabelle besorge, aberstelle dir das so vor:
Name
Vorname
leerzeile
Strasse
Ort
 dann folgen zwei Leerzeilen

Name
Vorname
Ansprechpartner
Strasse
Ort
 dann folgen zwei Leerzeilen

Wir arbeiten im Büro mit Excel 2010 / 2013

[Rabe]

Hi Dieter,

Jetzt habe ich aber ein Proble:
bisher kannte ich das mit der serienbrieffunktion so,
dass Excel die externe datenquelle für Word ist,
und jede Spalte quasi ein Datenfeld.

mit diesem Makro kannst Du Deine Liste in eine Serienbrief-fähige Form bringen:

Option Explicit

Sub Adressen_umwandeln()
   Dim loLetzteA As Long
   Dim loLetzteC As Long
   Dim loZeile As Long
   Dim i As Long
   
   loLetzteA = Range("A" & Rows.Count).End(xlUp).Row
   loLetzteC = Range("C" & Rows.Count).End(xlUp).Row
   loZeile = loLetzteC + 1
   
   For i = 1 To loLetzteA Step 7
      Range("A" & i).Copy Cells(loZeile, 3)
      Range("A" & i + 1).Copy Cells(loZeile, 4)
      Range("A" & i + 2).Copy Cells(loZeile, 5)
      Range("A" & i + 3).Copy Cells(loZeile, 6)
      Range("A" & i + 4).Copy Cells(loZeile, 7)
      Range("A" & i + 5).Copy Cells(loZeile, 8)
      loZeile = loZeile + 1
   Next i
   
End Sub

[DieterB]

Danke Ralf

einwandfrei, frohes Rest-Fest