title image


Smiley Re: Zeilen in ein anderes Sheet verschieben mit VBA
Hallo Alexandra,

meinst du, das die Zeilennummer durch 3 teilbar ist? Dann so:





      

Sub Uebertragen()



    Dim wb1 As Workbook, wb2 As Workbook

    Dim Quelle As Worksheet, Ziel As Worksheet

    Dim I As Long, J As Long

    

    Set wb1 = Workbooks("QuellArbeitsmappe.xls")

    Set wb2 = Workbooks("ZielMappe.xls")

    Set Quelle = wb1.Worksheets("Quelle")

    Set Ziel = wb2.Worksheets("Ziel")



    For I = 1 To Quelle.Cells(Rows.Count, 1).End(xlUp).Row

        If I Mod 3 = 0 Then

           Quelle.Rows(I).Copy Destination:=Ziel.Range("A" & J)

           J = J + 1

        End If

    Next I

    

    Set wb1 = Nothing

    Set wb2 = Nothing

    Set Quelle = Nothing

    Set Ziel = Nothing

           

End Sub

 



Code eingefügt mit Syntaxhighlighter 3.0




Gruß Worti <img src="http://media2.giga.de/2015/06/snapchat-smiley-sonnenbrille.png">



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: