Thema: Das in einem Gültigkeitfeld ausgewählte Word-Dokument öffnen

StandardModule: basMain

Sub OpenWordDoc(sFile As String)
   Dim WordObj As Object
   Dim WordDoc As Object
   On Error GoTo w
   AppActivate "Microsoft Word"
   GoTo n
w:
   Set WordObj = CreateObject("Word.Application")
n:
   Set WordDoc = WordObj.Documents.Open(sFile)
   WordObj.Visible = True
End Sub

ClassModule: Tabelle3

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim sPath As String
   If Target.Address <> "$D$9" Then Exit Sub
   sPath = "c:\eigene dateien\" & Target.Value
   Call OpenWordDoc(sPath)
End Sub

Beiträge aus dem Excel-Forum zu den Themen Extern und Word