Aktive Zeilennummer übergeben

Question

Sub Makro14()
'
' Makro14 Makro
' Makro am 27.02.2009 von aufgezeichnet
'

'
Rows("3:3").Select
Selection.Cut
Rows("2:2").Select
Selection.Insert Shift:=xlDown
End Sub

Hallo zusammen

Ich möchte statt "Rows("3:3").Select" die aktive Zeilennummer
von der aus das Makro ausgeführt wird, übergeben.
Habe leider keine Ahnung von VB, sorry.

Besten Dank für eure Hilfe.

Answer 1

hi all ^^

wie gewuenscht

gruss nighty

Sub Makro14()
Rows(ActiveCell.Row & ":" & ActiveCell.Row).Cut
Rows("2:2").Insert Shift:=xlDown
End Sub

Answer 2

Cool, besten Dank nighty :-)