Select vermeiden
11.08.2008 14:15:36
Marc
Ich möchte folgenden Code so ersetzen, dass kein Activate bzw. Select mehr vorkommt. Hat einer eine Idee?
Ziel.Activate
lZeile2 = Ziel.Cells(Rows.Count, 1).SpecialCells(xlLastCell).Row
lSpalte2 = Ziel.Cells(1, Columns.Count).SpecialCells(xlLastCell).Column
Ziel.Range(Cells(2, 1), Cells(lZeile2, lSpalte2)).Select
Selection.Delete
Mein Versuch mit
Ziel.Range(Cells(2, 1), Cells(lZeile2, lSpalte2)).ClearContents
hatte einen Laufzeitfehler zur Folge.
Danke