ich benötige Hilfe bei nachfolgendem Macro. Es stoppt immer mit Laufzeitfehler 1004: Paste-Methode des Worksheet-Objekt konnte nicht ausgeführt werden und verweist dabei auf ActiveSheet.Paste
Es soll der Inhalt einer Word Datei kopiert und danach in eine Excel Datei in Sheet Import_Dat eingefügt werden.
Es funktioniert auch alles aber die Daten aus der Zwischenablage werden nicht in das Sheet kopiert.
Es wird aber die richtige Zelle ausgewählt und die Daten befinden sich auch in der Zwischenablage. Wenn ich nach der Fehlermeldung manuell mit STRG+V einfüge sind die Daten da.
Sub StatusImport()
Dim Word As Object
Dim wbZiel As Workbook
Set Word = CreateObject("Word.Document")
With Word.Application
.Visible = True
.Documents.Open "\\xyz\ein Dokument.docx"
.Selection.WholeStory
.Selection.Copy
.ActiveDocument.Saved = True
.Quit
End With
Application.Goto Worksheets("Import_Dat").Range("A3")
ActiveCell.Activate
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
Kann mir jemand helfen und den Grund für den Fehler erklären?
Gruß
Mike