Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1712to1716
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

'Run' & 'IWshShell3' Fehlermeldung VBA

'Run' & 'IWshShell3' Fehlermeldung VBA
24.09.2019 15:44:05
Bernd
Hallo zusammen,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Vorschlag Alternative Hyperlink
24.09.2019 16:10:38
ChrisL
Hi Bernd
Nur eine Idee. Vielleicht funktioniert folgende Variante besser...
ActiveWorkbook.FollowHyperlink NeuPfad & Datei & Ext
cu
Chris
AW: Vorschlag Alternative Hyperlink
24.09.2019 16:16:50
Bernd
Wow .. vielen Dank!!! jetzt funzt es ! ;)
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige