Excel VBA Insert Column

In Excel, wenn wir eine Spalte einfügen möchten, gibt es mehrere Möglichkeiten, dies zu tun. Wir können nach rechts klicken und Spalte einfügen aus dem Dropdown-Menü auswählen oder Strg + Umschalt + Plus (+) zusammen verwenden. Aber was ist, wenn wir diesen Prozess auch automatisieren, indem wir über VBA ein Makro erstellen? Dies ist sehr hilfreich, wenn wir ein Makro mit einer großen Codierungsstruktur erstellen oder eine oder mehrere Spalten hinzufügen, was ebenfalls eine Aufgabe ist. VBA verfügt über eine Entire-Column- und Insert-Funktion zum Einfügen einer neuen Spalte.

Einfügen einer Spalte in Excel VBA

Anhand einiger Beispiele lernen wir, wie Sie eine Spalte in Excel mithilfe von VBA-Code einfügen.

Sie können diese Excel-Vorlage für VBA-Spalten einfügen hier herunterladen - Excel-Vorlage für VBA-Spalten einfügen

Beispiel # 1 - VBA Insert Column

Wir haben eine Tabelle mit 2 Spalten und 11 Zeilen, wie unten gezeigt. Jetzt werden wir den Prozess des Einfügens von Spalten auf verschiedene Arten automatisieren.

Führen Sie dazu die folgenden Schritte aus:

Schritt 1: Fügen Sie zuerst ein neues Modul in VBA über die Menüoption Einfügen ein (siehe Abbildung unten).

Schritt 2: Starten Sie nun eine Unterkategorie im Namen der ausgeführten Funktion wie VBA Insert Column oder in einem anderen Namen, wie unten gezeigt.

Code:

 Sub VBAColumn1 () End Sub

Schritt 3: Wählen Sie zunächst den Zellenbereich oder die vollständigen Spalten aus, in die eine Spalte eingefügt werden soll, und führen Sie dann den Befehl Einfügen aus (siehe Abbildung unten). Mit dem Befehl Einfügen können Sie eine beliebige Zeile oder Spalte oder eine Zelle in die ausgewählte Range-Spalte oder -Zelle einfügen.

Code:

 Sub VBAColumn1 () Range ("B: B"). Insert End Sub

Schritt 4: Wählen Sie nun den Zellbereich als Referenz aus, von dem aus wir eine Spalte einfügen möchten, wie unten gezeigt.

Code:

 Sub VBAColumn1 () Range ("B: B"). Insert Range ("B4") End Sub

Schritt 5 : Wie in der Erläuterung erläutert, verwenden wir die gesamte Spalte mit der Funktion Einfügen wie unten gezeigt. Dadurch kann die Spalte eingefügt werden.

Code:

 Sub VBAColumn1 () Range ("B: B"). Insert Range ("B4"). EntireColumn.Insert End Sub

Schritt 6: Kompilieren Sie nun den Code, indem Sie die Funktionstaste F8 drücken und dann auf die Schaltfläche Abspielen klicken, um den vollständigen Code auszuführen, der sich wie unten gezeigt unter der Menüleiste befindet. Wir werden feststellen, dass zwischen Spalte1 und Spalte2 zwei neue leere Spalten eingefügt werden, wie unten gezeigt.

Beispiel # 2 - VBA Insert Column

Es gibt eine andere Methode zum Einfügen einer Spalte. Diese Methode enthält eine Kombination verschiedener Befehle.

Schritt 1: Fügen Sie ein neues Modul aus dem Menü Einfügen ein.

Schritt 2: Schreiben Sie eine Unterkategorie in den Namen der ausgeführten Funktion (siehe unten) oder in einen anderen Namen.

Code:

 Sub VBAColumn2 () End Sub

Schritt 3: Definieren Sie mit Hilfe der Dimensionsvariablen DIM ein Alphabet oder einen Namen als Range, sagen wir Column, wie unten gezeigt.

Code:

 Sub VBAColumn2 () Dim Column As Range End Sub

Schritt 4: Folgen Sie nun dem Bereich, und verwenden Sie eine Set-Funktion mit einer definierten Dimensionsspalte, wie unten gezeigt, gefolgt von einem Gleichheitszeichen („=“).

Code:

 Sub VBAColumn2 () Dim Column As Range: Set Column = End Sub

Schritt 5: Verwenden Sie nun die in VBA integrierte Anwendungsfunktion mit dem definierten Bereich der vollständigen Spalte B.

Code:

 Sub VBAColumn2 () Dim Column As-Bereich: Set Column = Application.Range ("B: B") End Sub

Schritt 6: Verwenden Sie nun die Spaltenvariable mit Einfügefunktion wie unten gezeigt.

Code:

 Sub VBAColumn2 () Dim Column As-Bereich: Set Column = Application.Range ("B: B") Column.Insert End Sub

Schritt 7: Mit dem Befehl Shift können Sie eine Spalte nach rechts oder links verschieben, um sie einzufügen. Normalerweise wird die Spalte immer von der als Referenz ausgewählten Zelle oder Spalte nach rechts eingefügt.

Code:

 Sub VBAColumn2 () Dim Column As-Bereich: Set Column = Application.Range ("B: B") Column.Insert Shift: = xlShiftToRight, End Sub

Schritt 8: Zuletzt wählen Sie rechts oder unten das Ursprungsreferenzformat aus, das für Spalte oder Zeile gilt, je nach Art der Einfügung.

Code:

 Sub VBAColumn2 () Dim Column As Range: Set Column = Application.Range ("B: B") Column.Insert Shift: = xlShiftToRight, CopyOrigin: = xlFormatFromRightOrBelow End Sub

Schritt 9: Jetzt ist es abgeschlossen. Wir können den Code kompilieren und ausführen. Wir werden sehen, dass eine neue Spalte zwischen Colum1 und Column2 hinzugefügt wird, wie unten gezeigt.

Beispiel # 3 - VBA Insert Column

Dieses Beispiel ist eine weitere einfache Möglichkeit, eine Spalte in VBA einzufügen.

Schritt 1: Fügen Sie ein neues Modul ein

Schritt 2: Fügen Sie wie unten gezeigt eine Unterkategorie im Namen der VBA-Spalte ein.

Code:

 Sub VBAColumn3 () End Sub

Schritt 3: Wählen Sie zuerst die Spalte oder Zellreferenz aus, zu der Sie eine Spalte hinzufügen möchten, und klicken Sie auf Auswählen (siehe Abbildung unten).

Code:

 Sub VBAColumn3 () Columns ("B: B"). Wählen Sie End Sub

Schritt 4: Verwenden Sie in der zweiten Zeile den Befehl Auswahl zusammen mit der Funktion Einfügen (siehe unten).

Code:

 Sub VBAColumn3 () Columns ("B: B"). Select Selection.Insert End Sub

Schritt 5: Wählen Sie zuletzt mit Hilfe der Shift-Funktion die Position aus, an der die eingefügte neue Spalte nach rechts oder links verschoben werden soll. Die Auswahl des Platzierens einer neuen Spalte richtet sich nach den Anforderungen des Einzelnen.

Code:

 Sub VBAColumn3 () Columns ("B: B"). Select Selection.Insert Shift: = xlToRight End Sub

Schritt 6: Dies vervollständigt unseren Code. Jetzt können wir den Code kompilieren, um festzustellen, ob ein Fehler vorliegt. Wenn kein Fehler gefunden wird, führen Sie den Code aus. Wir werden sehen, dass eine neue Spalte zwischen Spalte1 und Spalte2 hinzugefügt wird, wie unten gezeigt.

Beispiel # 4 - VBA Insert Column

In diesem Beispiel erfahren Sie, wie Sie nach jeder bereits stehenden Spalte neue Spalten hinzufügen.

Schritt 1: Fügen Sie nun ein Modul aus dem Einfügemenü ein.

Schritt 2: Fügen Sie anschließend eine Unterkategorie im Namen von VBA Insert Column mit einer Folge von Zahlen hinzu.

Code:

 Sub VBAColumn4 () End Sub

Schritt 3: Verwenden Sie nun DIM, um eine Variable in einem beliebigen Namen zu definieren. Wir haben Column als Integer verwendet (falls Zahlen verwendet werden)

Code:

 Sub VBAColumn4 () Dim Column As Integer End Sub

Schritt 4: Zu einer Spalte nach jeder stehenden gefüllten Spalte wählen wir Spalte (2) aus und verwenden sie, um eine neue Spalte hinzuzufügen, wie unten gezeigt.

Code:

 Sub VBAColumn4 () Dim Column As Integer Columns (2) .Wählen Sie End Sub

Schritt 5: Öffnen Sie eine For-Next-Schleife, in der wir die Bedingungen für das Einfügen einer Spalte nacheinander wie gezeigt schreiben.

Code:

 Sub VBAColumn4 () Dim Column As Integer Columns (2) .Select For Next End Sub

Schritt 6: Da unsere Beispieldaten nur 2 Spalten enthalten, können wir nur eine neue Spalte dieser Spalten hinzufügen. Wir verwenden also einen Bereich von 0 bis 2 von Sequenzspalten.

Code:

 Sub VBAColumn4 () Dim Column As Integer Columns (2). Wählen Sie For Column = 0 To 2 Next End Sub

Schritt 7: Mit Hilfe der ActiveCell-Funktion können Sie EntireColumn wie unten gezeigt einfügen.

Code:

 Sub VBAColumn4 () Dim Column As Integer Columns (2) .Select For Column = 0 To 2 ActiveCell.EntireColumn.Insert Next End Sub

Schritt 8: Verwenden Sie mit Hilfe der ActiveCell-Funktion Offset, um die neu hinzugefügte Spalte zu platzieren. Wir verwenden die Positionen 0 und 2.

Code:

 Sub VBAColumn4 () Dim Column As Integer Columns (2) .Select For Column = 0 To 2 ActiveCell.EntireColumn.Insert ActiveCell.Offset (0, 2) .Select Next End Sub

Schritt 9: Kompilieren Sie nun den Code und führen Sie ihn aus, wenn kein Fehler gefunden wurde. Nach Spalte1 und Spalte2 werden neue Spalten hinzugefügt.

Vorteile von Excel VBA Spalte einfügen

  • Es ist hilfreich, schnell eine neue Spalte in einem beliebigen Zellbereich hinzuzufügen.
  • Es ist einfach zu implementieren, auch wenn die Struktur des Codes riesig ist.
  • Wenn wir an einem riesigen Code arbeiten, muss der Code in einer neuen Spalte vervollständigt werden. Die Verwendung der obigen Beispiele erleichtert die Aufgabe.

Dinge, an die man sich erinnern sollte

  • Wenn Sie Beispiel 4 verwenden, denken Sie daran, den Spaltenbereich auszuwählen, bis die Tabelle gültig ist.
  • Wenn Sie die Datei in Macro Enable Excel speichern, wird der Code gespeichert.
  • Fügen Sie nur die zutreffenden und erforderlichen Spalten ein, um zu vermeiden, dass unnötige Spalten hinzugefügt werden.

Empfohlene Artikel

Dies ist eine Anleitung zur VBA-Spalte einfügen. Hier erläutern wir das Einfügen von Spalten in Excel mithilfe von VBA-Code zusammen mit praktischen Beispielen und einer herunterladbaren Excel-Vorlage. Sie können auch unsere anderen Artikelvorschläge durchgehen -

  1. VBA VLOOKUP-Funktion
  2. DCOUNT-Funktion in Excel
  3. VBA Copy Paste
  4. COMBIN-Funktion in Excel

Kategorie:

VBA