Thema Datum  Von Nutzer Rating
Antwort
Rot Serienbrief aus Excel ausführen
24.03.2022 16:12:50 Matthias
NotSolved
24.03.2022 16:43:05 Gast87303
NotSolved
24.03.2022 18:06:17 Gast58128
NotSolved
24.03.2022 18:17:49 Gast668
NotSolved
24.03.2022 18:12:59 Gast55428
NotSolved
24.03.2022 18:24:47 Gast12604
NotSolved
24.03.2022 18:30:36 Gast91950
NotSolved

Ansicht des Beitrags:
Von:
Matthias
Datum:
24.03.2022 16:12:50
Views:
269
Rating: Antwort:
  Ja
Thema:
Serienbrief aus Excel ausführen

Hallo!

Ich habe ein Berichtsheft (word) in das aus Excel die Daten der Schüler eingetragen werden sollen (Bookmarks).
Wollte also, dass excel die Daten in das Berichtsheft überträgt und dann druckt.

 

Sub BerichtsheftDrucken()

Dim Berichtsheft As Object
Dim appWord As Object


Set appWord = CreateObject("Word.Application")
Set Berichtsheft = appWord.Documents.Add("\xxx\Berichtsheft.docx")


appWord.Visible = True


Berichtsheft.Activate

     
    Berichtsheft.Bookmarks("Anrede").Range.Text = Range("Anrede")
    Berichtsheft.Bookmarks("Geburtsdatum").Range.Text = Range("Geburtsdatum")
    Berichtsheft.Bookmarks("Lehrgangsbeginn").Range.Text = Range("Lehrgangsbeginn")
    Berichtsheft.Bookmarks("Lehrgangsende").Range.Text = Range("Lehrgangsende")
    Berichtsheft.Bookmarks("Nachname").Range.Text = Range("Nachname")
    Berichtsheft.Bookmarks("PLZOrt").Range.Text = Range("PLZOrt")
    Berichtsheft.Bookmarks("StrasseHausnummer").Range.Text = Range("StrasseHausnummer")
    Berichtsheft.Bookmarks("Vorname").Range.Text = Range("Vorname")


Set Berichtsheft = Nothing
Set appWord = Nothing

End Sub

 

 

 

'bis zu diesem Punkt sollte er das Berichtsheft an sich befüllt haben?

'dachte, das ich dann eine Schleife mache und er die Zeilen dann Stück für Stück durchgeht und das Makro immer wieder ausführt

'beim Punkt "Berichtsheft.Activate" öffnet er das word dokument im Debugger, dann kommt in der folgenden Zeile: "Laufzeitfehler13 Typen unverträglich"

 

Hat jemand eine Idee?

 

Mfg

Matthias

 



 


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 Serienbrief aus Excel ausführen
24.03.2022 16:12:50 Matthias
NotSolved
24.03.2022 16:43:05 Gast87303
NotSolved
24.03.2022 18:06:17 Gast58128
NotSolved
24.03.2022 18:17:49 Gast668
NotSolved
24.03.2022 18:12:59 Gast55428
NotSolved
24.03.2022 18:24:47 Gast12604
NotSolved
24.03.2022 18:30:36 Gast91950
NotSolved