You probably need no more than:
Sub SpielbestaetigungTest()
Dim lngZeile As Long
Dim WordApp As Object, WordDoc As Object


Sheets("Hauptblatt").Activate
lngZeile = ActiveCell.Row


File = "C:\...........\_Admin\IMPORT TEST VBA.dotx"
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
Set WordDoc = WordApp.Documents.Add(Template:=File)


WordDoc.Bookmarks("Team").Range.Text = Cells(lngZeile, 5).Text
WordDoc.Bookmarks("Spielzeit").Range.Text = Cells(lngZeile, 6).Text
WordDoc.Bookmarks("Ort").Range.Text = Cells(lngZeile, 7).Text
End Sub