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 SubHinweis: 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?
Die besten Produktivitätstools für das Büro
Stärken Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und genießen Sie Effizienz wie nie zuvor. Kutools für Excel bietet mehr als300 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 Tab-Oberfläche in Office und macht Ihre Arbeit wesentlich einfacher
- Aktivieren Sie die Tabulator-Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs innerhalb desselben Fensters, statt in neuen Einzelfenstern.
- Steigert Ihre Produktivität um50 % und reduziert hunderte Mausklicks täglich!
Alle Kutools-Add-Ins. Ein Installationspaket
Das Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- All-in-One-Paket — Add-Ins für Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Ein Installationspaket, eine Lizenz — in wenigen Minuten einsatzbereit (MSI-kompatibel)
- Besser gemeinsam — optimierte Produktivität in allen Office-Anwendungen
- 30 Tage kostenlos testen — keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis — günstiger als Einzelkauf der Add-Ins