Wie verschiebt man eine ganze Zeile basierend auf einem Zellwert in ein anderes Arbeitsblatt in Excel?
Dieser Artikel zeigt Ihnen, wie Sie eine ganze Zeile basierend auf einem Zellwert in ein anderes Arbeitsblatt verschieben können.
Verschieben Sie Ganze Zeile basierend auf einem Zellwert mit VBA-Code in ein anderes Arbeitsblatt
Verschieben Sie Ganze Zeile basierend auf einem Zellwert mit Kutools für Excel in ein anderes Arbeitsblatt
Verschieben Sie Ganze Zeile basierend auf einem Zellwert mit VBA-Code in ein anderes Arbeitsblatt
Wie im folgenden Screenshot gezeigt, verschieben Sie die gesamte Zeile aus Tabelle1 nach Tabelle2, sobald das bestimmte Wort „Done“ in Spalte C erscheint. Probieren Sie dazu den folgenden VBA-Code aus.
1. Drücken Sie gleichzeitig die Tasten Alt + F11, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.
2. Klicken Sie im Fenster „Microsoft Visual Basic für Applikationen“ auf Einfügen > Modul. Anschließend kopieren Sie den folgenden VBA-Code und fügen ihn in das Fenster ein.
VBA code 1: Move entire row to another sheet based on cell value
Sub Cheezy()
'Updated by Kutools for Excel 2017/8/28
Dim xRg As Range
Dim xCell As Range
Dim I As Long
Dim J As Long
Dim K As Long
I = Worksheets("Sheet1").UsedRange.Rows.Count
J = Worksheets("Sheet2").UsedRange.Rows.Count
If J = 1 Then
If Application.WorksheetFunction.CountA(Worksheets("Sheet2").UsedRange) = 0 Then J = 0
End If
Set xRg = Worksheets("Sheet1").Range("C1:C" & I)
On Error Resume Next
Application.ScreenUpdating = False
For K = 1 To xRg.Count
If CStr(xRg(K).Value) = "Done" Then
xRg(K).EntireRow.Copy Destination:=Worksheets("Sheet2").Range("A" & J + 1)
xRg(K).EntireRow.Delete
If CStr(xRg(K).Value) = "Done" Then
K = K - 1
End If
J = J + 1
End If
Next
Application.ScreenUpdating = True
End SubHinweis: Im Code ist Tabelle1 das Arbeitsblatt, das die zu verschiebende Zeile enthält, und Tabelle2 ist das Zielarbeitsblatt, in das die Zeile verschoben werden soll. „C:C“ bezeichnet die Spalte, die den entsprechenden Wert enthält, und „Done“ ist der konkrete Wert, anhand dessen die Zeile verschoben wird. Passen Sie diese Angaben bitte entsprechend Ihren Anforderungen an.
3. Drücken Sie die Taste F5, um den Code auszuführen. Anschließend wird die Zeile, die die Kriterien in Tabelle1 erfüllt, sofort nach Tabelle2 verschoben.
Hinweis: Der obige VBA-Code löscht Zeilen aus den Originaldaten, nachdem diese in ein bestimmtes Arbeitsblatt verschoben wurden. Wenn Sie stattdessen Zeilen basierend auf einem Zellwert kopieren (ohne sie zu löschen) möchten, verwenden Sie bitte den folgenden VBA-Code 2.
VBA code 2: Copy entire row to another sheet based on cell value
Sub MoveRowBasedOnCellValue()
'Updated by Extendoffice 2017/11/10
Dim xRg As Range
Dim xCell As Range
Dim I As Long
Dim J As Long
Dim K As Long
I = Worksheets("Sheet1").UsedRange.Rows.Count
J = Worksheets("Sheet2").UsedRange.Rows.Count
If J = 1 Then
If Application.WorksheetFunction.CountA(Worksheets("Sheet2").UsedRange) = 0 Then J = 0
End If
Set xRg = Worksheets("Sheet1").Range("C1:C" & I)
On Error Resume Next
Application.ScreenUpdating = False
For K = 1 To xRg.Count
If CStr(xRg(K).Value) = "Done" Then
xRg(K).EntireRow.Copy Destination:=Worksheets("Sheet2").Range("A" & J + 1)
J = J + 1
End If
Next
Application.ScreenUpdating = True
End SubVerschieben Sie Ganze Zeile basierend auf einem Zellwert mit Kutools für Excel in ein anderes Arbeitsblatt
Wenn Sie neu im Umgang mit VBA-Code sind, stelle ich Ihnen hier das Hilfsprogramm Bestimmte Zellen auswählen von Kutools für Excel vor. Mit diesem praktischen Tool wählen Sie mühelos alle Zeilen basierend auf einem bestimmten Zellwert oder mehreren unterschiedlichen Zellwerten in einem Arbeitsblatt aus – und kopieren die markierten Zeilen anschließend ganz nach Bedarf in Ihr Zielarbeitsblatt. So geht’s:
1. Wählen Sie die Spalten aus, die den Zellwert enthalten, anhand dessen Sie Zeilen verschieben möchten, und klicken Sie dann auf Kutools > Auswählen > Bestimmte Zellen auswählen. Siehe Screenshot:
2. Wählen Sie im geöffneten Dialogfeld Bestimmte Zellen auswählen unter dem Abschnitt Auswahltyp die Option Ganze Zeile aus, wählen Sie im Feld Typ angeben in der Dropdown-Liste die Option Gleich aus, geben Sie den Zellwert in das Textfeld ein und klicken Sie auf die Schaltfläche OK.
Ein weiteres Dialogfeld Bestimmte Zellen auswählen wird geöffnet und zeigt Ihnen die Anzahl der ausgewählten Zeilen an. Gleichzeitig wurden alle Zeilen markiert, die den angegebenen Wert in der ausgewählten Spalte enthalten. Siehe Screenshot:
3. Drücken Sie die Tasten Strg+C, um die markierten Zeilen zu kopieren, und fügen Sie sie anschließend in das gewünschte Zielarbeitsblatt ein.
Hinweis: Wenn Sie Zeilen basierend auf zwei unterschiedlichen Zellwerten in ein anderes Arbeitsblatt verschieben möchten – beispielsweise Zeilen mit den Zellwerten „Done“ oder „Processing“ – aktivieren Sie die Bedingung Oderim Dialogfeld Bestimmte Zellen auswählen, wie im folgenden Screenshot dargestellt:
Wenn Sie eine kostenlose 30-Tage-Testversion dieses Dienstprogramms nutzen möchten, klicken Sie bitte hier, um sie herunterzuladen, und führen Sie anschließend die Aktion gemäß den oben beschriebenen Schritten aus.
Verwandte Artikel:
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins