versuch mal diesen VBA-Code.
In A1 = Anzahl der Kopien
in A2 = erste Zeile im neuen WB/Sheet
Markiere im Quellblatt die Zeilen, die im neuen WB vervielfältig werden sollen.
Dann das Macro aufrufen.
War's das was du suchst?
Sub zeilenKopieren()
thisbook = thisworkbook.Name
N = Range("A1").Value '<<<<< Anzahl der Kopien
M = Range("A2").Value '<<<<< erste Zeile im neuen WB/Sheet
nRow = Selection.Rows.Count '<<<<< Adr / Größe des Bereiches
aRow = Selection.Row
Sheets(1).Rows(aRow & ":" & aRow + nRow - 1).Copy
' --- neues Workbook -----------
Workbooks.Add
newBook = ActiveWorkbook.Name
Worksheets(1).Select
Cells(M, 1).Select '<<<<< erste Zeile anwählen
For I = 1 To N '<<<<< Schleife mit "offset"
Cells(M, 1).Select
ActiveSheet.Paste
M = M + nRow
Next I
End Sub
Code eingefügt mit Syntaxhighlighter 4.0
Neandr//gW Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.11) Gecko/20071127 Firefox/2.0.0.11 - Build ID: 2007112718; TB version 2.0.0.9 (20071031) jre6.0.04; MS Office 10
Intel Pro/W LAN 2100 3B Mini PCI with WAP; 1&1 DSL mit Fritz!Box 7050/7150
geschrieben von
neandr
,
14.04.2006, 22:49 Uhr
, 55 mal gelesen