transponeren van samengevoegde cellen

[Gezienus]

In onderstaande code zijn de cellen R40 en R41een samengevoegde cellen. (bestaande uit 4 cellen)
Als ik nu onderstaande code uitvoer zie ik dat deze cellen worden gekopieerd naar HI3 t/m HI6 en HJe t/m HJ6. Ik wil hem echter alleen in HI3 en HJ3.

Windows("Inschrijfformulier.xls").Activate
Range("R40,R41").Select
Selection.Copy
Windows("test.xls").Activate
Range("HI3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True


Wie weet wat ik verder nog moet toevoegen?

 

[DIEZEL]

Excel kan alleen "Cosmetisch" overweg met samengevoegde cellen als eindprodukt.
Voor de rest: Vergeet het. Alleen maar problemen.
Ik ben er nog niet exact achter doch de ene keer geven samengevoegde cellen geen enkel probleem en de andere keer alleen ellende. Een duidelijke lijn heb ik hierin nog niet kunnen ontdekken.

 

[Wigi]

Inderdaad, blijf af van het samenvoegen van cellen.

Indien toch, werkt dit?

Sub samenvoegen()
    Windows("Inschrijfformulier.xls").Activate
    Range("R40,R41").Select
    Selection.Copy
    Workbooks("test.xls").Range("HI3").PasteSpecial xlPasteValues, , , Transpose:=True
    
    With Range("HI3:HI6")
        .Select
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .Merge
    End With
    With Range("HJ3:HJ6")
        .Select
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .Merge
    End With
End Sub

Wigi