automatisch 3 lege regels invoegen

[nizinny1964]

Hallo,

Ik heb een testbestandje waarin getallen staan. Nu moeten er 3 lege regels worden ingevoegd zodra het getal wijzigt. Ik heb het zoals je in testbetandje ziet 2x handmatig gedaan, maar volgens mij moet het ook automatisch kunnen. Maar hoe weet ik niet. Wie kan me helpen?
vr.gr. Peter

 

[janus1janus1]

Sub invoegenregels()
R = 2 'start rij
getal = ActiveSheet.Cells(R, 1)
Do While getal <> Empty
getal = ActiveSheet.Cells(R, 1)
volgendgetal = ActiveSheet.Cells(R + 1, 1)
If getal <> volgendgetal Then
Cells(R + 1, 1).Select
For i = 1 To 3
Selection.EntireRow.Insert
Next i
R = R + 3
End If
R = R + 1
Loop
End Sub

Bij deze code ga ik er wel vanuit dat er geen lege regels aanwezig zijn.
succes
Janus