Sub CommandButton1_Click()
'   *****************************************************************************************
'   * Code 18/19.10.05: Hajo_Zi, Herbers Excel-Server (Hinweis von jinx); angepasst Beverly *
'   *****************************************************************************************
    Dim StDateiname As String
    StDateiname = InputBox("Bitte Dateinamen der Worddatei eingeben!")
    Dim appWord As Object
    If Dir(StDateiname) = "" Then
        MsgBox "Word-Dokument nicht gefunden"
    Else
        Set appWord = CreateObject("Word.Application")
        appWord.Documents.Open StDateiname
    End If
'   Word makro aufrufen
    appWord.Run "Einfue_ZA"
    appWord.Quit
    Set appWord = Nothing
End Sub