Rij automatisch invoegen

[Takelwagen]

Ik heb en werkblad met daarin wat gegevens. Ik heb rij "A" al "ind" genoemd. Nu staan er in die rij getallen 1 t/m 120. de getallen komen alleen meerdere malen voor. In de kolom 1 t/m 5 het getal "1" en in 6 t/m 8 "2" en in 9 t/m 15 "3" etc ... Nu raad je het al, nu moet op de grens van 1 en 2 enz. een regel ingevoegd worden. dit kan toch niet zo moeilijk zijn?!..

Bedankt voor iedere z'n medewerking

 

[Takelwagen]

voorbeeldje

In de bijlage een voorbeeld dus op de grens van 1 en 2 , 2 en 3 , 3 en 4 moet een rij worden ingevoegd.

 

[Wigi]

Sub rijinvoegen()

    Dim l As Long
    
    For l = Range("A" & Rows.Count).End(xlUp).Row To 3 Step -1
    
        If Range("A" & l).Value <> Range("A" & l - 1).Value Then
            
            Rows(l).Insert
            
        End If
    
    Next

End Sub

Wigi

 

[Takelwagen]

Wigi,

Bedankt man.... Ben weer sprakeloos