Office: Über Command Button dynamisch Dokumente öffnen

Ersetze allen Code durch diesen:

Code:

#If VBA7 Then
    Private Declare PtrSafe Function GetSystemDirectoryA Lib "kernel32" _
       (ByVal lpBuffer As String, ByVal nSize As Long) As Long
    Declare PtrSafe Function ShellExecute Lib "SHELL32.DLL" _
        Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
        ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
        ByVal nShowCmd As Long) As Long
#Else
    Private Declare Function GetSystemDirectoryA Lib "kernel32" _
       (ByVal lpBuffer As String, ByVal nSize As Long) As Long
    Declare Function ShellExecute Lib "SHELL32.DLL" _
        Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
        ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
        ByVal nShowCmd As Long) As Long
#End If

Ich kann das nicht prüfen da ich eine 32bit-Excel-Version habe und der Code deshalb bei mir keinen Fehler auslöst.

---

 

Hallo Berverly,
Danke für deine schier unermüdliche Unterstützung, bin sehr froh darüber.

Aber leider bringt auch das keinen Erfolg.
Es öffnet wieder eine ExcelTabelle mit Wirren Zeichen
LG

 

Die letzte Möglichkeit: lösche allen bisherigen Code und füge stattdessen folgenden ins Codemodul des Tabellenblattes ein

Code:

Private Sub CommandButton1_Click()
    Dim strPfad As String
    Dim strMappe As String
    strPfad = "C:\Users\pichpid1\Desktop\EXCEL TEST\Ordner techn. Daten\"  '<== Pfadname anpassen!!!
    strMappe = CommandButton1.TopLeftCell.Offset(0, -1) & ".pdf"
    If Dir(strPfad & strMappe) = strMappe Then
        Open_File strPfad & strMappe
    Else
        MsgBox "Datei nicht vorhanden"
    End If
End Sub

Sub Open_File(strFileName As String)
    ActiveWorkbook.FollowHyperlink strFileName
End Sub

---

 

Hallo "Karin"..... du bist die Beste ....es funkt !!!

Beste grüße aus