ich möchte mit folgendem Code Dateien per Doppelklick auf deren Namen in einer Tabelle öffnen.
Der String für den Speicherort soll dabei aus untem stehenden Pfad + dem Text bestehen, der in der jeweiligen Zeile (Target) in Spalte J steht (dieser entspricht dem jeweiligen Ordner).
Kann mir jemand sagen, wie ich den String mit einer solchen Kombination erstellen kann ?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 3 Then 'column C
Dim strDateiName As String, MyShell As Object, StrPfad As String
StrPfad = "W:\DUB\DUB Fraud\Risk Manuals\" 'File path
Set MyShell = CreateObject("WScript.Shell")
strDateiName = StrPfad & Target
strDateiName = Chr(34) & strDateiName & Chr(34)
MyShell.Run strDateiName
Set MyShell = Nothing
Cancel = True
End If
End Sub
VG und vielen Dank im Voraus für jeden Tipp, Tim