ich möchte nach erreichen eines bestimmten Ergebnisses in einer Zelle eine Videodatei abspielen.
Geht das, und wenn ja, wie.
Danke im Voraus
Frank
Private Sub Worksheet_Calculate()
If Me.Range("D3") >= 9 Then
'Statt 3 Anführungszichen reicht ggf. auch jeweils ein Anführungszeichen in den folgenden Zeilen
'Einige Programm betrachten Leerzeichen als Trennzeichen zwischen Parametern.
'Dann müssen ggf. 3 Anführungszeichen verwendet werden um einen Textstring zu erzeugen.
Programm = """C:\Programme\Windows Media Player\wmplayer.exe"""
Parameter = """C:\WINDOWS\Anwendungsdaten\MGI\PhotoSuite4\TempPS4\Images\Spin.avi"""
Shell pathName:=Programm & " " & Parameter, Windowstyle:=vbMaximizedFocus
End If
End Sub
Private Sub Worksheet_Calculate()
If Me.Range("E52") = 1 Then
Programm = """D:\Progrmme\Windows Media Player\wmplayer.exe"""
Parameter = """E:\Urlaub\ASF_0210"""
? Shell pathName:=Programm & " " & Parameter, Windowstyle:=vbMximzedFocus ?
End If
End Sub
Parameter = """E:\Urlaub\ASF_0210.avi"""
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen