Hallo zusammen,

als erstes möchte ich mich vielmals dafür bedanken, dass es so ein Forum gibt. Dank euch, habe ich sehr viel erfahren können – vor allem konnte ich sehen und lesen, was alles mit Excel möglich ist.

So habe ich beim herumstöbern bei euch gesehen, dass man bestimmte Zeilen aus excel nach word holen kann. Dies brachte mich auf die Idee, dass dies auch mein Leben erleichtern kann.

Habe folgenden code -der auch funktioniert.

Sub NachWord()
Dim appWord As Object
Dim docTest As Object
Set appWord = CreateObject("Word.Application")
Set docTest = appWord.Documents.Add("file:///C:\Users\x\ \Desktop\Eigene Dateien\Briefe\Kunde\x\x.docx")
appWord.Visible = True
docTest.Activate
docTest.Bookmarks("Betreff").Range.Text = Range("AB64")
Set docTest = Nothing
Set appWord = Nothing
End Sub

Ich habe aber unterschiedliche Briefe (mein Blankoformular), wo auch wieder der Wert von AB64 (excel) übernommen werden soll. Bevor ich für alle meine 6 Briefvorlagen, diesen code kopiere wolle ich euch fragen ob mir einer behilflich sein, und den code so ändern kann, dass ich den entspr. Brief aussuche, auswähle und der Wert eingetragen wird. Alle Blankobriefe liegen in ein und dem selben Ordner.

Im voraus vielen lieben Dank.