regel invoegen met VBA

[Egbert12345]

Hoi,

Zie mijn voorbeeld. Ik wil graag met VBA een regel invoegen, maar dan alleen de regels die grijs gearceerd zijn. Er moet alleen een regel daaronder worden ingevoegd en bij voorkeur zonder de arcering. Ik heb werkelijk geen idee hoe ik dat moet doen. Kunnen jullie mij helpen?

groet Egbert

 

[SjonR]

zoiets?

Sub SjonR()
For i = Range("B" & Rows.Count).End(xlUp).Row To 5 Step -1
    If Cells(i, 2).Interior.Color = 15921906 Then
        Rows(i + 1).Insert
        Rows(i + 1).Interior.Color = xlNone
    End If
Next
End Sub

 

[Egbert12345]

Bedankt maar weer.

 

[snb]

De zin ontgaat me, maar:

Sub M_snb()
    For Each it In Sheet1.Columns(3).SpecialCells(4)
       If it.Offset(, 1) <> "" Then Rows(it.Row + 1).Insert
    Next
End Sub

of beter:

Sub M_snb()
   Sheet1.Cells.UnMerge
   For Each it In Sheet1.Columns(3).SpecialCells(4)
      If it.Offset(, 1) <> "" Then it.RowHeight = 2 * it.RowHeight
   Next
End Sub