Meerdere rijen tegelijk invoegen

[TottiAs]

Hallo,

Ik heb een Excel bestandje met daarin 594 rijen met gegevens, nu wil ik graag tussen elke regel, 10 legen rijen plaatsen, is hier een of andere formule voor te krijgen, zodat dit automatisch gaat.

Ik hoop dat de vraag zo een beetje duidelijk geformuleerd is, anders hoor ik het graag.

 

[richard1970]

Via VBA

Beste TottiAs,

Welkom op dit forum!

Open je excelbestand, klik op Alt+F11 om naar VBA te gaan.
Klik op Invoegen > Module en plak daarin de volgende code:

Rijen_Invoegen()
    Range("A2:A11").Select
 Do Until ActiveCell.Value = ""
    Selection.EntireRow.Insert
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1:A10").Select
Loop
    ActiveCell.Offset(1, 0).Range("A1:A10").Select
    Selection.EntireRow.Insert
    Range("A1").Select
End Sub

Ga naar Excel, klik op Alt+F8 en dubbelklik op de macronaam 'Rijen_Invoegen'.

Niet de mooiste code ooit, maar wel effectief.

Richard

 

[TottiAs]

Bedankt voor je reactie!!

Helaas kan ik het nog niet helemaal voor elkaar krijgen.

Nadat ik de formule in de module heb geplakt en de VBA heb afgesloten (ga er vanuit dat die automatisch de formule opslaat), kom ik dus weer terug in het Excel bestandje. Dan kom ik via Alt+F8 in het macro venster, maar deze is leeg en kan dus niet "rijen_invoegen" aanklikken.

Waarschijnlijk doe ik toch iets verkeerd, maar wat....

Groeten.

 

[TottiAs]

Trouwens..
Na het afsluiten van het Excel bestand krijg ik de foutmelding.

Compileerfout
Verwacht: =

 

[tilpi]

Het woordje Sub is vergeten

dus:
Sub Rijen_Invoegen()


Mvg

Piet

 

[TottiAs]

Prima.. De formule doet het.

Bedankt voor jullie reactie.

 

[richard1970]

@Piet.
Dankje, snelheidsfoutje.

 

[Wigi]

Hoi allen

zoek het niet te ver:

Sub Rijen_Invoegen()
    For l = 593 To 1 Step -1
        Rows(l + 1).Resize(10).Insert
    Next
End Sub

Wigi