kolom kopieren zonder opmaak

[jansm]

beste lezers,
ik wil een opgemaakte kolom ON-opgemaakt kopieren naar een ander tabblad. Onderstaande regel komt ook opgemaakt aan! Wat moet ik aanpassen?

Sheets("blad1").Columns("A:B").Copy Sheets("blad3").Range("A1")

 

[edmoor]

Dit bijvoorbeeld:

Sheets("blad3").Columns("A:B") = Sheets("blad1").Columns("A:B").Value

 

[jansm]

doet het edmoor, maar waarom is deze methode veel langzamer dan het kopiëren van mijn opgegeven manier (9000 regels)?

 

[edmoor]

Pas het bereik aan, hij kijkt nu naar alle mogelijke 1,4 miljoen regels.

 

[VenA]

Met jouw methode wordt er niets beperkt op 9k regels. Hoewel er van alles te verzinnen is waarom bepaalde code traag is, is het niet te bepalen obv 1 regel code......

Zet het automatisch berekenen maar even tijdelijk uit dan zal het waarschijnlijk al een stuk sneller gaan.

 

[HSV]

Er is ook een methode die wat sneller werkt met gehele kolommen.

Sheets("blad1").Columns("A:B").Copy 
Sheets("blad3").Range("A1").pastespecial xlpastevalues