AW: Vollständige Ref. innerhalb von Range()
08.06.2009 22:37:47
Range()
Hi
wird eine Range über 2 Cells definiert, so muss die vollständige Referenzierung an den beiden CELLS-Objekten innerhalb der RANGE-Anweisung erfolgen, dh.
Workbooks(DNSB).Sheets("Bericht1").Range(Cells(jj, 6), Cells(jj, 77)).Copy
ist falsch, korrekt wäre:
Range(Workbooks(DNSB).Sheets("Bericht1").Cells(jj, 6), Workbooks(DNSB).Sheets("Bericht1").Cells(jj, 77)).Copy
da sowas den Code natürlich aufbläht, arbeite ich in solchen Fällen lieber mit der .Resize-Methode:
Workbooks(DNSB).Sheets("Bericht1").Cells(jj, 6).Resize(1, 72).Copy
außerdem reicht es, nach Copy beim Einfügen nur die linke obere Ecke des Einfügebereichs anzugeben:
Workbooks(DNSB).Sheets("Bericht1").Cells(jj, 6).Resize(1, 72).Copy
Workbooks(Datei).Sheets("Top_BN").Cells(j, 77).PasteSpecial xlPasteall
Gruß, Daniel