Hallo nochmal,

es ist wirklich wahnsinnig wichtig und ich weiß nicht mehr weiter.
Ich hoffe sehr, dass ihr mir helfen könnt.

Ich habe ein Makro, was Daten aus einem Sheet in ein anderes vorbereitetes Formular kopiert und dieses Formular-Sheet dann in eine Word Datei kopiert.

Das witzige ist, dass es bereits getestet wurde und funktionierte.
Seit ich die Datei das leztztemal öffnete, meckert er aber an folgendem rum:

Laufzeitfehler '4605':

Die Methode 'Paste' für das Objekt 'Selection' ist fehlgeschlagen

Ich versteh leider nicht warum.
Die Zeile obendrüber steht das entsprechende Copy.

Was habe ich nur übersehen ?

Dim appWD As Word.Application
    ' Create a new instance of Word & make it visible
    Set appWD = CreateObject("Word.Application.8")
    appWD.Visible = True
    Set WordDoc = appWD.Documents.Open("C:\...")
    Sheets("2016").Select
    Range("B" & ActiveRow).Copy
    Sheets("Angebot").Range("B11").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Range("H" & ActiveRow).Copy Destination:=Sheets("Angebot").Range("B18:F18")
    Range("K" & ActiveRow).Copy
    Sheets("Angebot").Range("B37").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Range("L" & ActiveRow).Copy
    Sheets("Angebot").Range("B38").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Range("R" & ActiveRow).Copy
    Sheets("Angebot").Range("B39").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Angebot").Select
    Range("A1:H70").Copy
    appWD.Selection.Paste
    If AlsWord_Checkbox.Value = True Then
        appWD.ActiveDocument.SaveAs Filename:=("C:\...)
    End If
     
    If AlsPdf_Checkbox.Value = True Then
        ' Save As Pdf-file
        appWD.ActiveDocument.ExportAsFixedFormat OutputFilename:="C:\...", _
         ExportFormat:=wdExportFormatPDF, Item:=wdExportDocumentWithMarkup, _
         OpenAfterExport:=True, IncludeDocProps:=True, UseISO19005_1:=True, _
         BitmapMissingFonts:=True, OptimizeFor:=wdExportOptimizeForPrint
        'appWD.Quit
    End If