Wie füllt man Formeln automatisch aus, wenn man Zeilen in Excel einfügt?

Wenn Sie leere Zeilen zwischen bestehenden Datenzeilen einfügen, wird die Formel nicht automatisch in die neue Zeile kopiert und eingefügt. Sie müssen sie manuell ziehen oder ausfüllen. Manchmal möchten Sie jedoch die Formel automatisch ausfüllen, wenn Sie wie im folgenden Screenshot gezeigt leere Zeilen in einen Datenbereich einfügen. In diesem Artikel werde ich einige schnelle Tricks vorstellen, um diese Aufgabe zu lösen.

Formel automatisch ausfüllen beim Einfügen leerer Zeilen durch Erstellen einer Tabelle

Formel automatisch ausfüllen beim Einfügen leerer Zeilen mit VBA-Code

Formel automatisch ausfüllen beim Einfügen leerer Zeilen durch Erstellen einer Tabelle

In Excel kann das Tabellenformat Ihnen helfen, die obige Formel automatisch in die neu eingefügten leeren Zeilen einzufügen. Bitte gehen Sie wie folgt vor:

1. Wählen Sie den Datenbereich aus, in dem Sie die Formel automatisch ausfüllen möchten, und klicken Sie dann auf Einfügen > Tabelle, siehe Screenshot:

2. Aktivieren Sie im Dialogfeld 'Tabelle erstellen' die Option 'Meine Tabelle hat Überschriften', falls Ihre Daten Überschriften enthalten, siehe Screenshot:

3. Klicken Sie dann auf die Schaltfläche OK, und die Tabelle wurde erstellt. Wenn Sie nun eine leere Zeile einfügen, wird die obige Formel automatisch in die neue Zeile eingefügt, siehe Screenshot:

Formel automatisch ausfüllen beim Einfügen leerer Zeilen mit VBA-Code

Wenn Sie Ihre Daten nicht in eine Tabelle umwandeln möchten, kann Ihnen der folgende VBA-Code ebenfalls bei diesem Problem helfen.

1. Wählen Sie das Arbeitsblatt aus, das die Formeln enthält, die Sie automatisch ausfüllen möchten, und klicken Sie mit der rechten Maustaste, um Ansicht Code aus dem Kontextmenü auszuwählen, um zum Fenster Microsoft Visual Basic for Applications zu gelangen. Kopieren und fügen Sie dann den folgenden Code in das Modul ein:

VBA-Code: Automatisches Ausfüllen von Formeln beim Einfügen leerer Zeilen

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updateby Extendoffice 20160725
    Cancel = True
    Target.Offset(1).EntireRow.Insert
    Target.EntireRow.Copy Target.Offset(1).EntireRow
    On Error Resume Next
    Target.Offset(1).EntireRow.SpecialCells(xlConstants).ClearContents
End Sub

2. Speichern und schließen Sie den Code, und kehren Sie zum Arbeitsblatt zurück. Wenn Sie nun eine Zelle zwischen den Daten doppelklicken, wird unterhalb der aktiven Zelle eine neue Zeile eingefügt, und die Formel wird ebenfalls automatisch ausgefüllt.

Demo: Automatisches Ausfüllen von Formeln beim Einfügen leerer Zeilen