Etikettendruck

Forumthread: Etikettendruck
1 Beitrag zu diesem Forumthread
Anzeige

Forumthread: Etikettendruck

Etikettendruck

24.01.2003 22:10:18

Bernhard Neuppert

ich schreibe mit excel 97 stücklisten
und möchte etiketten drucken
das problem ist, ich möchte wenn ich z. bsp
in einer zeile 5 teile als stückzahl habe
auch 5 etiketten haben
und wenn in der nächsten zeile 1 als stückzahl steht
natürlich nur eine etikette
und das ganze sollte halbwegs automatisch ablaufen

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

Re: Etikettendruck

24.01.2003 22:51:24

peter

Re: Etikettendruck

24.01.2003 22:51:24

peter

Dieser Code ergibt jetzt nicht unbedingt einen Sinn, doch er erklärt zumindestens eine Art des Vorgehens:

Es werden alle Zellen der Spalte A in Tabelle1 von oben nach unten durchlaufen und je nach dem Wert der aktiven Zelle die Anzahl der Ausdrucke definiert.

Jetzt kann man natürlich auch an Stelle der Tabelle1 wo die Stückliste stehen könnte auch eine andere Tabelle für den Ausdruck verwenden und andere Zellinhalte der Tabelle1 in das vordefinierte Etikett kopieren...

Sub Autodruck()
For Each zelle In Sheets("Tabelle1").Range("a:a")
anzahl = zelle.Value
If anzahl > 0 Then Sheets("Tabelle1").PrintOut Copies:=anzahl
Next zelle
End Sub