Rij invoegen

[wheel]

Hallo kenners,

Ik heb al wat rond gezocht, maar gebruik denk ik niet de juiste zoekterm.

Wat ik graag zou willen, is dat ik met een toetsencombinatie (bijv. ctrl-r) een rij invoeg boven een andere rij met behoud van de celeigenschappen.

Met de macro recorder lukt me dat wel, maar dan wordt de rij steeds op dezelfde plaats ingevoegd en dat is niet de bedoeling. De rij moet overal kunnen worden ingevoegd.

Iemand een idee voor een code of zo?

Thnx... Wheel.

 

[Emil S]

wellicht doet deze code wat je wilt:

    With Selection
        .EntireRow.Insert xlDown
        .EntireRow.Copy
        .Offset(-1, 0).EntireRow.PasteSpecial _
            Paste:=xlPasteFormats, _
            Operation:=xlNone, _
            SkipBlanks:=False, _
            Transpose:=False
        Application.CutCopyMode = False
        .Select
    End With

 

[wheel]

Eh.. voor zover ik het kan beoordelen, is dit helemaal wat ik zoek. :thumb:

Hoe voeg ik er nu een sneltoets aan toe? Bijv. ctrl-r

Wheel.

 

[Warme bakkertje]

Extra >> Macro >> Macro's >> Gewenste macro selecteren >> Opties

 

[wheel]

Helemaal top! :thumb:

Thnx..