Seriendruck, einzelne Zeilen unterschiedlich oft drucken

[badboy-72]

Moin zusammen.

Ich habe eine Beispieldatei angehängt um mein Anliegen besser erklären zu können. 
Über den Seriendruck möchte ich gern die Zeile 2 5x drucken, die Zeile 3 8x drucken usw. Die Anzahl der zu druckenden, in diesem Fall Postkarten, steht in der Spalte F.
Gibt es eine Möglichkeit das irgendwie als Seriendruck zu realisieren?
Und wenn nicht, kann ich Excel dazu bringen die Zeile 2 mit der Anzahl aus der Spalte F2 (hier 5) mal nach unten zu kopieren und das für alle Zeilen, bzw. Datensätze?
Meine eigentlichen Dateien sind im Schnitt 250 Zeilen lang und es würden ca. 2000-2500 Zeilen ergeben für die ich Postkarten drucken möchte. Das alles mit Zeilen Einfügen (Strg+) dauert ewig. Da würde eine elegante Lösung sehr helfen.

[snb]

Code:

Sub M_snb()
  sn = Sheet1.Cells(1).CurrentRegion

  For j = 2 To UBound(sn)
    Cells(j, 1).Resize(, 5).PrintOut sn(j, 6)
  Next
End Sub

[badboy-72]

Hallo,

oh je, wo wird sowas eingetragen? So ein Crack bin ich leider nicht um das genau zu wissen.

[schauan]

Hallöchen,

oh je, wo wird sowas eingetragen?

schaue mal da:
vba-tutorial-editor/

Bei deutschem Excel musst Du statt Sheet1 dann Tabelle1 schreiben. Tabelle1 muss aber nicht der Blattname sein, sondern der "Objektname", den Du im VBA-Editor siehst.

[rate mit]

Hallo,

anbei ein Vorschlag mit Formeln...