Hallo Karl-Heinz,

erst  einmal vielen Dank für deine Unterstützung. Leider bringt mir deine Version eine Fehlermeldung auf die ich später eingehe.
Ich habe mittlerweile eine Version gefunden die in soweit funktioniert. Habe sie sogar etwas auf meine Bedürfnisse anpassen können.

ABER: Es läuft nur auf meinem PC unter Win7 64 Bit mit Excel 2010 32 Bit, aber nicht auf meinem Mini PC mit Win10 64 Bit und Excel 2016 32 Bit.

Dort bekomme ich einen Fehler angezeigt. Den habe ich mir leider nicht notiert. Kann ich aber gerne nachholen wenn es von Nöten ist. 
Die 4 Zeilen habe ich mit Sternchen markiert. Was, oder besser wie muss das geändert werden damit das unter unterschiedlichen Konfigurationen, Sprich Win und Excel läuft?

Option Explicit

*  Private 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

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
End Sub

Sub Dokument_anzeigen()

    Dim strDatei As String
    Dim LW As String
    Dim Pfad As String
    Dim Scan As String
    
    LW = Range("C3").Value                       ' In dieser Zelle wird das USB- LW erkannt
    Pfad = Range("D3").Value & "\"             ' Hier steht der Ordner den der Sanner angelegt hat
    Scan = ActiveCell.Cells.Value & ".pdf"   ' In der angewählten Zelle steht der Dateiname den der Scanner vergeben hat (A5 - Ax)
    
    strDatei = LW & Pfad & Scan
    ShellExecute 0, "Open", strDatei, "", "", 3
       
End Sub

Hast du dazu eine hilfreiche Idee?
VG Harald