Rijen invoegen zonder opmaak

[KeBr]

Beste,

Ik ben in een Excel bestand bezig waar onder elke rij een lege rij moet komen. de macro hiervoor heb ik wel.
Het probleem is dat ook de opmaak meegaat naar de lege rijen.
Hoe kan ik zorgen dat er gewoon blanke rijen komen.

Alvast bedankt voor de reacties

 

[edmoor]

Door de macro zo te maken dat 'ie dat doet.

 

[KeBr]

Beste Edmoor,

bedankt voor je reactie, alleen krijg ik het niet voor elkaar. Ik gebruik onderstaande macro om lege rijen in te voegen. Waar moet ik aangeven dat de opmaak niet mee mag os na het invoegen verwijderd word wordt?

Sub InvoegenLegeRijenMetInterval()
Dim Rng As Range
Dim xInterval As Integer
Dim xRows As Integer
Dim xRowsCount As Integer
Dim xNum1 As Integer
Dim xNum2 As Integer
Dim WorkRng As Range
Dim xWs As Worksheet
xTitleId = "Excel Wiki - Excel.wiki"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xRowsCount = WorkRng.Rows.Count
xInterval = Application.InputBox("Interval rijen ", xTitleId, 1, Type:=1)
xRows = Application.InputBox("Hoeveel rijen invoegen na de interval? ", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Row + xInterval
xNum2 = xRows + xInterval
Set xWs = WorkRng.Parent
For i = 1 To Int(xRowsCount / xInterval)
xWs.Range(xWs.Cells(xNum1, WorkRng.Column), xWs.Cells(xNum1 + xRows - 1, WorkRng.Column)).Select
Application.Selection.EntireRow.Insert
xNum1 = xNum1 + xNum2
Next
End Sub

 

[edmoor]

Daar schieten we niet veel mee op.
Ten eerste moet je code voor de leesbaarheid in codetags plaatsen.
Ten tweede is een voorbeeld document gewenst.