Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Etikettendruck

Forumthread: Etikettendruck

Etikettendruck
24.01.2003 21: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
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Etikettendruck
24.01.2003 21: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

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige