excel-makro zum auswählen mehrerer Zeilen

Habe ich excel-makro zum auswählen einer Zeile Ausschneiden und einfügen zum nächsten Blatt. Ich will jetzt, wählen Sie mehrere Zeilen auf einmal zu schneiden und fügen Sie das nächste Blatt, dann gehen Sie zurück zum vorherigen Blatt löschen der leeren Zeilen, die geschnitten wurden. Den code habe ich für die einzelne Zeile Ausschneiden und einfügen ist folgt:

Sub CutPasteRows()
Dim iLastRow As Integer


   'select the first cell to intiate script
    txtRowNum = Selection.Row
    'select the row
    Rows(txtRowNum).EntireRow.Select
    Selection.Cut

    'if the active worksheet is the last one (no next worksheet), display error.
    If ActiveSheet.Index = Worksheets.Count Then
       MsgBox ("There are no next worksheet")
    Else
        ActiveSheet.Next.Select
        iLastRow = ActiveSheet.UsedRange.Rows.Count

        'if the workshet is blank, start with the first row. Otherwise, add 1 to the last row
        If Cells(1, 1).Value = "" And iLastRow = 1 Then
            iLastRow = 1
        Else
            iLastRow = iLastRow + 1
        End If

        'Paste row
        Rows(iLastRow).EntireRow.Select
        ActiveSheet.Paste

        'Go back to the last worksheet
        ActiveSheet.Previous.Select
        Rows(txtRowNum).EntireRow.Select
        Selection.Delete
    End If
End Sub

Jede Hilfe ist willkommen.

Dank

  • Was ist Ihre Frage?
  • Was ist das falsch?? was ist die Fehlermeldung oder das problem?
InformationsquelleAutor Minnie | 2009-11-12
  1. 1

    Wenn Sie wählen Sie mehrere Zeilen auf einmal, die Selection-Eigenschaft gibt eine Range-Objekt. Mit diesem Range-Objekt Sie sollten in der Lage sein zu schneiden und fügen Sie die ausgewählten Zeilen um das nächste Arbeitsblatt und löschen Sie Sie anschließend aus dem vorherigen Arbeitsblatt.

    Machte ich eine kleine änderung an Ihrem code, die ich denke, sollte Ihnen den Einstieg auf dem richtigen Weg:

    Sub CutPasteRows()
 Dim iLastRow As Integer

 'Cut entire selection'
 Selection.Cut

 'if the active worksheet is the last one (no next worksheet), display error.'
  If ActiveSheet.Index = Worksheets.Count Then
   MsgBox ("There are no next worksheet")
  Else
    ActiveSheet.Next.Select
    iLastRow = ActiveSheet.UsedRange.Rows.Count

  'if the worksheet is blank, start with the first row. Otherwise, add 1 to the last row'
    If Cells(1, 1).Value = "" And iLastRow = 1 Then
        iLastRow = 1
    Else
        iLastRow = iLastRow + 1
    End If

    'Paste row'
    Rows(iLastRow).EntireRow.Select
    ActiveSheet.Paste

    'Go back to the last worksheet and delete selection'
    ActiveSheet.Previous.Select
    Selection.Delete
End If

    Selection-Eigenschaft

    Range-Objekt

    InformationsquelleAutor Amal Sirisena
  2. 0

    Brauchen Sie nur Union die Zeilen, die Sie benötigen.

    Wie diese:

    Set workingRange = Application.Union(workingRange, newRange)

    Natürlich, das bedeutet, dass mit range-Objekte und nicht auf Zeilennummern.

    InformationsquelleAutor Lance Roberts
Schreibe einen Kommentar