Vissible Cells kopieren

[AatB]

Geacht forum,

sinds enige tijd probeer ik de zichtbare cellen te kopieren naar een nieuwe sheet.
Ik gebruik hiervoor de volgende code:

    Set RR = Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible)
    Workbooks.Add
    RR.Copy Destination:=Sheets(1).Range("A1")

Dit gaat prima, ware het niet dat de kolombreedte en de rijhoogte niet meekomen.

Natuurlijk kan ik dat met de volgende code oplossen, maar is hier geen elegantere oplossiing voor?

    Cl = 0
    For Each R In RR.Columns
        Cl = Cl + 1
        Columns(Cl).ColumnWidth = R.ColumnWidth
    Next
    
    Rw = 0
    For Each R In RR.Rows
        Rw = Rw + 1
        Rows(Rw).RowHeight = R.RowHeight
    Next

Ik hoor graag van jullie.

mvg,

Aat

 

[spaarie]

De kolombreedte kan je als .PasteSpecial kwijt, maar de rijhoogte niet. Daar zal je altijd de additionele code voor moeten gebruiken...
Om het eleganter te maken zou je natuurlijk de additionele code kunnen samenvoegen met je meest bovenstaande code...

 

[AatB]

thanks...