AW: Select vermeiden
11.08.2008 14:31:00
Daniel
Hi
auch innerhalb einer RANGE müssen die CELLS vollständig Referenziert werden, dh.
Ziel.Range(Ziel.Cells(), Ziel.Cells())
(die Angabe ZIEL vor Range kann oftmals enfallen, manchmal führt es aber zu einem Fehler)
da bei dieser Schreibwiese die Zeilen manchmal recht lang werden, behilft man sich mit der WITH-Klammer:
(beachte den Punkt vor RANGE und CELLS, er ersetzt ZIEL, falls es mit WITH so definiert wurde)
with Ziel
lZeile2 = .Cells(Rows.Count, 1).SpecialCells(xlLastCell).Row
lSpalte2 = .Cells(1, Columns.Count).SpecialCells(xlLastCell).Column
.Range(.Cells(2, 1), .Cells(lZeile2, lSpalte2)).Delete
end with
ich arbeite mittlerweile oft mit der Resize-Funktion, was den Code nochmals vereinfacht:
lZeile2 = Ziel.Cells(Rows.Count, 1).SpecialCells(xlLastCell).Row
lSpalte2 = Ziel.Cells(1, Columns.Count).SpecialCells(xlLastCell).Column
Ziel.Cells(2, 1).Resize(lZeile2-1, lSpalte2).Delete
Gruß, Daniel