VBA Excell: kopier og indsæt

Start på at optage en macro, gør det du vil, og stop optagningen. Herefter har du koden:

    Rows("3:3").Select
    Selection.Copy
    Rows("4:4").Select
    Selection.Insert Shift:=xlDown

Ovenstående sætter en kopi af række 3 ind nedenunder.

Du kan jo bare bruge activecell, hvis det skal virke på den celle (række) der er markeret

altså sådan her, hvis den skal sætte en kopi af den række, hvor en celle er markeret, ind nedenunder selvsamme række

    Dim RowNumber As Long
    RowNumber = ActiveCell.Row
    Rows(RowNumber).Select
    Selection.Copy
    Rows(RowNumber + 1).Select
    Selection.Insert Shift:=xlDown

en variant

    Rows(ActiveCell.Row).Copy
    Rows(ActiveCell.Row).Offset(1, 0).Insert Shift:=xlDown
    ActiveCell.Offset(1, 0).Select
    Application.CutCopyMode = False

Hej begge. Tak for kompetent og hurtig feedback

De virker jo begge upåklageligt. Tak :-)

nicolaus