'Run' & 'IWshShell3' Fehlermeldung VBA
24.09.2019 15:44:05
Bernd
komme bei folgendem Code nicht weiter:
'Rechtsklickbefehl
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim Datei As String, NeuDatei As String, Pfad As String, NeuPfad As String
Dim strOff As String, Ext As String
If Target.Column = 4 Then
If Target "" Then
Ext = ".pdf"
strOff = "\xxxx\xxxx xxxx\"
Pfad = ThisWorkbook.Path
Datei = Target
NeuPfad = Left(Pfad, InStrRev(Pfad, "\") - 1) & strOff
If Dir(NeuPfad, vbDirectory) "" Then
NeuDatei = NeuPfad & Datei & Ext
If Dir(NeuDatei) "" Then
CreateObject("WScript.Shell").Run NeuPfad & Datei & Ext
Else
MsgBox NeuDatei & " NICHT gefunden", vbCritical
End If
Else
MsgBox "Pfad nicht gefunden", vbCritical
End If
End If
End If
End Sub
das Problem ist, dass das Makro ganz unterschiedlich auf Rechtsklick reagiert. Teilweise öffnet er die Datei und teilweise kommt folgende Fehlermeldung (bei jeweils vorhandenen Dateien):
Die Methode 'Run' für das Objekt 'IWshShell3' ist fehlgeschlagen
Hab iwie im Forum schon gelesen, dass das daran liegen kann, dass kein Standardprogramm zugewiesen ist, was bei PDF mir wohl eher unüblich erscheint
Vielen Dank.
Gruß
Bernd
Anzeige