Berichtsheft.Activate
Brauchst Du nicht, da die Objektvariable Berichtsheft ja ordentlich referenziert.
Berichtsheft.Bookmarks("Anrede").Range.Text = Range("Anrede")
Hier versuchst Du mal folgendes:
Berichtsheft.Bookmarks("Anrede").Range.Text = Range("Anrede").Text
Jetzt aber den Code via F8 zeilenweise durchgehen und somit die fehlerwerfende Codezeile ausmachen.
Gut möglich, dass es jetzt folgende Zeile ist:
Berichtsheft.Bookmarks("Geburtsdatum").Range.Text = Range("Geburtsdatum")
Probieren und wieder melden.
|