VBA: PasteSpecial-Methode der Range-Klasse fehlgeschlagen

Question

Ich verwende dies, um Aufträge von der neuen Bestellungen Seite auf die vorherige Bestellungen Seite bewegen, aber ich bekomme den Titel Fehler, wenn ich versuche, es auszuführen. Ich habe mir verschiedene Orte angeschaut, um zu versuchen, es zur Arbeit zu bringen, und ich sehe, dass ihre Arbeit funktionieren sollte, meine aber nicht.

Sheets("New_Orders").Range("B3:E29").Cut 

Sheets("Previous_Orders").Range("B31").PasteSpecial Paste:=xlPasteValues 

Dies ist mehr Code, soll das Gleiche tun, das nicht funktioniert entweder

Sheets("New_Orders").Select 
Range("B3:E29").Select 
Selection.Cut 
Sheets("Previous_Orders").Select 
Range("B:B").Find("").Select 
ActiveSheet.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False 

ich Selection.Copy auch versucht haben. Es gab den gleichen Fehler

Answer 1

Wie oben im Kommentar erwähnt, können Sie nur alles einfügen, wenn Sie Schnitt verwenden. Wenn nur Werte gewünscht sind, dann weisen Sie die Werte direkt zu und löschen Sie den Bereich.

Sub foo() 
Dim rng As Range 
Dim lastRow As Long 

Set rng = Sheets("New_Orders").Range("B3:E29") 
With Sheets("Previous_Orders") 
    lastRow = .Cells(.Rows.Count, 2).End(xlUp).Row + 1 
    .Cells(lastRow, 2).Resize(rng.Rows.Count, rng.Columns.Count).Value = rng.Value 
End With 
rng.Clear 
End Sub