Thema Datum  Von Nutzer Rating
Antwort
Rot Fehler: Selection.Paste fügt nichts ein
 28.07.2016 07:50:29 Nic
Solved
28.07.2016 10:19:01 Nic
NotSolved

Ansicht des Beitrags:
Von:
Nic		 Datum:
28.07.2016 07:50:29		 Views:
1755		 Rating:
     
Antwort:
 Nein
Thema:
Fehler: Selection.Paste fügt nichts ein

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:

?
1
2
3
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 ?

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
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

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Fehler: Selection.Paste fügt nichts ein
 28.07.2016 07:50:29 Nic
Solved
28.07.2016 10:19:01 Nic
NotSolved