Offset und Größe ändern mit vba

Ich habe einige Probleme mit dem, was ich denke, ist eine einfache vba-Befehl:

Worksheets("Sheet").Range("namedrange_d").Resize(0, 4).Offset(6, 0).Copy _
  Destination:=Worksheets("Sheet1").Range("namedrange").Resize(0, 4).Offset(6, 0)

Möchte ich kopieren Standardeinstellungen Bereich von 5 Zellen breit, dass 7 Zellen unterhalb einer Referenz-Zelle (namedrange_d). Was ist das problem mit der syntax?

InformationsquelleAutor kirk | 2013-04-08

  1. 7

    Null ist kein gültiges argument für die Größe. Wenn Sie möchten, um die ursprüngliche Größe des Bereichs, einfach weglassen, das argument. Andernfalls müssen Sie die Anzahl der Zeilen und Spalten explizit. Hier ist, wie Sie halten würde, die ursprüngliche Anzahl der Zeilen

    Worksheets("Sheet").Range("namedrange_d").Resize(, 4).Offset(6, 0).Copy _
  Worksheets("Sheet1").Range("namedrange").Resize(, 4).Offset(6, 0)
    Ich Stimme zu das ist die beste Antwort - die am nächsten zu den OP ' s versuchen, aber richtige(!) Ich mag die Verwendung von den leeren parameter in Resize(,4) - +1 für das.

    InformationsquelleAutor Dick Kusleika

  2. 1

    Zuerst offset, dann verwenden Sie Range("A1:E1") Verweis auf die 5-Spalten-Breite Fläche:

    Worksheets("Sheet").Range("namedrange_d").Offset(7,0).Range("A1:E1").Copy Destination:=Worksheets("Sheet1").Range("namedrange")

    ... Das sollte alles sein, was Sie brauchen,

    InformationsquelleAutor John Bustos

  3. 1

    Ich würde Folgendes machen (ich bin sehr explizit - das führt dazu, dass der code, der leichter zu Lesen und zu Debuggen, die mit minimaler Geschwindigkeit Auswirkungen. Es ist nicht "clever".):

    Dim dataSource As Range
Dim firstCellSource, firstCellDest As Range

Set firstCellSource = Worksheets("Sheet1").Range("namedrange_d").Offset(6, 0)
Set firstCellDest = Worksheets("Sheet1").Range("namedrange").Offset(6, 0)

Set dataSource = Range(firstCellSource, firstCellSource.Offset(0, 4))

dataSource.Copy Destination:=firstCellDest

    Wie dies der code ist im wesentlichen "selbst-Dokumentation" und es ist leicht zu sehen, was Sie tun. Hinweis: Sie müssen nur geben Sie die erste Zelle des Ziels.

    InformationsquelleAutor Floris

Schreibe einen Kommentar