AW: Anwendungs- objektorientierter Fehler bei Range
02.01.2011 20:48:07
Daniel
Hi
du musst das Tabellenblatt auch bei den Cells innerhalb der Range angeben! (dafür darfst du es dann vor der Range weglassen:)
Bei der Angabe des Ziels reicht es, nur die Linke obere Ecke anzugeben.
der vollständige Bereich muss nur angegeben werden, wenn er grösser ist als der Kopierte Bereich (um Daten zu vervielfachen)
Range(Sheets("aktionen").Cells(zeile, 2), Sheets("aktionen").Cells(zeile, 8)).Copy Sheets("EreignisDummy").Cells(zeile, 2)
da der Code dadurch aber sehr aufgebläht wird, arbeitet man lieber mit der WITH-Klammer ( die _
EIN Objekt ersetzen kann, beachte den Punkt vor Cells)
With Sheets("aktionen")
Range(.Cells(zeile, 2), .Cells(zeile, 8)).Copy Sheets("EreignisDummy").Cells(zeile, 2)
End With
oder mit der Resize-Funktion:
Sheets("aktionen").Cells(zeile, 2).Resize(, 7).Copy Sheets("EreignisDummy").Cells(zeile, 2)
Gruß, Daniel