Rückkehr in VBA-Code-Beispiele

VBA Kopieren / Einfügen von Zeilen und Spalten

In diesem Lernprogramm lernen Sie, wie Sie mit VBA ganze Zeilen oder Spalten kopieren (oder ausschneiden) können. Das Kopieren und Einfügen von Zellenbereichen behandeln wir in einem anderen Artikel. Zunächst zeigen wir Ihnen, wie Sie kopierte Zeilen/Spalten einfügen oder einsetzen können und erläutern die Unterschiede. Anschließend zeigen wir Ihnen die verschiedenen Möglichkeiten, beim Kopieren oder Ausschneiden auf Zeilen und Spalten zu verweisen.

Zeilen & Spalten – Einfügen vs. Einsetzen

Beim Einfügen von Zeilen und Spalten haben Sie zwei Möglichkeiten: Sie können über die vorhandene Zeile (oder Spalte) einfügen oder eine neue Zeile (oder Spalte) einfügen.

Schauen wir uns den Unterschied an… vba kopieren einfuegen zeile

Kopieren & Einfügen über bestehende Zeile/Spalte

Damit wird die Zeile 1 kopiert und in die bestehende Zeile 5 eingefügt:

Range("1:1").Copy Range("5:5")

Die Spalte C wird kopiert und in die Spalte E eingefügt:

Range("C:C").Copy Range("E:E")

Zeile/Spalte kopieren und einsetzen

Stattdessen können Sie die kopierte Zeile oder Spalte einfügen und die vorhandenen Zeilen oder Spalten verschieben, um Platz zu schaffen. So wird Zeile 1 kopiert und in Zeile 5 eingefügt, wobei die vorhandenen Zeilen nach unten verschoben werden:

Range("1:1").Copy
Range("5:5").Insert

So wird die Spalte C kopiert und in die Spalte E eingefügt, wobei die vorhandenen Spalten nach rechts verschoben werden:

Range("C:C").Copy
Range("E:E").Insert

Gesamte Zeile kopieren

Im Folgenden zeigen wir Ihnen mehrere Möglichkeiten, die Zeile 1 zu kopieren und in Zeile 5 einzufügen.

Range("1:1").Copy Range("5:5")
Range("A1").EntireRow.Copy Range("A5")
Rows(1).Copy Rows(5)

Ausschneiden und Einfügen von Zeilen

Verwenden Sie einfach Ausschneiden anstelle von Kopieren, um Zeilen auszuschneiden und einzufügen:

Rows(1).Cut Rows(5)

Mehrere Zeilen kopieren

Hier sind Beispiele für das Kopieren mehrerer Zeilen auf einmal:

Range("5:7").Copy Range("10:13")
Range("A5:A7").EntireRow.Copy Range("A10:A13")
Rows(5:7).Copy Rows(10:13)

Gesamte Spalte kopieren

Sie können ganze Spalten kopieren, ähnlich wie beim Kopieren ganzer Zeilen:

Range("C:C").Copy Range("E:E")
Range("C1").EntireColumn.Copy Range("C1").EntireColumn
Columns(3).Copy Range(5)

Ausschneiden und Einfügen von Spalten

Verwenden Sie einfach Ausschneiden anstelle von Kopieren, um Spalten auszuschneiden und einzufügen:

Range("C:C").Cut Range("E:E")

Mehrere Spalten kopieren

Hier sind Beispiele für das Kopieren mehrerer Spalten auf einmal:

Range("C:E").Cut Range("G:I")
Range("C1:E1").EntireColumn.Copy Range("G1:I1")
Columns(3:5).Copy Columns(7:9)

Zeilen oder Spalten in ein anderes Arbeitsblatt kopieren

Um auf ein anderes Arbeitsblatt zu kopieren, verwenden Sie einfach das Sheet-Objekt:

Sheets("sheet1").Range("C:E").Copy Sheets("sheet2").Range("G:I")

Zeilen oder Spalten in einem anderen Blatt ausschneiden

Sie können genau dieselbe Technik verwenden, um Zeilen oder Spalten in einem anderen Arbeitsblatt auszuschneiden und einzufügen.

Sheets("Blatt1").Range("C:E").Cut Sheets("Blatt2").Range("G:I")