Office: VBA - Import Vorgang bricht wegen xlPasteSpecial ab

Hio,

habe dieses Makro zusammengebastelt bzw. mit Hilfe von jemandem zusammengebastelt bekommen:

Code:

Sub Import_datal()
Dim z  As Long, e As Long, g As Long
Dim f As String, sPath As String

ThisWorkbook.Worksheets("Sheet1").Cells.Borders.LineStyle = xlNone
ThisWorkbook.Worksheets("Sheet1").Cells.Font.Name = "Calibri"
ThisWorkbook.Worksheets("Sheet1").Cells.Font.Size = 11
ThisWorkbook.Worksheets("Sheet1").Cells = ""

Application.ScreenUpdating = False
Application.DisplayAlerts = False
sPath = "C:\Input\"
Sheets("Sheet1").Select
Cells(2, 1).Select
f = Dir(sPath & "*.xls")
Do While Len(f) > 0
ActiveCell.Formula = f
ActiveCell.Offset(1, 0).Select
f = Dir()
Loop
z = Cells(Rows.Count, 1).End(xlUp).Row
For e = 2 To z
Range(Cells(e, 1), Cells(z, 1)).Sort Key1:=Range(Cells(e, 1), Cells(z, 1)), Order1:=xlAscending
If Cells(e, 1) <> ActiveWorkbook.Name Then
Workbooks.Open Filename:=sPath & Cells(e, 1)
ActiveWorkbook.Worksheets("Output").Range("C10:Z30").Copy
ActiveWorkbook.Close False
x = (e - 2) * 40 + 3
Cells((e - 2) * 40 + 3, 2) = Cells(e, 1)
Range("D" & x).PasteSpecial Paste:=xlPasteAll
Range("D" & x & ":EH" & x + 39).Select
Call Macro1
End If
Next e
Application.DisplayAlerts = True
MsgBox "collating is complete."
End Sub

Macro1 setzt hierbei lediglich nen Rahmen um jeden Eintrag.

Jetzt wollte ich das ganze aber mit Paste:=xlPasteAllUsingSourceTheme durchführen, da ich auch gerne die farbliche Hinterlegung sowie Schriftart der jeweiligen Zellen beibehalten würde. (Das bleibt bei xlPasteAll leider weg)

Führe ich das Makro mit Paste:=xlPasteAllUsingSourceTheme aus, gibt er mir aber den laufzeitfehler 1004 "Die Paste-Special Methode des Range-Objektes konnte nicht ausgeführt werden.

Weiss jemand warum?

Gruß,

Ugh

 

Hallo,

Themes sind ein neues Feature von Excel2007 (genauer gesagt von Office2007).
In der Excel-Hilfe zur Paste-Konstante ist enthalten:

Da Themes neu in Excel2007 dazugekommen sind, ist auch diese Konstante neu in Excel eingefügt worden.

Du liest aber Excel-Dateien im bisherigen Format ein:
f = Dir(sPath & "*.xls")
XLS-Dateien kennen aber noch keine Themes; diese verwendest Du aber als Quelldateien - deshalb ist es nur folgerichtig, dass diese spezielle PasteSpecial-Methode nicht ausgeführt werden kann; denn etwas, was nicht vorhanden ist, kann auch nicht hervorgezaubert werden.

 

Hm, guter Punkt!

hatte das so geschrieben, damit er mir sowohl .xlsm als auch .xlsx dateien einliest.

Ich habe es jetzt aber nochmal mit "*.xlsm" ausprobiert (da die meisten dateien mit makros sein werden) und er hat den Vorgang trotzdem mit dem gleichen Laufzeitfehler abgebrochen