In der angefügten Excel würde ich gerne folgendes machen:
in dem Tabellenblatt "Markendruck" hätte in den gelben Zellen immer gerne den Namen des Tabellenblattes "Datenblatt".
d.h. wenn ich das Blatt drucken würde sollte eine Essenmarke für den genannten Mitarbeiter für den jeweiligen Tag ausgedruckt werden, sprich der Name Huber Herbert sollte bei jedem Datum dabei stehen und nur auf dem gleichen Blatt sein.
Könnte man hier einen Macro oder vl. auch eine andere Möglichkeit erstellen, wenn man auf "drucken" geht, dass hier alle Namen in der "Datenblatt" Liste auf das "Markendruck" Blatt umgefüllt werden und jeweils für einen Mitarbeiter 1 Zettel ausgedruckt wird?
Ich hoffe ich habe es nicht all zu kompliziert erklärt :)
13.06.2018, 12:00 (Dieser Beitrag wurde zuletzt bearbeitet: 13.06.2018, 12:01 von RPP63.)
And here it is:
Sub Seriendruck()
Dim Zelle As Range
With Worksheets("Datenblatt")
ForEach Zelle In .Range(.Range("D2"), .Range("D2").End(xlDown))
With Worksheets("Markendruck")
.Range("A3:J3,A6:J6,A9:J9,A12") = Zelle
.PrintOut
EndWithNextEndWithEndSub
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Alles klar! Danke schon mal dafür!
Was ich jedoch nicht ganz verstehe ist, warum er einen Teil mit den Namen ausdruckt und zum Schluss leere Zetteln druckt. Sprich auch mit Datum und Marke aber ohne Name.
Die Anzahl der Namen den ich einfügen werde ist nämlich nicht immer gleich, sprich einmal sind es alle Mitarbeiter, ein anderes mal nur die Hälfe.
13.06.2018, 12:34 (Dieser Beitrag wurde zuletzt bearbeitet: 13.06.2018, 12:35 von RPP63.)
Sind die Zellen der Spalte D tatsächlich leer oder hat sich da ein Leerzeichen oder eine Formel, die einen Leerstring ausgibt versteckt?
Bei Deiner hochgeladenen Datei funktioniert mein Makro einwandfrei und ist dynamisch!
(ich habe natürlich .PrintPreview statt .PrintOut genommen )
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)