Via macro gedeelte van een rij invoegen?

[fun_surfer]

Beste allemaal, ik heb via een macro een pop-up venster waarin gevraagd wordt welke rij ik wil invoegen. Nu wil ik eigenlijk dat van de gekozen rij alleen de cellen A[DoelRij]:M[DoelRij] worden ingevoegd, vanwege 2 soorten sortering. Heeft iemand enig idee hoe ik dit kan doen zonder hierbij toch weer aan een rij vast te zitten?

Alvast bedankt, fun_surfer.

Sub rij_invoegen()
'
' rij_invoegen Macro
'

'
Range("A22").Select
Selection.AutoFilter Field:=1
Application.Run "archiefinventaris.xls!programmasortering"
DoelRij = InputBox("Geef op waar de nieuwe rij ingevoegd moet worden:")
Rows(DoelRij).Select
Selection.Insert Shift:=xlDown
End Sub

EDIT: Range is (A 2 : D 2), dus zonder smiley

 

[brutus]

Hoi,

Probeer het volgende eens:

Sub rij_invoegen()
'
' rij_invoegen Macro
'

'
Range("A2:D2").Select
Selection.AutoFilter Field:=1
Application.Run "archiefinventaris.xls!programmasortering"
DoelRij = InputBox("Geef op waar de nieuwe rij ingevoegd moet worden:")

'Nieuw toegevoegde regel:
Range("A" & DoelRij & ":M" & DoelRij).select

Selection.Insert Shift:=xlDown
End Sub

 

[fun_surfer]

Geweldig Brutus, hij werkt perfect! Ik heb met je voorzetje de macro helemaal naar mijn hand gezet; ik houd er 2 soorten sortering op na en dit lukt nu nog steeds!
Dank je wel voor je tip, grtz fun_surfer. :thumb:

P.S.: Mocht je de toepassing willen zien: de macro rij_invoegen begint door ctrl+q.