Hallo,



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