Knippen plakken in VBA

[Sebastiaan84]

Hallo,

Het is waarschijnlijk een simpele opgave, maar ik kom er niet uit. Ik wil een deel knippen om het vervolgens een aantal regels later weer te plakken.

Het knippen is ondertussen gelukt, echter lukt het mij niet om het een aantal regels lager te plaatsen.

Omdat het plakken zo ging, dacht ik dat het plakken op dezelfde manier ging. Dit is wat ik heb:

Sheets("Sheet1").Range("A3488:BP19321").Cut
Sheets("Sheet1").Range("A3494:BP19327").Paste

Waarbij de laatste regel dus niet werkt.

Kan iemand mij helpen?

Groeten,
Sebastiaan

 

[snb]

[Sheet1!A3488:BP19321].Cut [Sheet1!A3494]

 

[Sebastiaan84]

[Blad1!A3488:BP19321].Cut
[Blad1!A3494].Paste

Dit werkt ook niet.

 

[Relleboer]

zou het zo moeten doen

Sheets("Sheet1").Range("A3488:BP19321").Cut Range("A3494:BP19327")

of anders zo

Sheets("Sheet1").Range("A3488:BP19321").Cut
Sheets("Sheet1").Range("A3494:BP19327").Pastespecial

 

[snb]

   Rows("3482:3488").Insert xlDown

 

[Sebastiaan84]

zou het zo moeten doen

Sheets("Sheet1").Range("A3488:BP19321").Cut Range("A3494:BP19327")

of anders zo

Sheets("Sheet1").Range("A3488:BP19321").Cut
Sheets("Sheet1").Range("A3494:BP19327").Pastespecial

Hartelijk bedankt! Hij doet het nu inderdaad.


Groeten,
Sebastiaan

 

[snb]

Kijk ook nog eens naar mijn aangepaste versie.

 

[Sebastiaan84]

Ook bedankt voor je reatie snb!

 

[Wigi]

Sheets("Sheet1").Range("A3488:BP19321").Cut
Sheets("Sheet1").Range("A3494:BP19327").Pastespecial

Dit werkt niet. Pastespecial werkt enkel na een Copy, niet na een Cut.