usedrange.clear contens bricht ab
10.11.2014 08:08:40
Chris
ich möchte ein ExcelSheet mit Daten füllen, um daraus anschließend einen Serienbrief zu drucken. Soweit läuft das auch. Die Datenquelle soll, bevor Daten hineinkopiert werden, noch gelöscht werden.
Excel bricht ab mit der Meldung PasteVorgang konnte nicht ausgeführt werden.
Hat jmd. einen Vorschlag?
Dim Ende As Long
Sheets("Import").Range("AR:AR").AutoFilter Field:=1, Criteria1:="1" 'Filter an (
Ende = Sheets("Import").Cells(Rows.Count, 1).End(xlUp).Row
Application.CutCopyMode = False
Sheets("Import").Range("A1:A" & Ende).Resize(, 43).Copy
Application.WindowState = xlMinimized
Workbooks.Open Filename:="H:\XXX\XXX.xlsx"
With ActiveSheet
.usedrange.clearcontens
.Range("A1").PasteSpecial Paste:=xlValues 'hier wird abgebrochen
.Range("A1").PasteSpecial Paste:=xlFormats
End With
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.WindowState = xlMaximized
ActiveSheet.Cells.AutoFilter
Call Serienb
End Sub