Excel-Makro Zum Ausschneiden Von Zeilen Und Einfügen In Ein Anderes Arbeitsblatt

Ich versuche ein makro zum Ausschneiden und einfügen, bestimmte Zeilen aus sheet ASR, Blatt-LS, wenn Spalte I gleich LS.

Sub MoveLS()
    Dim i As Variant
    Dim endrow As Integer

    endrow = Sheets("ASR").Range("A" & Rows.Count).End(xlUp).Row
    For i = 2 To endrow
    If Cells(i, "I").Value = "LS" Then
       Cells(i, "I").EntireRow.Cut Destination:=Sheets("LS").Range("A" & Rows.Count).End(xlUp).Offset(1)
            End If
    Next

End Sub

Wurde ich starrte auf verschiedene Variationen von diesem code ein-und ausschalten für die letzten 8 Stunden und kann nicht herausfinden, was nicht funktioniert. Irgendwelche Tipps sind willkommen!

InformationsquelleAutor srrojas | 2014-06-16
  1. 1

    Es ist, weil Sie nicht deklariert sind Ihre Blätter. Versuchen Sie den folgenden code:

    Sub MoveLS()
    Dim i As Variant
    Dim endrow As Integer
    Dim ASR As Worksheet, LS As Worksheet

    Set ASR = ActiveWorkbook.Sheets("ASR")
    Set LS = ActiveWorkbook.Sheets("LS")

    endrow = ASR.Range("A" & ASR.Rows.Count).End(xlUp).Row

    For i = 2 To endrow
        If ASR.Cells(i, "I").Value = "LS" Then
           ASR.Cells(i, "I").EntireRow.Cut Destination:=LS.Range("A" & LS.Rows.Count).End(xlUp).Offset(1)
        End If
    Next
End Sub
    • Perfekt! Vielen, vielen Dank!
    InformationsquelleAutor Netloh
Schreibe einen Kommentar