Automatisch rij invoegen met (voorwaardelijke) opmaak behouden

[sandmannetje]

Hallo,

Ik ben een standaard meetrapport aan het maken,
en daarbij wil ik graag als in kolom F een waarde in typ in de laatst opgemaakte rij (in voorbeeld rij 21) er automatisch na op enter te hebben gedrukt er een nieuwe rij er onder wordt geplaatst met de tabelopmaak en voorwaardelijke opmaak.
Als je dan in deze rij in kolom F weer een waarde typt, er weer een nieuwe regel wordt aangemaakt.

 

[Cobbe]

Met deze macro zal dat wel lukken:

Sub voeg_in()
    If ActiveCell.Column <> 6 Then Exit Sub
    ActiveCell.EntireRow.Select
    ActiveCell.EntireRow.Copy
    ActiveCell.Offset(1, 0).EntireRow.Insert
    With Selection
         .PasteSpecial Paste:=xlFormulas, Operation:=xlNone, _
                SkipBlanks:=False, Transpose:=False
    Cells(ActiveCell.Offset(1, 0).Row, 6) = ""
    End With
Application.CutCopyMode = False
Cells(ActiveCell.Row + 1, 1).Select
End Sub

Cobbe

 

[sandmannetje]

Super bedankt:d