Seriendruck nur mit Excel

Hallo zusammen,
ich bräuchte mal Hilfe bei einem vermutlich eher kleineren Makro.
Ich benötige ein Makro, das mir aus der Arbeitsmappe "Datenblatt" aus der Spalte "D" ab Zeile 11 immer 4 Datensätze in die Arbeitsmappe "Druck" in die Felder "D7";"D9";"D11";"D13" überträgt, dann die Arbeitsmappe "Druck" ausdruckt und sofort wieder mit mit den nächsten 4 Datensätzen (im Beispiel dann von D15 bis D18) zu übertragen beginnt und dann wieder ausdruckt usw. bis alle Datensätze aus der Mappe Datenblatt in Spalte "D" abgearbeitet sind. Die Anzahl der Datensätze in der Mappe "Datenblatt" ist immer unterschiedlich, so dass zuerst die Anzahl aller Datensätze in der Spalte wohl abgefragt werden muss. Vermutlich muss auch ein "Zwischenmakro" immer wieder zuerst die jeweils 4 übertragenen Datensätze löschen.
Ich habe schon so ähnliche Makros aus der Onlinesuche versucht zu ändern, aber es klappt nicht wirklich richtig.
Ich hoffe, das versteht jemand und kann mir helfen, wäre echt klasse
Grüße
Elmar

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub ttx() Dim i As Long, rng As Range, n As Integer For i = 11 To Sheets("Datensätze").Cells(Rows.Count, 4).End(xlUp).Row Step 4 Set rng = Sheets("Datensätze").Cells(i, 4).Resize(4) With Sheets("Druck") For n = 1 To 4 .Cells((n - 1) * 2 + 7, 4) = rng(n) Next .PrintOut End With Next End Sub

Hallo Hajo,
natürlich hast Du recht, ich habe Arbeitsmappe mit Arbeitsblättern verwechselt. Es handelt sich natürlich um die Arbeitsblätter "Datenblatt" und "Druck". Aber Rudi Maintaire hat trotz meines Fehlers glaube ich verstanden, was ich will. Nachdem ich den Namen des Sheets in seinem Vorschlag geändert habe, klappt das auch soweit gut.
Ich bin jetzt grade dran zu testen, ob ich auch 16 auf einmal ausdrucken lassen kann und nicht nur 4. (das hängt von unseren Scannern ab, die das dann schnell lesen müssen) Dann benötige ich nochmals Hilfe, das Makro auf 16 anzupassen, denn das Makro ist etwas komplex für mich zum nachzuvollziehen, sonst würde ich es ja selbst versuchen. Ich denke, Rudi würde mir da noch kurz helfen.
Danke und sorry für den Fehler
Elmar

Sub ttx() Dim i As Long, rng As Range, n As Integer Const iCount As Integer = 16 'Anzahl zu druckender Datensätze For i = 11 To Sheets("Datenblatt").Cells(Rows.Count, 4).End(xlUp).Row Step iCount Set rng = Sheets("Datenblatt").Cells(i, 4).Resize(iCount) With Sheets("Druck") For n = 1 To iCount .Cells((n - 1) * 2 + 7, 4) = rng(n) Next .PrintOut End With Next End Sub

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread