ich habe eine Excel-Datei die ich gerne mit einem Seriendruck ausstatten würde :)
Folgende Fuktion möchte ich da gerne einfügen:
In das Tabellenblatt "Arbeitszeitblatt" sollen aus dem Tabellenblatt "Namensliste" Daten eingefügt werden, das ganze dann ausgedruckt und dann soll der nächste Datensatz kommen.
Im Tabellenblatt "Namensliste" habe ich die Datensätze nummeriert. Nach dem letzten Datensatz sollte er im Idealfall aufhören zu drucken :)
Beispiel ist folgendes:
Sheets("Arbeitszeitblatt").Select
Range("A9:B9").Select
ActiveCell.FormulaR1C1 = "=Namensliste!R[-6]C[2]"
Range("C9:D9").Select
ActiveCell.FormulaR1C1 = "=Namensliste!R[-6]C[-1]"
Range("A13:E13").Select
ActiveCell.FormulaR1C1 = "=Namensliste!R[-10]C[3]"
Range("A17:E17").Select
ActiveCell.FormulaR1C1 = "=Namensliste!R[-14]C[4]"
Range("A21:E21").Select
ActiveCell.FormulaR1C1 = "=Namensliste!R[-18]C[5]"
Range("A22").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Das ist in der Namensliste Datensatz Nr. 1 (gekennzeichnet mit "1" in der Spalte A)
Jetzt sollte er zum Datensatz 2 springen, nochmal das gleiche machen bis in der Spalte A die nächste Zelle leer ist.
Ich hoffe, dass Problem ist einigermaßen verständlich rübergekommen :)
Ich freue mich über jede Hilfe und schon jetzt vielen Dank im Voraus.
Viele Grüße
Florian