Invoeren regel met behoud van opmaak binnen naambereik

[Vieri]

Hallo Excel wizzards,

zie hieronder mijn macro om een lege regel in te voeren onderaan tabel met naambereik 'Voeding' in kolom A

Sub AddRow()
With Range("Voeding")
.Rows(.Rows.Count + 1).EntireRow.Insert
.Resize(.Rows.Count + 1).Name = .Name.Name

End With
End Sub

Hierdoor wordt er een lege regel ingevoegd onderaan het naambereik 'Voeding' en zorgt ervoor dat de nieuwe lege regel ook nog binnen het naambereik valt.

Ik krijg het alleen niet voor elkaar om dezelfde opmaak via .FillDown mee te nemen. De kolommen in gebruik zijn A t/m T, misschien dat dit mee genomen dient te worden in de code?

Is deze actie ook om te keren? (dus de laatste regel onderaan de tabel met naambereik 'Voeding' te verwijderen)

Alvast bedankt!!

 

[VenA]

Maak gebruik van een echte tabel (Listobject) of plaats het bestandje even.

 

[gast0660]

@ Vena,
In het volgende postje van TS heb ik het zelfde antwoord gegeven op zijn Belgs, maar volgens mij komt het op hetzelfde neer.

 

[puppie]

Twee keer dezelfde vraag stellen is bij ons niet toegestaan.
daarom sluit ik dit topic en kun je hier verder gaan.
http://www.helpmij.nl/forum/showthr...an-tabel-met-naambereik-met-behoud-van-opmaak