Wie kan mij helpen mijn macro af te maken?

[tsmdewit]

Beste mensen,

Ik heb een macro bij elkaar gepuzzeld als relatieve leek op het gebied van VBA.
Ik ben toch zover gekomen dat ik een aardige macro heb geschreven die net niet doet wat ik wil. Kunnen jullie mij helpen.

Wat de onderstaande macro wel doet is:
1. Message box openen en vragen hoeveel rijen ik wil.
2. Boven mijn actieve cel altijd maar 1 rij kopiëren en opmaak plakken. Dit moet het aantal zijn dat in de message box wordt aangegeven.
3. Excel blijft de 'walking ants' aangeven. De regel Application.CutCopyMode = False werkt niet (goed).

Sub RijenInvoegen()
On Error GoTo Fout
Regel = InputBox("Hoeveel regels wil je erbij?")
For i = 1 To Regel
Rows(ActiveCell.Row).EntireRow.Copy
Rows(ActiveCell.Row).EntireRow.Insert Shift:=xlShiftDown
Rows(ActiveCell.Row).PasteSpecial Paste:=xlPasteformatting
Application.CutCopyMode = False
Next i

Fout: End Sub

 

[DigiCafee]

Lijkt niet zo'n geliefd statement te zijn : https://www.automateexcel.com/vba/application-cutcopymode-false/#Avoiding_CutCopyMode_False

 

[HSV]

Het zou zoiets kunnen zijn.

Sub hsv()
Dim x As Long
 x = Application.InputBox("geef getal in", "aantal rijen", "bv. 3", , , , , 1)
 If x > 0 Then Rows(ActiveCell.Row).Resize(x).Insert , xlBelow
End Sub