Warum kann ich nicht löschen
13.07.2005 14:42:26
philipp
[Code]
Workbooks.Open Filename:=ThisWorkbook.Path & "\protokoll_" & dateiname & ".xls"
maxRow = ActiveSheet.Cells.Find(What:="*", After:=ActiveSheet.Range("A1"), _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Range("A13:G" & maxRow).Copy
Range("A13:G" & maxRow).Delete
[\Code]
Aber anstat, so wie ich das vorgesehen habe, den ausgewählten Bereich zu löschen, tut er einfach so als wäre der Befehl nicht da. Ich kann einfach nicht löschen. Kopieren, ist kein Problem. Aber Ausschneiden oder löschen, kann man nicht.
Wisst ihr vielleicht woran das liegt? Habe ich die Datei vielleicht Schreibgeschützt geöffnet? Wißt ihr, wie ich das ändern kann?
Vielen Dank für eure Hilfe.
Philipp