Sub ExcelTabelleNachWordVerknüpft()
Dim WordObj As Object
Dim WordDoc As Object
Dim i As Integer
Sheets("Tabelle4").Activate
i = ActiveSheet.UsedRange.Rows.Count
Range("A3:D" & i).Copy
Set WordObj = CreateObject("word.application")
WordObj.Visible = True
Set WordDoc = WordObj.Documents.Add
With WordObj.Selection
.TypeText Text:="Teilnehmerliste aus : " & ActiveWorkbook.Name
.TypeParagraph
.TypeText Text:="vom  " & Format(Now(), "dd-mmm-yyyy")
.TypeParagraph
End With
WordObj.Selection.PasteSpecial link:=True
Application.CutCopyMode = False
Set WordObj = Nothing
Set WordDoc = Nothing
End Sub