VBA Konvertierung von Kopieren/Einfügen zu Wert = Wert verursacht Fehler 1004

Question

Ich versuche, eine Reihe von Kopieren/Einfügen von Zellbereichen in einen einfacheren (und scheinbar schneller) Wert = Wert Stil zu konvertieren.

im Wesentlichen ich aus dieser gehe,

wb1.Sheets(1).Range(Cells(5, i), Cells(vaLastRow, i)).Copy 
ThisWorkbook.Sheets(strWorkingTableName).Cells(2, 1).PasteSpecial xlPasteValues 
Application.CutCopyMode = False 

dazu

ThisWorkbook.Sheets(strWorkingTableName).Range(Cells(2, 1), Cells((1 + vaLastRow - 5), 1)).Value = wb1.Sheets(1).Range(Cells(5, i), Cells(vaLastRow, i)).Value 

aber wenn ich bekomme ich den gefürchteten „Laufzeitfehler‚1004‘; Anwendungs ​​definiert oder Objekt definierter Fehler ".

Bitte helfen Sie mir herauszufinden, warum ich diesen Fehler bekomme.

Answer 1

Versuchen Sie diesen Code:

with wb1.Sheets(1).Range(Cells(5, i), Cells(vaLastRow, i)) 
    thisworkbook.sheets(strWorkingTableName).cells(2,1).resize(.rows.count, .columns.count).value = .value 
end with 

Answer 2

Ich glaube, es denkt, dass Sie versuchen, mit dem = irgendeine Art von Objekt zu erstellen.

Ich würde vielleicht so etwas wie diese versuchen:

newvalue = wb1.Sheets(1).Range(Cells(5, i), Cells(vaLastRow, i)).Value 
ThisWorkbook.Sheets(strWorkingTableName).Range("your range").Value = newvalue 

Ich glaube, Sie auch so etwas tun kann:

Thisworkbook.Sheets("sheetname1").Range("your range").Copy wb1.Sheets("sheetname2").Range("your range")