Seriendruck aus Excel
Elmar
ich suche jemanden, der das Makro unten (ursprünglich erstellt von Rudi Maintaire) so anpasst, dass nicht nur die Daten aus Spalte "D" sondern auch exakt gleich viel Daten aus der Spalte "F" in das andere Sheet "Druck" übertragen werden. In dem Sheet"Druck" dann gleich eingefügt werden mit den gleichen Parametern, aber eben dann in Spalte "AB".
Meine bisherigen Änderungsversuche sind alle gescheitert....
Vielleicht kann jemand helfen... (Nochmal zum Verständnis: Es sollen jetzt einfach nicht nur die Daten einer Spalte aus dem Sheet "Datenblatt" in das Sheet "Druck", sondern eben nun aus zwei Spalten und dann Druck wie bisher.
Dim i As Long, rng As Range, n As Integer
Const iCount As Integer = 16 'Anzahl zu druckender Datensätze
For i = 9 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