Thema Datum  Von Nutzer Rating
Antwort
Rot Text und Diagramme von Excel nach Word kopieren
20.03.2021 10:17:41 Tobias
NotSolved
21.03.2021 12:16:43 Gast86694
NotSolved
21.03.2021 13:06:32 Tobias
NotSolved

Ansicht des Beitrags:
Von:
Tobias
Datum:
20.03.2021 10:17:41
Views:
115
Rating: Antwort:
  Ja
Thema:
Text und Diagramme von Excel nach Word kopieren

Hallo zusammen,

ich würde dringend Hilfe benötigen bei einem VBA prozess. Der Sachverhatl ist wie folgt:

a) Es liegen zwei Daten vor eine Excel Datei die alle benötigen Informationen enthält und eine Word datei die als "Vorlage" fungieren soll

b) Im ersten Step hab ich zsm. mit den Bookmarks besagtes Modul angelegt:

 

Sub NachWordUebertragen()

    Dim appWord As Object
    Dim Report As Object
    
    Set appWord = CreateObject("Word.Application")
    Set Report = appWord.Documents.Add("C:\Users\Graul\Desktop\EUASIA\Arbeit\Report.docx")
    
    appWord.Visible = True
    
   Report.Activate
    Report.Bookmarks("Vorname").Range.Text = Range("Vorname")
    Report.Bookmarks("Nachname").Range.Text = Range("Nachname")
    Report.Bookmarks("Abteilung").Range.Text = Range("Abteilung")
    Report.Bookmarks("ALTTELEFON").Range.Text = Range("ALTTELEFON")
    Report.Bookmarks("KWALT").Range.Text = Range("KWALT")
    Report.Bookmarks("ALTBEDARF").Range.Text = Range("ALTBEDARF")
    Report.Bookmarks("ALTNEGA").Range.Text = Range("ALTNEGA")
    Report.Bookmarks("ALTPOSITIVE").Range.Text = Range("ALTPOSITIVE")
    Report.Bookmarks("ALTLEAD").Range.Text = Range("ALTLEAD")
    Report.Bookmarks("ALTOFTELEFON").Range.Text = Range("ALTOFTELEFON")
    Report.Bookmarks("ALTTASK").Range.Text = Range("ALTTASK")
    Report.Bookmarks("KWNEU").Range.Text = Range("KWNEU")
    Report.Bookmarks("Neutelefon").Range.Text = Range("Neutelefon")
    Report.Bookmarks("NEUBEDARF").Range.Text = Range("NEUBEDARF")
    Report.Bookmarks("NEUNEGATIVE").Range.Text = Range("NEUNEGATIVE")
    Report.Bookmarks("NEUPOSITIVE").Range.Text = Range("NEUPOSITIVE")
    Report.Bookmarks("NEULEAD").Range.Text = Range("NEULEAD")
    Report.Bookmarks("NEUOFTELEFON").Range.Text = Range("NEUOFTELEFON")
    Report.Bookmarks("NEUTASK").Range.Text = Range("NEUTASK")
    
    
    
    
          
    Set Report = Nothing
    Set appWord = Nothing
    
    
End Sub

 

c) Hier sollen aber nun auch noch die Diagramme aus Excel gezogen werden per Bookmarks ist das leider nicht möglich, kann mir jeamnd hierbei bittee weiterhelfen?

 

Vielen Dank im Voraus


 


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:

 
 

  • 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 Text und Diagramme von Excel nach Word kopieren
20.03.2021 10:17:41 Tobias
NotSolved
21.03.2021 12:16:43 Gast86694
NotSolved
21.03.2021 13:06:32 Tobias
NotSolved