Code optimieren
07.08.2013 09:53:36
Volker
Läst sich u.st. Code evt einkürzen bzw. optimieren? Die Dateien werden von 2 verschiedenen Rechnern im Netzwerk aufgerufen. Ein dritter mit wieder einer anderen Pfadangabe kommt noch dazu. D.h ich müßte über 100 Codes ändern.
Vielleicht kann mir jemand helfen.
Danke.
Gruß Volker
If ActiveCell = "Lied1" Then
Set wshShell = CreateObject("WScript.Shell")
On Error Resume Next
wshShell.Run Chr(34) & "E:\Musik Musik Musik\4 SAXOPHON\Dance Suite (Matyas Seiber)\Melodie und Playback\Lied1.mct" & Chr(34)
On Error Resume Next
wshShell.Run Chr(34) & "\\K-7FB39BCC94C74\Karsten (E)\Musik Musik Musik\4 SAXOPHON\AMAZING Solos\Melodie und Playback\Lied1.mct" & Chr(34)
End If
If ActiveCell = "Lied2" Then
Set wshShell = CreateObject("WScript.Shell")
On Error Resume Next
wshShell.Run Chr(34) & "E:\Musik Musik Musik\4 SAXOPHON\Dance Suite (Matyas Seiber)\Melodie und Playback\Lied2.mct" & Chr(34)
On Error Resume Next
wshShell.Run Chr(34) & "\\K-7FB39BCC94C74\Karsten (E)\Musik Musik Musik\4 SAXOPHON\AMAZING Solos\Melodie und Playback\Lied2.mct" & Chr(34)
End If
If ActiveCell = "Lied3" Then
Set wshShell = CreateObject("WScript.Shell")
On Error Resume Next
wshShell.Run Chr(34) & "E:\Musik Musik Musik\4 SAXOPHON\Dance Suite (Matyas Seiber)\Melodie und Playback\Lied3.mct" & Chr(34)
On Error Resume Next
wshShell.Run Chr(34) & "\\K-7FB39BCC94C74\Karsten (E)\Musik Musik Musik\4 SAXOPHON\AMAZING Solos\Melodie und Playback\Lied3.mct" & Chr(34)
End If
usw.