wir haben eine Exceldatei in der per Doppelklick eine Datei öffnet, überall funktioniert es, nur bei mir kommt eine Fehlermeldung:
Laufzeitfehler '-2147023741 (80070483)':
Die Methode 'Run' für das Objekt 'IWshShell3' ist fehlgeschlagen
Die Funktion sieht wie folgt aus:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim strPath As String
Dim strStart As String
Dim VBScript As Object
Cancel = False
If Target.Column = 4 Then
strStart = Mid$(Target.Text, 1, 3)
If strStart = "POX" Or strStart = "CUS" Or strStart = "SAP" Or strStart = "APP" Then
Set VBScript = CreateObject("WScript.Shell")
strPath = Me.Parent.Path
strPath = strPath + "\Trigger\" + Target.Text + ".pxs"
'MsgBox strPath
VBScript.Run strPath, 3, False
End If
End If
End Sub
Meine Makrosicherheit ist auf niedrig gestellt. Ein Vergleich mit einem funktionierendem Rechner ergab, dass ich alle Verweise aktiviert habe, aber trotzdem funktioniert es nicht.
Google hilft mir auch nicht weiter, vielleicht ihr?
Gruß
Andreas