alle rijen van een range verwijderen

[Melten]

Hallo ik heb in een excel worksheet een gebied de naam klanten gegeven.
Ik zoek een stukje vba code om alle rijen van het gebied waar de klanten in liggen te verwijderen.
Bv klanten is (a1..d10). De vba code moet rij 1 t/m 10 verwijderen.
Wie kan mij hiermee helpen?

 

[Jan van Asseldonk]

Met de volgende macro moet dat lukken

Sub Macro1()
Application.Goto Reference:="Klanten"
Selection.EntireRow.Delete
End Sub

 

[Melten]

de eerste en laatste regel niet verwijderen

Jan de regels worden verwijderd dank voor je oplossing. Nadat ik het toe had gepast bleek dat ik de eerste en laatste regel van de selectie niet kan weghalen omdat er andere zaken in de sheet dan misgaan. Het aantal regels van de selectie is echter niet constant.
Heb je toevallig hier ook een oplssing voor zodat de eerste en laatste regel niet weggehaald worden.

Groeten,
Melten

 

[Jan van Asseldonk]

Mits er onder de benoemde range Klanten minimaal één lege rij staat zou onderstaande macro moeten werken. De messageboxen kun je eventueel verwijderen. Deze zijn puur voor controle.

Sub RijenWeg()
'
'
Dim RijE As Integer
Dim RijB As Integer
Dim RijWeg As String
'
Application.Goto Reference:="Klanten"
RijB = ActiveCell.Row
Selection.End(xlDown).Select
RijE = ActiveCell.Row
Application.Goto Reference:="Klanten"
ActiveCell.Select
MsgBox ("1e rij = " & RijB & vbCrLf & "Laatste rij = " & RijE)
MsgBox ("Rij " & RijB + 1 & " tot en met " & RijE - 1 & " worden verwijderd")
RijWeg = RijB + 1 & ":" & RijE - 1
MsgBox (RijWeg)
Rows(RijWeg).Delete shift:=xlUp
End Sub