Doppelklick in Zelle Film Abspielen!

Hallo Ihr lieben Experten!
In meiner Tabelle in Spalte A stehen Filmnamen. zb.: Top Gun 2 Maverick "kein Jahr, keine endung" es könnten auch avi oder mkv sein!
Im Verzeichniss E:\ sind diese Filme gespeichert zb.: Top Gun 2 Maverick (2022).mp4
Frage:
Kann man ab A2:A3000 in Spalte einer Zelle Doppelklicken und einen beliebigen Film mit VLC Player abspielen? Am besten wäre VBA.
Der Grund warum ich das so machen möchte und nicht mit Hyperlinks ist das ich mit Hyperlinks immer eine lästige Meldung bekomme . Diese Datei könnte Viren ethalten, und ich muss extra nochmal mit ok Bestätigen. Habe schon alles möglich versucht Registry und sw.
https://www.herber.de/bbs/user/155214.xlsm
Gruß
Oraculix

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim filmPath As String filmPath = "Dein Pfad für die Filme" & "\" Dim strProgramName As String Dim strArgument As String Dim strLoc As String strLoc = filmPath & "\" & Target 'film location strProgramName = "C:\Program Files\VideoLAN\VLC\vlc.exe" 'vlc location strArgument = strLoc 'film location Call Shell("""" & strProgramName & """ """ & strArgument & """", vbNormalFocus) End Sub

Sieht schon sehr gut aus Danke!
Der Filmname wird gefunden aber irgendwie sind da zuviel\\\ Backslash und der Vlc Player wird geöffnet mit Fehler Meldubg
VLC kann die Medienadresse 'file:///E:///Spider-Man%20No%20Way%20Home' nicht öffnen.


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim filmPath As String
filmPath = "E:\" & "\" 'habe hier E:\ eingetragen stimmt das so?
Dim strProgramName As String
Dim strArgument As String
Dim strLoc As String
strLoc = filmPath & "\" & Target 'film location
strProgramName = "C:\Program Files\VideoLAN\VLC\vlc.exe" 'vlc location
strArgument = strLoc 'film location
Call Shell("""" & strProgramName & """ """ & strArgument & """", vbNormalFocus)
End Sub

Gruß
Oraculix

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim filmPath As String filmPath = "E:\" 'habe hier E:\ eingetragen stimmt das so? Dim strProgramName As String Dim strArgument As String Dim strLoc As String strLoc = filmPath & Target 'film location strProgramName = "C:\Program Files\VideoLAN\VLC\vlc.exe" 'vlc location strArgument = strLoc 'film location Call Shell("""" & strProgramName & """ """ & strArgument & """", vbNormalFocus) End Sub

Beliebteste Forumthreads (12 Monate)

Doppelklick in Zelle Film Abspielen!

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

54 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Doppelklick in Zelle Film Abspielen!

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

54 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread