betreft nieuwe rij invoegen

[gast0660]

Hoi,
IK ben op zoek naar een code die naar de laatste niet ingevulde rij gaat in kolom A , en daarboven een nieuwe rij invoegt met behoud van de
layout (randjes, kleur), niet de inhoud van de laatste ingevulde rij. (de laatste niet ingevulde rij heeft een kleurtje maar die mag niet meegenomen worden)
Ik heb nu deze:

Dim Rng As Long
    Dim lngA As Long
    Dim lngB As Long
     
    Application.ScreenUpdating = False
     
    Rng = InputBox("Aantal in te voegen rijen?")
     
    If Rng = 0 Then Exit Sub
     
    Range(ActiveCell, ActiveCell.Offset(Val(Rng) - 1, 0)).EntireRow.Insert
    lngB = ActiveCell.Offset(-1, 0).Row
    lngA = Cells(lngB, Columns.Count).End(xlToLeft).Column
'    Range(Cells(lngB, 1), Cells(lngB + Val(Rng), lngA)).FillDown

Iemand een idee

 

[VenA]

Heb je dezelfde vraag niet hier staan? http://www.helpmij.nl/forum/showthread.php/886691-Bij-code-rijen-invoegen-graag-ook-de-formules-en-layout-mee-invoegen

Doe er anders even een voorbeeldje bij. Hoef ik niets in elkaar te knutselen.:d

 

[gast0660]

Bekijk bijlage rij invoegen.xlsmHoi, VenA,
Bedankt voor je reactie
Het was een gelijkaardige vraag, maar een andere benadering.
Hierbij een vbtje

 

[HSV]

Maak er een Listobject (tabel) van.
Alles wordt automatisch doorgevoerd in een tabel.
Daarna is het een kwestie van de kleurtjes verwijderen.

Zie bijlage.

 

[gast0660]

Hoi,HSV
Daarme kan ik verder Top:thumb:
Groet