Methode 'Bereich' des Objekts '_Global' Fehlgeschlagen Fehler 1004

Question

Ich sah mehrere Lösungen für dieses Problem und versuchte ein paar von ihnen einschließlich Vorwahlzeitraum "." zu den Keyword-Zellen, aber nicht funktionierte

Im Anschluss an meinem Unter

Sub GJK() 
Dim port_total_periodic_rows As Worksheet 

Dim Target As Worksheet 
Dim i As Integer 
Dim J As Integer 
Dim DTCPYCTR As Integer 
Dim DTPSTCTR As Integer 
Dim FNDPSTCTR As Integer> 
Dim FNDCPYCTR As Integer 

DTCPYCTR = 5 
FNDCPYCTR = 7 
DTPSTCTR = 2 
FNDPSTCTR = 2 

For i = 1 To 138 
    For J = 1 To 113 
    Sheets("port_total_periodic_rows").Cells(DTCPYCTR, 3).Copy 
    Sheets("Target").Cells(DTPSTCTR, 1).PasteSpecial Paste:=xlPasteValues 
    Sheets("port_total_periodic_rows").Range(Cells(FNDCPYCTR, 2), _ 
               Cells(FNDCPYCTR, 4)).Copy 
    Sheets("Target").Range(Cells(FNDPSTCTR, 2), _ 
       Range(FNDPSTCTR,4)).PasteSpecial Paste:=xlPasteValues 

    FNDPSTCTR = FNDPSTCTR + 1 
    FNDCPYCTRT = FNDCPYCTR + 1 
    DTPSTCTR = DTPSTCTR + 1 

    Next 

    DTCPYCTR = DTCPYCTR + 1 
Next 

End Sub 

Answer 1

standardmäßig Cells() auf die Active bezieht, so wird dieses fehlschlagen, wenn das aktive Blatt nicht „port_total_periodic_rows“ ist:

Sheets("port_total_periodic_rows").Range(Cells(FNDCPYCTR, 2), _ 
              Cells(FNDCPYCTR, 4)).Copy 

Sollte sein:

With Sheets("port_total_periodic_rows") 
    .Range(.Cells(FNDCPYCTR, 2), .Cells(FNDCPYCTR, 4)).Copy 
End with 

Ähnliches gilt auch für die fo Linie.

Auch besser statt Integer zu verwenden, um mögliche Überlaufprobleme zu vermeiden.