Problem SpecialPaste-Methode
MrX
ich habe ein Programm geschrieben, welches aus Outlook auf eine Excel-Datei zugreift. Dabei _
sollen die Daten einer Zelle (die eine Formel enthält) kopiert und nur die Werte in eine andere Zelle geschrieben werden. _
Folgenden Code habe ich dafür entworfen:
Sub testc()
Set objexcel = CreateObject("Excel.Application")
objexcel.Application.Visible = True
Set objMappe1 = objexcel.workbooks.Open("C:\Users\daniel.roeder\Desktop\Mappe1")
objMappe1.Worksheets("Tabelle1").Range("C2").Copy
objMappe1.Worksheets("Tabelle1").Range("E2").PasteSpecial Paste:=xlPasteValues
End Sub
Bei der letzten Zeile bekomme ich die Fehlermeldung "Laufzeitfehler '1004!: Die PasteSpecial-Methode des Range-Objektes konnte nicht ausgeführt werden."
Was mache ich falsch bzw. wie bekomme ich es hin, dass ich nur die Werte in die neue Zelle schreiben kann.
Würde mich über ein Feedback sehr freuen.
Grüße
MrX