Microsoft Excel

Herbers Excel/VBA-Archiv

usedrange.clear contens bricht ab

Betrifft: usedrange.clear contens bricht ab von: Chris
Geschrieben am: 10.11.2014 08:08:40

Hallo zusammen,

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

  

Betrifft: heißt das nicht -> ClearContents ...owT von: Matthias L
Geschrieben am: 10.11.2014 08:17:38




  

Betrifft: AW: heißt das nicht -> ClearContents ...owT von: Chris
Geschrieben am: 10.11.2014 08:20:07

Hi,

ja tut es :-) - geht trotzdem nicht.


  

Betrifft: :=xlPasteValues ? owT von: robert
Geschrieben am: 10.11.2014 08:48:14