mit einem Hyperlink 2 Ziele simultan öffnen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Holger,
das geht meines Wissens nur mit VBA.
Die Dateinamen stehen in Spalte C und sind durch Semikolon (;) getrennt.
Im Code musst du den Pfad zu den Dateien noch anpassen.
Per Doppelklick auf die Zelle werden die Dateien mit dem Standardprogramm geöffnet.

' **********************************************************************
' Modul: Tabelle2 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

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)
  Dim strPath As String, strFiles As Variant, lngIndex As Long

  strPath = "E:\Temp\" 'Pfad zu den Musikdateien - Anpassen!

  If Right(strPath, 1) <> "\" Then strPath = strPath & "\"

  If Target.Column = 3 Then
    Cancel = True
    strFiles = Split(Target, ";")
    For lngIndex = 0 To UBound(strFiles)
      openFile strPath & Trim(strFiles(lngIndex))
      Sleep 500
    Next
  End If
End Sub

Private Sub openFile(ByVal FileName As String)
  ShellExecute 0, "Open", FileName, "", "", 7
End Sub

Gruß Sepp

Hallo Holger,
hier der Code für zwei Pfade (kann erweitert werden).

' **********************************************************************
' Modul: Tabelle3 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

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)
  Dim strPath(1) As String, strFiles As Variant, lngIndex As Long, lngCount As Long

  strPath(0) = "E:\Temp" 'Erster Pfad
  strPath(1) = "E:\temp\Test" 'Zweiter Pfad
  'strPath(2) = "C:\xyz" 'Dritter Pfad - dazu muss die Deklaration von strPath(1)
  'auf strPath(2) geändert werden!

  If Target.Column = 3 Then
    Cancel = True
    strFiles = Split(Target, ";")
    For lngIndex = 0 To UBound(strFiles)
      strFiles(lngIndex) = Trim(strFiles(lngIndex))
      For lngCount = 0 To UBound(strPath)
        If Right(strPath(lngCount), 1) <> "\" Then strPath(lngCount) = strPath(lngCount) & "\"
        If Dir(strPath(lngCount) & strFiles(lngIndex), vbNormal) <> "" Then
          openFile strPath(lngCount) & strFiles(lngIndex)
          Sleep 500
          Exit For
        End If
      Next
    Next
  End If
End Sub

Private Sub openFile(ByVal FileName As String)
  ShellExecute 0, "Open", FileName, "", "", 7
End Sub

Gruß Sepp

Beliebteste Forumthreads (12 Monate)

mit einem Hyperlink 2 Ziele simultan öffnen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

mit einem Hyperlink 2 Ziele simultan öffnen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread