VBA Kopierbereich Fehler 1004

Question

Ich erhalte einen 1004-Fehler, wenn Sie diesen Code ausführen:

Dim Row As Integer 
Dim Col As Integer 

Row = Worksheets("Design").Cells(11, 22).Value 
Col = Worksheets("Design").Cells(12, 22).Value 

Worksheets("Tablecorrected").Range(Cells(2 + 19 * Row, 1 + 19 * Col), Cells(19 + 19 * Row, 18 + Col * 19)).Copy _ 
Destination:=Worksheets("Scriptsheet").Range(Cells(1, 1), Cells(18, 18)) 

Es Punkt auf die Kopie Linie, und ich weiß nicht, was hier nicht stimmt. Danke für Ihre Hilfe

Answer 1

Die Cells() innerhalb der Range() beziehen sich auf das aktive Blatt nicht das Blatt, auf das sich die Range() bezieht.

Sie müssen die Cells() für das richtige Blatt qualifizieren.

Worksheets("Tablecorrected").Range(Worksheets("Tablecorrected").Cells(2 + 19 ... and so on. 

oder Eingabe speichern Sie ein mit dem Block

Dim Row As Integer 
Dim Col As Integer 

Row = Worksheets("Design").Cells(11, 22).Value 
Col = Worksheets("Design").Cells(12, 22).Value 

With Worksheets("Tablecorrected") 

    .Range(.Cells(2 + 19 * Row, 1 + 19 * Col), .Cells(19 + 19 * Row, 18 + Col * 19)).Copy _ 
    Destination:=Worksheets("Scriptsheet").Range(Worksheets("Scriptsheet").Cells(1, 1), Worksheets("Scriptsheet").Cells(18, 18)) 

End With