Vba: so fügen sie eine zeile mit formatierung ein

Sie können in VBA die folgende Syntax verwenden, um eine Zeile mit demselben Format wie die Zeile darüber einzufügen:

 Sub insertRowWithFormatting()

ActiveCell.Offset(1).EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrAbove
ActiveCell.EntireRow.Copy
ActiveCell.Offset(1).EntireRow.PasteSpecial xlPasteFormats

Application.CutCopyMode = False

End Sub

Dieses spezielle Makro fügt unterhalb der aktuell ausgewählten Zelle eine Zeile mit genau der gleichen Formatierung wie die Zellen in der aktuell ausgewählten Zeile ein.

Hinweis : Die Zeile „Application.CutCopyMode = False“ gibt an, dass der Ausschneide- und Kopiermodus nach der Ausführung des Makros deaktiviert werden soll.

Das folgende Beispiel zeigt, wie diese Syntax in der Praxis verwendet wird.

Verwandte Themen: So fügen Sie mehrere Zeilen mit VBA ein

Beispiel: Fügen Sie eine Zeile mit Formatierung in VBA ein

Nehmen wir an, wir haben den folgenden Datensatz in Excel, der Informationen über verschiedene Basketballspieler enthält:

Nehmen wir an, wir möchten unterhalb von Zeile 2 eine Zeile mit genau derselben Formatierung einfügen.

Dazu können wir das folgende Makro erstellen:

 Sub insertRowWithFormatting()

ActiveCell.Offset(1).EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrAbove
ActiveCell.EntireRow.Copy
ActiveCell.Offset(1).EntireRow.PasteSpecial xlPasteFormats

Application.CutCopyMode = False

End Sub

Wir können dann Zelle A2 auswählen und dann dieses Makro ausführen.

Wenn wir dieses Makro ausführen, erhalten wir die folgende Ausgabe:

Beachten Sie, dass die neue Zeile, die wir eingefügt haben, genau das gleiche Format wie die Zellen in Zeile 2 hat, einschließlich Zellenfarben und Rahmen.

Beachten Sie außerdem, dass alle anderen Zeilen im vorhandenen Datensatz einfach nach unten verschoben wurden.

Zusätzliche Ressourcen

In den folgenden Tutorials wird erläutert, wie Sie andere häufige Aufgaben in VBA ausführen:

VBA: So finden Sie die zuletzt verwendete Zeile
VBA: So zählen Sie die Anzahl der Zeilen im Bereich
VBA: So zählen Sie die Anzahl der verwendeten Spalten