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.

Erweitern Sie Ihre Excel-Fähigkeiten mit KI-gestützten Tools. Laden Sie jetzt herunter und erleben Sie eine Effizienz wie nie zuvor!

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 Sub

Hinweis: 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 Sub

Nach 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.