Beispielmakro zum Einfügen/Löschen von Zeilen oder Spalten auf mehreren Blättern in Excel

Zusammenfassung

Dieser Artikel enthält ein Beispielmakro für Microsoft Visual Basic für Applikationen (Unterprozedur), mit dem Sie Zeilen oder Spalten in mehreren Arbeitsblättern in Microsoft Excel einfügen oder löschen können.

Mehr Informationen

Microsoft bietet Programmierbeispiele ausschließlich zu Illustrationszwecken an, ohne Gewährleistung, weder ausdrücklich noch impliziert. Dies umfasst unter anderem die stillschweigenden Garantien der Marktgängigkeit oder Eignung für einen bestimmten Zweck. Dieser Artikel geht davon aus, dass Sie mit der Programmiersprache, die gezeigt wird, und mit den Hilfsmitteln vertraut sind, die zum Erstellen und Debuggen von Verfahren verwendet werden. Microsoft-Support-Ingenieure können helfen, die Funktionalität eines bestimmten Verfahrens zu erklären. Allerdings werden sie diese Beispiele nicht ändern, um zusätzliche Funktionen bereitzustellen oder Verfahren zu konstruieren, die Ihren speziellen Anforderungen entsprechen. Wenn Sie Zeilen oder Spalten auf mehreren Blättern einfügen oder löschen möchten, verwenden Sie entweder eine For Each...Next-Schleife, um alle erforderlichen Blätter zu durchlaufen, oder markieren Sie die Zeilen oder Spalten, bevor Sie das Einfügen oder Löschen ausführen.

Hinweis

Die folgenden Beispielmakros funktionieren nur für einen zusammenhängenden Bereich von Spalten oder Zeilen.

Beispielmakro mit einer Schleife zum Einfügen von Zeilen in mehrere Blätter

Sub Insert_Rows_Loop()
     Dim CurrentSheet As Object

     ' Loop through all selected sheets.
     For Each CurrentSheet In ActiveWindow.SelectedSheets
        ' Insert 5 rows at top of each sheet.
        CurrentSheet.Range("a1:a5").EntireRow.Insert
     Next CurrentSheet
End Sub

Beispielmakro zum Auswählen einer Spalte und Einfügen einer neuen Spalte

Das folgende Beispielmakro wählt die gesamte Spalte aus, bevor neue Spalten eingefügt werden:

Sub Select_Insert_Column()
    Dim MyRange as Object
    ' Store the selected range in a variable.
    Set MyRange = Selection
    ' Select the entire column.
    Selection.EntireColumn.Select
    ' Insert Columns in all selected sheets.
    Selection.Insert
    ' Reselect the previously selected cells.
    MyRange.Select
End Sub