Automatisch invoegen witregel

[dennis8]

Hallo,

In een excelbestand wil ik automatisch een witregel laten invoegen. Deze witregel moet ingevoegd worden als in kolom A de data wijzigt.

Ter verduidelijking:
In kolom A komen getallen voor waarbij bijvoorbeeld A1 t/m A10 de waarde 150 bevat. In A11 t/m A13 staat het getal 200, in A14 t/m A25 het getal 40 et cetera. Nu is het dus de bedoeling om tussen A10/A11, A13/A14 en A25/A26 een witregel te plaatsen. Ik heb dankzij dit forum de volgende Macro gevonden:

Sub LegeRegels()
Dim lRij As Long
    lRij = 2
    While Range("A" & lRij).Value <> ""
        With Range("A" & lRij)
            If .Value <> .Offset(-1, 0).Value And .Offset(-1, 0).Value <> "" Then .Insert
            lRij = lRij + 1
        End With
    Wend
End Sub

Deze werkt deels, want er komt enkel een witregel in kolom A. Ik heb meer informatie staan in de kolommen B t/m G, dus zou ook daar een witregel moeten komen. Wie kan mij helpen met deze toevoeging?

Edit: De oorspronkelijke code werkt ook niet optimaal voor kolom A, ik zie nu dat er nog zo nu en dan een waarde wordt overgeslagen (waar dus geen witregel tussen komt).

 

[VenA]

Rijen invoegen en verwijderen moet je van beneden naar boven doen.

Sub VenA()
For j = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
  If Cells(j, 1) <> Cells(j - 1, 1) Then Cells(j, 1).EntireRow.Insert
Next j
End Sub