Wie verschiebe ich eine bestimmte Zeile in ein neues Blatt, wenn das Kontrollkästchen in Excel aktiviert ist?
In diesem Artikel wird das Verschieben einer bestimmten Zeile in ein neues Blatt behandelt, wenn das Kontrollkästchen in Excel aktiviert ist.
Zeile verschieben, wenn das Kontrollkästchen mit VBA-Code aktiviert ist
Zeile verschieben, wenn das Kontrollkästchen mit VBA-Code aktiviert ist
Gehen Sie wie folgt vor, um eine bestimmte Zeile in ein bestimmtes Arbeitsblatt zu verschieben, wenn Sie ein Kontrollkästchen in Excel aktivieren.
1. Wechseln Sie zu dem Arbeitsblatt, in das Sie die Zeile basierend auf dem Kontrollkästchen verschieben möchten, und klicken Sie auf Entwickler:in / Unternehmen > Insert > Kontrollkästchen (ActiveX Control) um ein Kontrollkästchen einzufügen. Siehe Screenshot:
2. Klicken Sie mit der rechten Maustaste auf die Registerkarte Blatt, und klicken Sie dann auf Code anzeigen aus dem Kontextmenü. Siehe Screenshot:
3. In der Öffnung Microsoft Visual Basic für Applikationen Bitte kopieren Sie den folgenden VBA-Code und fügen Sie ihn in das Code-Fenster ein.
VBA-Code: Verschieben Sie die Zeile in ein angegebenes 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
Note: Im Code geben Shee3 und A1 an, dass die angegebene Zeile in die erste Zeile in Sheet3 verschoben wird. Bitte ändern Sie sie entsprechend Ihren Anforderungen.
4. Drücken Sie die Taste Andere + Q Tasten zum Schließen der Microsoft Visual Basic für Applikationen Fenster.
5. Schalten Sie den Entwurfsmodus aus, indem Sie auf klicken Entwurfsmodus Taste auf der Entwickler:in / Unternehmen Tab.
6. Aktivieren Sie das Kontrollkästchen und dann a Kutools for Excel Wenn das Dialogfeld angezeigt wird, wählen Sie die erste Zelle der Zeile (oder die gesamte Zeile) aus, die Sie verschieben möchten, und klicken Sie auf OK Taste. Dann wird die angegebene gesamte Zeile sofort in ein bestimmtes Arbeitsblatt verschoben. Siehe Screenshot:
In Verbindung stehende Artikel:
- Wie verschiebe ich die gesamte Zeile basierend auf dem Zellenwert in Excel auf ein anderes Blatt?
- Wie verschiebe ich die gesamte Zeile basierend auf dem Zellenwert in Excel an den unteren Rand des aktiven Blattes?
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, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!