Hallo,

habe ein kleines Problemchen!

Und zwar würde ich gerne Daten von Excel nach Word kopieren! Funktioniert alles einwandfrei, aber er macht mir immer zwischen meinen Textmarken immer eine Leerzeile, obwohl keine eingegeben wurde!

Dim oDoc As Document
Dim oWord As Word.Application

If oDoc Is Nothing Then
GoTo ende
Else

Sheets("Übersichtsblatt").Range("B18").Copy
oWord.Selection.Goto What:=wdGoToBookmark, Name:="Prüfungen1"
oWord.Selection.PasteSpecial Link:=False, DataType:=wdPasteText

ende:

Kann mir vielleicht jemand helfen!?

LG Chris

PS: Wenn ich die Zeile ändere
oWord.Selection.PasteSpecial Link:=False, DataType:=wdPasteText
in
oWord.Selection.Paste
dann macht er mir die Leerzeile nicht, aber er verändert meine Schriftgröße

ES MUSS WOHL IRGENDWIE IN DIESER ZEILE DAS PROBLEM LIEGEN!!!!

Vielleicht finde ich hier ja einen Fachmann!!!!