Macro Regels verwijderen

[surfingmaster]

Hallo dames en heren,

Ik zoek een macro waarmee je kunt opgeven hoeveel regels je wilt verwijderen.

Ik heb al wel een macro waarmee je regels kunt toevoegen, maar hem ombouwen lukt mij niet.

Macro om regels toe te voegen:

Sub InsertRows()
ActiveSheet.Unprotect Password:=""
Application.ScreenUpdating = False
Rows("18:18").Copy
Dim rng
rng = InputBox("Enter number of rows required.")
Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(rng - 1, 0)).Insert
Selection.EntireRow.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.ScreenUpdating = True
ActiveSheet.Protect Password:=""
End Sub

Gr,
Erwin

 

[paulva]

Verwijder-macro

Dit zou de klus moeten klaren:

Sub VerwijderRijen()
    Dim intVanaf As Integer
    Dim intHoeveel As Integer
    Dim intTot As Integer
    intVanaf = InputBox("Vanaf welke rij?")
    intHoeveel = InputBox("Hoeveel rijen?")
    intTot = intVanaf + intHoeveel - 1
    Rows(intVanaf & ":" & intTot).Select
    Selection.Delete Shift:=xlUp
End Sub

Wel nog unprotect en sheetupdating instellen.

Beste groeten, Paul.

 

[surfingmaster]

Paul, bedankt voor je maco.

Erwin