Macro centreren en samenvoegen

[verhoog]

In excel kun je gemakkelijk twee cellen samenvoegen en gelijk de inhoud centreren door de knop in de menubalk te gebruiken (merge & center).

Nu lukt dat niet om dat met meerdere selecties tegelijk te doen, bijv A1:A2, C1:C2, A5:A6 etc. Je moet iedere keer eerst 2 cellen selecteren en dan op de knop duwen en vervolgens weer van voren af aan. Heeft iemand een macro die dat wel kan??

 

[jen]

Het werkt wel als je klikt op celeigenschappen, uitlijning, cellen samenvoegen.
Vervolgens moet je op centreren klikken.

Ik denk dat je dit wel in een macro kunt opnemen.

 

[Ingrid B]

Sub Samenvoegen()
Dim c As Range
  For Each c In Selection.Areas
    c.Merge
  Next c
End Sub

kopieer de macro naar een module

 

[verhoog]

Thx Ingrid, ik ga m gelijk proberen.

 

[Jhon van der Bo]

Voeg cel A1:A2 samen.
Ga rechtsonder cel A2 staan en sleep deze naar rechts.

Je kunt toch ook cel A1:A2 samenvoegen / copy & paste

 

[verhoog]

Jhon, dat is niet precies wat ik bedoelde. Ik wilde gewoon willekeurig waar op het werkblad een variabel aantal cellen samenvoegen. De macro doet perfect zijn werk....