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

Zusammenfassung

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

Weitere Informationen

Die Verwendung der hier aufgeführten Informationen, Makro- oder Programmcodes geschieht auf Ihre eigene Verantwortung. Microsoft stellt Ihnen diese Informationen sowie Makro- und Programmlistings ohne Gewähr auf Richtigkeit, Vollständigkeit und/oder Funktionsfähigkeit sowie ohne Anspruch auf Support zur Verfügung. Die zur Verfügung gestellten Makro- und Programmierungsbeispiele sollen lediglich exemplarisch die Funktionsweise des Beispiels aufzeigen. Die Mitarbeiter der Microsoft Product Support Services erklären Ihnen gerne die Funktionsweise einer bestimmten Prozedur. Die Mitarbeiter werden diese Beispiele jedoch weder modifizieren, um zusätzliche Funktionalität zu schaffen, noch Prozeduren entwickeln, die auf Ihre spezifischen Bedürfnisse zugeschnitten sind. Um Zeilen oder Spalten auf mehreren Blättern einzufügen oder zu löschen, verwenden Sie entweder eine Anweisung „For Each...Next“, um alle erforderlichen Blätter zu durchlaufen, oder Sie wählen die Zeilen bzw. Spalten aus, 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 mithilfe 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

Mit dem folgenden Beispielmakro wird die gesamte Spalte markiert, 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