ÄHHH ?

Weiß jemand wieso ???

Danke

Nico

Option Explicit
Dim dateiname, daten As String
Dim wo As New word.Application

Sub test()
daten = ActiveCell.Value
wo.Documents.Open ("d:\angebot.doc")
wo.Visible = False
ActiveDocument.FormFields("test").Result = daten
wo.ActiveDocument.Save
wo.ActiveDocument.Close
End Sub