Wie fügt man in Excel stets eine leere Zeile unterhalb statt oberhalb ein?

Wie allgemein bekannt ist, wird beim Einfügen einer leeren Zeile in ein Arbeitsblatt diese stets oberhalb der ausgewählten Zeile oder Zelle eingefügt. Gelegentlich möchten Sie die Zeile jedoch unterhalb der markierten Zelle oder Zeile einfügen – wie lässt sich das in Excel bewerkstelligen?

Leere Zeile mithilfe von VBA-Code stets unterhalb statt oberhalb einfügen

---

Leere Zeile mithilfe von VBA-Code stets unterhalb statt oberhalb einfügen

In diesem Artikel zeige ich Ihnen, wie Sie mit nur einem Klick auf eine Schaltfläche eine leere Zeile direkt unterhalb der ausgewählten Zelle oder Zeile einfügen können. Gehen Sie dazu wie folgt vor:

1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.

2. Klicken Sie anschließend auf Einfügen > Modul, und fügen Sie das folgende Makro in das Modulfenster ein.

VBA-Code: Leere Zeile stets unterhalb statt oberhalb einfügen

Sub InsertRowDown()
'Updateby Extendoffice
Dim xRg As Range
    On Error Resume Next
    Application.ScreenUpdating = False
    Set xRg = ActiveCell.Offset(1, 0)
    xRg.EntireRow.Select
     Selection.Insert Shift:=xlDown
     Selection.ClearFormats
    Application.ScreenUpdating = True
End Sub

3. Schließen Sie anschließend das Codefenster. Klicken Sie dann auf Einfügen > Formen > Rechteck, siehe Screenshot:

4. Ziehen Sie nun den Cursor, um eine rechteckige Schaltfläche zu zeichnen, und formatieren Sie diese nach Bedarf. Siehe Screenshot:

5. Nachdem Sie die Schaltfläche entsprechend formatiert haben, klicken Sie mit der rechten Maustaste darauf und wählen Sie die Option Makro zuweisen. Siehe Screenshot:

6. Wählen Sie im Dialogfeld Makro zuweisen den gerade eingefügten Makronamen aus dem Listenfeld Makroname, siehe Screenshot:

7. Klicken Sie anschließend auf OK, um das Dialogfeld zu schließen. Sobald Sie nun eine beliebige Zelle auswählen und danach auf die Schaltfläche klicken, wird eine leere Zeile oberhalb der ausgewählten Zelle eingefügt, wie in der folgenden Demo gezeigt:

---

---

Weitere verwandte Zeilen einfügen‑Artikel: