Wie verschiebt man eine bestimmte Zeile in ein neues Arbeitsblatt, wenn ein Kontrollkästchen in Excel aktiviert ist?

Dieser Artikel erklärt, wie Sie eine bestimmte Zeile in ein neues Arbeitsblatt verschieben, wenn ein Kontrollkästchen in Excel aktiviert ist.

Zeile verschieben, wenn ein Kontrollkästchen mit VBA-Code aktiviert ist

Zeile verschieben, wenn ein Kontrollkästchen mit VBA-Code aktiviert ist

Bitte gehen Sie wie folgt vor, um eine bestimmte Zeile in ein angegebenes Arbeitsblatt zu verschieben, wenn Sie ein Kontrollkästchen in Excel aktivieren.

1. Wechseln Sie zum Arbeitsblatt, in dem Sie die Zeile basierend auf einem Kontrollkästchen verschieben möchten, klicken Sie auf Entwickler > Einfügen > Kontrollkästchen (ActiveX-Steuerelement), um ein Kontrollkästchen einzufügen. Siehe Screenshot:

2. Klicken Sie mit der rechten Maustaste auf die Registerkarte des Arbeitsblatts und dann auf Code anzeigen im Kontextmenü. Siehe Screenshot:

3. Kopieren Sie im geöffneten Fenster Microsoft Visual Basic for Applications den folgenden VBA-Code und fügen Sie ihn in das Codefenster ein.

VBA-Code: Verschiebe Zeile in ein bestimmtes Arbeitsblatt, wenn ein Kontrollkästchen aktiviert ist

Private Sub CheckBox1_Click()
    Dim xRg As Range
    Dim xAddress As String
    On Error Resume Next
    If CheckBox1.value Then
        xAddress = Application.ActiveWindow.RangeSelection.Address
        Set xRg = Application.InputBox("Please select the range row you will move(single cell)：", "KuTools For Excel", xAddress, , , , , 8)
        If xRg Is Nothing Then Exit Sub
        Set xRg = xRg(1).EntireRow
        xRg.Copy
        ActiveWorkbook.Sheets("Sheet3").Range("A1").PasteSpecial xlPasteAllUsingSourceTheme
        xRg.Clear
        Application.CutCopyMode = False
    End If
End Sub

Hinweis: Im Code stehen Sheet3 und A1 dafür, dass die angegebene Zeile in die erste Zeile von Sheet3 verschoben wird. Bitte ändern Sie diese entsprechend Ihren Anforderungen.

4. Drücken Sie die Tasten Alt + Q, um das Fenster Microsoft Visual Basic for Applications zu schließen.

5. Schalten Sie den Entwurfsmodus aus, indem Sie auf die Schaltfläche Entwurfsmodus auf der Registerkarte Entwickler klicken.

6. Aktivieren Sie das Kontrollkästchen, dann erscheint ein Dialogfeld von Kutools für Excel. Wählen Sie bitte die erste Zelle der zu verschiebenden Zeile (oder die gesamte Zeile) aus und klicken Sie auf die Schaltfläche OK. Dann wird die gesamte angegebene Zeile sofort in ein bestimmtes Arbeitsblatt verschoben. Siehe Screenshot:

Verwandte Artikel:

• Wie verschiebt man eine ganze Zeile basierend auf einem Zellenwert in ein anderes Arbeitsblatt in Excel?
• Wie verschiebt man eine ganze Zeile basierend auf einem Zellenwert ans Ende des aktiven Arbeitsblatts in Excel?