Voor een excel bestand was ik op zoek naar een methode om lege rijen toe te voegen in een lange excel lijst. Handmatig zou dit mijn hele avond gekost hebben. Via de website ExtendOffice kwam ik de volgende VBA code tegen.


VBA code toevoegen in Microsoft Visual Basic for Applications

Open een nieuw bestand of een bestand waarin je de VBA wilt gebruiken. Druk op de toetsencombinatie ALT + F11 om de Microsoft Visual Basic for Applications te openen. Plak de volgende VBA code en sla het bestand op als Excel-werkmap met macro’s.

Sub InvoegenLegeRijenMetInterval()
Dim Rng As Range
Dim xInterval As Integer
Dim xRows As Integer
Dim xRowsCount As Integer
Dim xNum1 As Integer
Dim xNum2 As Integer
Dim WorkRng As Range
Dim xWs As Worksheet
xTitleId = "Theo Schipper - www.theoschipper.nl"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xRowsCount = WorkRng.Rows.Count
xInterval = Application.InputBox("Interval rijen ", xTitleId, 1, Type:=1)
xRows = Application.InputBox("Hoeveel rijen invoegen na de interval? ", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Row + xInterval
xNum2 = xRows + xInterval
Set xWs = WorkRng.Parent
For i = 1 To Int(xRowsCount / xInterval)
 xWs.Range(xWs.Cells(xNum1, WorkRng.Column), xWs.Cells(xNum1 + xRows - 1, WorkRng.Column)).Select
 Application.Selection.EntireRow.Insert
 xNum1 = xNum1 + xNum2
Next
End Sub

VBA invoegen lege rijen uitvoeren

Om de VBA uit te voeren klik op de knop Macro’s weergeven of gebruik de toetsencombinatie ALT + F8. Selecteer de macro InvoegenLegeRijenMetInterval en klik op uitvoeren.

1. Selecteer het bereik van de rijen en klik op OK.

Excel Range selecteren
afbeelding 1

2. Selecteer in de volgende pop-up om de hoeveel rijen moet er een lege rij worden toegevoegd en klik op OK.

Excel Interval rijen
Afbeelding 2

3. Selecteer in de pop-up hoeveel rijen er moeten worden toegevoegd na elke interval en klik op OK.

Excel aantal rijden invoegen
Afbeelding 3

De macro wordt nu uitgevoerd. Na elke rij worden er twee lege rijen ingevoegd. Zie afbeelding 4 voor het eindresultaat.

Excel Resultaat lege rijen invoegen
Afbeelding 4