Supportnet / Forum / Tabellenkalkulation

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

• SelfCert für Excel-Macro
• DoCmd.GoToRecord Macro zur Änderung in Tabelle
• macro über einen command button
• ich möchte ein Macro unter Excel beenden nud direkt speichern
• Macro zuweisen