Excel und VBA: Formeln, Programmierung, Lösungen

ClassModule: Tabelle1

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   Dim sFile As String, sPath As String, sTxt As String, sExe As String, sSfx As String
   If Target.Address <> "$A$1" Then Exit Sub
   Cancel = True
   sPath = Range("D1").Value
   sExe = Range("D2").Value
   sSfx = Range("D3").Value
   sFile = Range("A1").Value
   sFile = WorksheetFunction.Substitute(sFile, " ", "")
   Do While InStr(sFile, ",")
      sTxt = sPath & "\" & Left(sFile, InStr(sFile, ",") - 1) & "." & sSfx
      If Dir(sTxt) <> "" Then Shell sExe & " " & sTxt, vbNormalFocus
      sFile = Right(sFile, Len(sFile) - InStr(sFile, ","))
   Loop
   sTxt = sPath & "\" & sFile & "." & sSfx
   If Dir(sTxt) <> "" Then Shell sExe & " " & sTxt, vbNormalNoFocus
End Sub

    

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