Verwenden der CurrentRegion-Eigenschaft in VBA

Question

Ich möchte ein einfaches VBA-Makro schreiben, um die Daten in einem Bereich zu kopieren, der dem Zellenblock um eine aktive Zelle in Sheet1 entspricht, und ihn in Sheet2 einzufügen. (vorzugsweise in der gleichen Adresse wie in Sheet1).

Der Code, den ich geschrieben habe, ist:

Option Explicit 
Dim Cello As Range 

Sub CopyCurrentRegion2() 
    Set Cello = Worksheets("Sheet1").Range(ActiveCell.Address) 
    Cello.CurrentRegion.Copy Sheets("Sheet2").Range(Cello) 
End Sub 

Bitte dieses prog korrigieren. Es wird geben Laufzeitfehler: 1004.

Answer 1

Bedenken Sie:

Sub CopyStuff() 
    With ActiveCell.CurrentRegion 
     .Copy Sheets("Sheet2").Range(.Address) 
    End With 
End Sub