Wie fügt man eine Teilzeile in Excel ein oder löscht sie?
Es ist einfach, eine ganze Zeile in einem Arbeitsblatt in Excel einzufügen oder zu löschen. Aber wie fügt man nur eine Teilzeile in einem Arbeitsblatt ein oder löscht sie? Dieser Artikel wird Ihnen helfen.
Teilzeile mit der Funktion Zellen einfügen/löschen einfügen oder löschen
Teilzeile mit VBA-Code einfügen oder löschen
Teilzeile mit der Funktion Zellen einfügen/löschen einfügen oder löschen
Wenn Sie zum Beispiel eine Teilzeile in Zeile 5 mit drei Zellen einfügen oder löschen möchten, gehen Sie wie folgt vor.
Teilzeile einfügen
1. Wählen Sie drei Zellen in Zeile 5 aus (die ausgewählten Zellen sollten den eingefügten Zellen entsprechen), klicken Sie dann auf Einfügen > Zellen einfügen unter der Registerkarte Start. Siehe Screenshot:
2. Wählen Sie im Dialogfeld Einfügen die Option Zellen nach rechts verschieben oder Zellen nach unten verschieben und klicken Sie dann auf die Schaltfläche OK.
Dann wird eine Teilzeile mit drei Zellen wie im folgenden Screenshot gezeigt eingefügt.
Teilzeile löschen
1. Nachdem Sie die Teilzeile ausgewählt haben, die Sie löschen möchten, klicken Sie auf Löschen > Zellen löschen unter der Registerkarte Start.
2. Wählen Sie im Dialogfeld Löschen die Option Zellen nach links verschieben oder Zellen nach oben verschieben, je nach Bedarf, und klicken Sie dann auf die Schaltfläche OK. Siehe Screenshot:
Dann wird die ausgewählte Teilzeile gelöscht.
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.
Teilzeile mit VBA-Code einfügen oder löschen
Sie können auch die folgenden VBA-Codes verwenden, um Teilzeilen in Excel einzufügen oder zu löschen.
1. Wählen Sie eine beliebige Zelle in einer bestimmten Zeile aus, in der Sie Teilzeilen einfügen möchten, drücken Sie dann 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 und fügen Sie dann den folgenden VBA-Code in das Codefenster ein.
VBA-Code: Teilzeile in Excel einfügen
Sub InsertRow()
Dim I As Long
On Error Resume Next
LInput:
I = Application.InputBox("Enter number of rows required.", "Kutools for Excel", 1, , , , , 1)
If I < 1 Then
MsgBox "Error, please retype", vbInformation, "Kutools for Excel"
GoTo LInput
End If
Cells(ActiveCell.Row, 1).Resize(Int(I), 3).Insert xlDown
End SubHinweis: In dem VBA-Code bedeutet die Zahl 1, dass die Teilzeile ab der ersten Spalte eingefügt wird, und die Zahl 3 bedeutet, dass drei Zellen zwischen den Spalten eingefügt werden. Sie können diese Zahlen bei Bedarf ändern.
3. Drücken Sie die Taste F5, um den Code auszuführen, dann erscheint ein Dialogfeld von Kutools für Excel, geben Sie bitte die Anzahl der benötigten Zeilen ein und klicken Sie dann auf die Schaltfläche OK.
Wenn Sie die Zahl 3 in das Feld eingeben, werden nach dem Klick auf die Schaltfläche OK drei Teilzeilen mit drei Spalten an der angegebenen Position Ihres Arbeitsblatts eingefügt.
Um eine Teilzeile zu löschen, können Sie den folgenden VBA-Code ausführen.
VBA-Code: Teilzeile in Excel löschen
Sub DelActiveCell_Row()
Dim I As Long
On Error Resume Next
LInput:
I = Application.InputBox("Enter number of rows required.", "Kutools for Excel", 1, , , , , 1)
If I < 1 Then
MsgBox " Error, please retype", vbInformation, "Kutools for Excel"
GoTo LInput
End If
Cells(ActiveCell.Row, 1).Resize(Int(I), 3).Delete xlShiftUp
End SubNach dem Ausführen des Codes erscheint ebenfalls ein Dialogfeld von Kutools für Excel, das Sie daran erinnert, wie viele Teilzeilen Sie löschen möchten. Geben Sie die Anzahl ein und klicken Sie auf die Schaltfläche OK. Dann werden die angegebenen Teilzeilen sofort gelöscht.
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