Wie verschiebt man eine gesamte Zeile basierend auf einem Zellwert ans Ende des aktiven Arbeitsblatts in Excel?

Um eine gesamte Zeile basierend auf einem Zellwert ans Ende des aktiven Arbeitsblatts in Excel zu verschieben, probieren Sie bitte den VBA-Code in diesem Artikel aus.

Verschieben einer ganzen Zeile ans Ende des aktiven Arbeitsblatts basierend auf einem Zellwert mit VBA-Code

Verschieben einer ganzen Zeile ans Ende des aktiven Arbeitsblatts basierend auf einem Zellwert mit VBA-Code

Zum Beispiel: Wie im folgenden Screenshot gezeigt, wenn eine Zelle in Spalte C einen bestimmten Wert „Done“ enthält, dann verschieben Sie die gesamte Zeile ans Ende des aktuellen Arbeitsblatts. Gehen Sie wie folgt vor.

1. Drücken Sie gleichzeitig die Tasten Alt+ F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie im Fenster Microsoft Visual Basic for Applications auf Einfügen > Modul. Kopieren Sie dann den folgenden VBA-Code und fügen Sie ihn in das Fenster ein.

VBA-Code: Verschiebe ganze Zeile ans Ende des aktiven Arbeitsblatts basierend auf Zellwert

Sub MoveToEnd()
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    Dim xEndRow As Long
    Dim I As Long
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
lOne:
    Set xRg = Application.InputBox("Select range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Columns.Count > 1 Or xRg.Areas.Count > 1 Then
        MsgBox " Multiple ranges or columns have been selected ", vbInformation, "Kutools for Excel"
        GoTo lOne
    End If
    xEndRow = xRg.Rows.Count + xRg.Row
    Application.ScreenUpdating = False
    For I = xRg.Rows.Count To 1 Step -1
        If xRg.Cells(I) = "Done" Then
           xRg.Cells(I).EntireRow.Cut
           Rows(xEndRow).Insert Shift:=xlDown
        End If
    Next
    Application.ScreenUpdating = True
End Sub

Hinweis: Im VBA-Code ist „Done“ der Zellwert, basierend auf dem Sie die gesamte Zeile verschieben werden. Sie können es bei Bedarf ändern.

3. Drücken Sie die Taste F5, um den Code auszuführen, dann wählen Sie im erscheinenden Dialogfeld Kutools for Excel den Spaltenbereich aus, in dem sich der bestimmte Wert befindet, und klicken Sie auf die Schaltfläche OK.

Nachdem Sie auf die Schaltfläche OK geklickt haben, wird die gesamte Zeile, die den Wert „Done“ in der angegebenen Spalte enthält, automatisch ans Ende des Datenbereichs verschoben.

Entfesseln Sie die Magie von Excel mit Kutools AI

• Intelligente Ausführung: Führen Sie Zellenoperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles angetrieben durch einfache Befehle.
• Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe zu optimieren.
• VBA-Codierung: Schreiben und implementieren Sie VBA-Code mühelos.
• Formelinterpretation: Verstehen Sie komplexe Formeln mit Leichtigkeit.
• Textübersetzung: Überwinden Sie Sprachbarrieren in Ihren Tabellen.

Erweitern Sie Ihre Excel-Fähigkeiten mit KI-gestützten Tools. Laden Sie jetzt herunter und erleben Sie eine Effizienz wie nie zuvor!

Verwandte Artikel:

• Wie verschiebt man eine gesamte Zeile basierend auf einem Zellwert in ein anderes Arbeitsblatt in Excel?