Voorbeeldmacro voor het invoegen/verwijderen van rijen of kolommen op meerdere bladen in Excel

Samenvatting

Dit artikel bevat een voorbeeld van een Microsoft Visual Basic for Applications-macro (subprocedure) die u kunt gebruiken om rijen of kolommen in meerdere werkbladen in Microsoft Excel in te voegen of te verwijderen.

Meer informatie

Microsoft verstrekt programmeervoorbeelden alleen ter illustratie, zonder expliciete of impliciete garantie. daaronder mede begrepen, maar niet beperkt tot impliciete garanties met betrekking tot de verkoopbaarheid en/of geschiktheid voor een bepaald doel. In dit artikel wordt ervan uitgegaan dat u bekend bent met de programmeertaal VBScript, alsmede met de hulpprogramma's waarmee procedures worden gemaakt en waarmee fouten in procedures worden opgespoord. Ondersteuningsmedewerkers van Microsoft kunnen helpen bij de uitleg over de functionaliteit van een bepaalde procedure. Deze medewerkers zullen de voorbeelden echter niet aanpassen om extra functionaliteit toe te voegen of om procedures te maken die aan uw specifieke eisen voldoen. Als u rijen of kolommen op meerdere bladen wilt invoegen of verwijderen, gebruikt u een For Each... Volgende instructie om alle vereiste bladen te doorlopen of de rijen of kolommen te selecteren voordat u de invoeging of verwijdering uitvoert.

Voorbeeldmacro met een lus om rijen in te voegen in meerdere bladen

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

Voorbeeldmacro om een kolom te selecteren en een nieuwe kolom in te voegen

In de volgende voorbeeldmacro wordt de hele kolom geselecteerd voordat nieuwe kolommen worden ingevoegd:

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