Rij toevoegen met zelfde lay-out (samengevoegde cellen)

[ferwinne]

Ik probeer met vba-code achter de knop "Rij Toevoegen" een rij toe te voegen aan een bereik, waarbij de toegevoegde rij dezelfde lay-out (inclusief de samengevoegde cellen) moet hebben als de bestaande rijen. Het lukt mij maar niet. Kan iemand mij helpen ?
Hartelijke dank.
Ferwinne

 

[RvanGalenLast]

Beste Ferwinne,

Zie de onderstaande code.

Sub RijenInvoegen()
Dim lgLastRow As Long

    lgLastRow = Range("bereik").Cells(Range("bereik").Count).Row
    Rows(lgLastRow).EntireRow.Insert
    Rows(lgLastRow + 1).Copy
    Rows(lgLastRow).PasteSpecial Paste:=xlFormats
    Application.CutCopyMode = False
    Cells(lgLastRow, 1).Select
End Sub

 

[snb]

Vermijd, als je met VBA werkt, het gebruik van samengevoegde cellen.