Hoi,
Ik heb volgende code
Maar ik wil dat de formules en de layout ook worden meegenomen, niet de inhoud
Iemand een idee?
groet
Ik heb volgende code
Code:
Private Sub CommandButton1_Click()
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
End Sub
Iemand een idee?
groet