Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
208to212
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
208to212
208to212
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige