Etiketten mit VBA füllen

[legiminator]

Hallo, 
ich arbeite gerade an einer VBA Anwendungen. Diese erstellt eine Tabelle in der jedes Bauteil untereinander aufgelistet ist. 
Nun die Schwierigkeiten für mich: die Daten jeder Zeile sollen auf einzelne Etiketten eingefügt werden. Auf dem Bogen sind 2x6 Etiketten aufgebracht.
Wie ich einzelne Werte untereinander wo  anderst einfüge weiß ich. Nur was soll ich machen wenn ein Satz Werte untereinander und nebeneinander eingefügt werden soll. Anbei mal ein Bild.
Der Seriendruck mit Word kommt aus Gründen nicht in Frage.

Über eure Hilfe würde ich mich sehr freuen.

[Klaus-Dieter]

gelöscht.

[legiminator]

??? Habe ich ein Thema übersehen?

[Guschti]

Hallo

 Nur was soll ich machen wenn ein Satz Werte untereinander und nebeneinander eingefügt werden soll.
Ich versteh dich hiermit auch nicht, da dein schönes Bild mir auch nicht helfen kann.
Deine Datei wäre um einiges besser als das Bild.

Anmerkung:
Dazu ist Excel auch nicht das geeignete Programm.
Das hast du jetzt für deinen Drucker erstellt. Solltest du aber den Drucker wechseln, kommen erst die Probleme.

Gruss Guschti

[RPP63]

Moin!

Der Seriendruck mit Word kommt aus Gründen nicht in Frage.

Die der Herr aus genau welchen Gründen uns nicht nennen mag?

Man kann natürlich auch in Ansicht → Seitenlayout gehen und die einzelnen Breiten und Höhen in Zentimeter eingeben …
… aber erstens wird dies niemals so genau wie gewünscht (auch, wenn man 1,87 cm angibt) und zweitens kann (siehe Guschti) ein anderer Drucker die Frickelei wieder hinfällig machen.

Gruß Ralf

[legiminator]

Ok, ich versuche es mal so:

Jedes Bauteil soll ein Etikett bekommen. Pro Bauteil gibt es in der Übersicht eine Zeile in der alle nötigen Daten aufgelistet sind. Die Daten der einzelnen Bauteil sollen dann auf die Etiketten übertragen werden.
Für jeden Wert gibt es auf dem Etikett einen festen Platz. Jedes Bauteil bekommt nur ein Etikett.

Die Bögen auf denen die Etiketten aufgebracht sind haben ein DinA4 Format. Die Etiketten haben ein Format von 105x48mm. So ergibt sich eine Anordnung von zwei Spalten und 6 Zeilen auf dem Bogen.

Das übertragen der einzelnen Bauteile soll dann im Folgenden Schema ablaufen:

Bauteil 1     I   Bauteil 2
——————I—————-
Bauteil 3      I   Bauteil 4
—————-—I——————
Bauteil 5      I   Bauteil 6
——————I—————-
Bauteil 7      I   Bauteil 8
—————-—I——————


Bauteil 9     I   Bauteil 10
——————I—————-
Bauteil 11    I   Bauteil 12




Ich kann gerne eine Datei anhängen, ich denke das es aber vom Sinn her so einfache zu verstehen ist.

Ist natürlich immer schwierig wenn man im Thema ist, dann sieht man den Wald vor lauter Bäumen nicht mehr.

Gruß Flo

[Guschti]

Hallo

Eher nein!

Gruss Guschti

[ralf_b]

wie hast du dir denn gedacht wie der Programmablauf sein könnte oder müßte? 

im ersten moment dachte ich an ein Masteretikett auf einem separaten Blatt. dort hinterlegst du verweise in die Zellen mit einer Variablen die dann mit einer bestimmten Zeilennummer gefüllt wird.

somit stehen dann Werte im Etikett. Dann kannst du die gesamte Range kopieren und in dein Druckblatt an einer der 8 Positionen einfügen, aber nur die Werte und Formate. Ob die Formeln noch funktionieren muß man testen. 

das ganze in eine Schleife verpackt bis deine 8 etiketten drauf sind  usw....

[schauan]

Hallöchen,

die Krux einer Formellösung ist, eine "mathematische" Regel zu finden, anhand der Du Deine Daten per Formel anordnen kannst. Ich habe hier mal ein einfaches Beispiel dazu. Es geht jeweils um einen 4-zeiligen Bereich, daher die Rechnung mit Rest und 4. Ich habe das jetzt mal mit WENN als Bedingungung formeliert , könnte man eventuell auch direkt in der Zeilenangabe im INDEX berechnen ( INDEX(Bereich;Zeile;Spalte) ).
Die Daten aus A1:C3 werden damit entsprechend angeordnet, oberhalb und unterhalb hab ich immer je eine Zeile frei. Die Formel würdest Du in den zwei Zeilen eintragen und dann so weit wie nötig nach unten ziehen. Für Deine "2-spaltigen" Etiketten könnte man die Daten der ersten Zeile links, der zweiten Zeile recht, der dritten Zeile links usw. anordnen.

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B	C	D	E	F
1	A	B	C
2	D	E	F		A	C
3	G	H	I		B
4
5
6					D	F
7					E
8
9
10					G	I
11					H
12

Zelle	Formel
E2	=WENN(REST(ZEILE(A1);4)=1;INDEX($A$1:$C$3;(ZEILE()-2)/4+1;1);WENN(REST(ZEILE(A1);4)=2;INDEX($A$1:$C$3;(ZEILE()-2)/4+1;2);""))
F2	=WENN(REST(ZEILE(A1);4)=1;INDEX($A$1:$C$3;(ZEILE()-2)/4+1;3);"")

Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016

Diese Tabelle wurde mit Tab2Html (v2.6.2) erstellt. ©Gerd alias Bamberg

[legiminator]

Guten Abend, 
Ich habe nun die Variante gewählt indem ich eine Vorlage gestaltet habe, in der die Werte einer Zeile übertragen werden. War für mich nun die einfachste Möglichkeit. Auch wenn diese nicht die sauberste ist. Das Ziel habe ich erreicht.

Vielen Dank für eure Hilfe.