Invoegen van geselecteerde cellen

[Ramon4R6]

Graag wil ik m.b.v. een button enkele geselecteerde rijen/cellen invoegen. Indien mogelijk met behoud van opmaak en inhoud, copy, paste. De cellen staan in hetzelfde bestand, mogelijk in een ander tabblad.

Ik heb al van alles gezocht en geprobeerd met VBA maar het wilt niet echt vlotten. Heeft iemand tips hiervoor?

Evt. kan ik een voorbeeld posten (zonder vertrouwelijke info).

 

[OctaFish]

Heb je al geprobeerd om zo'n macro op te nemen? Lukt altijd... En daarna is het aanpassen simpel een kwestie van wat overbodige regels weggooien. Dan hou je zoiets over:

Sub Macro1()
    Selection.Copy
    Sheets("Blad1").Select
    ActiveSheet.Paste
    Selection.Columns.AutoFit
    Range("A1").Select
End Sub

 

[Ramon4R6]

Nog niet, is dit met of zonder behoud van opmaak? Ga ik eens proberen...

Toevallig een werkend voorbeeld van (hier online)?

 

[OctaFish]

Dit is met opmaak. Gewoon Sleuren en Pleuren dus, maar dan met een macro.

 

[Ramon4R6]

Hmmm, ik krijg het alleen werkend zonder behoud van opmaak noch inhoud van de cellen... Ik ben een redelijke beginner op dit gebied, mogelijk zie ik iets over het hoofd?