automatisch rijen inlassen

[bernie6]

zit met een vraagje;
in een zeer groot excelbestand wil ik met een regelmatig interval telkens 28 rijen inlassen
voorbeeld:
in E6 begint een beoordeling
de volgende beoordeling begint in E23, de volgende in E40 (dus met steeds eenzelfde interval) dus per beoordeling zijn er 17 regels voorzien;
nu wil ik via een macro het totale bestand aanpassen zodat er steeds 45 regels bestaan voor de beoordeling

ik begin dus in E6, er moeten dus telkens 28 regels extra ingevoegd worden (de volgende beoordeling begint dan in E51, de volgende in E96 enz...)
ben zelf leek qua vba, vandaar die vraag

met dank

PS: het gaat om een 200-tal beoordelingen, dus 200 keer moeten die regels ingelast zijn; dit is nogal omslachtig om dit beoordeling per beoordeling te doen, vandaar

 

[sylvester-ponte]

neem een macro op en plaats hem onder een knop

 

[Warme bakkertje]

Probeer onderstaande eens uit op een kopie van je bestand.
Wijzig de 40 in het rijnummer waar nu de laatste beoordeling begint.

Sub tst()
    For i = 40 To 23 Step -17
    Rows(i).EntireRow.Resize(28).Insert
    Next
End Sub

 

[bernie6]

bedankt, het werkt perfect