Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

'Run' & 'IWshShell3' Fehlermeldung VBA


Betrifft: 'Run' & 'IWshShell3' Fehlermeldung VBA von: Bernd
Geschrieben am: 24.09.2019 15:44:05

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

  

Betrifft: Vorschlag Alternative Hyperlink von: ChrisL
Geschrieben am: 24.09.2019 16:10:38

Hi Bernd

Nur eine Idee. Vielleicht funktioniert folgende Variante besser...

ActiveWorkbook.FollowHyperlink NeuPfad & Datei & Ext
cu
Chris


  

Betrifft: AW: Vorschlag Alternative Hyperlink von: Bernd
Geschrieben am: 24.09.2019 16:16:50

Wow .. vielen Dank!!! jetzt funzt es ! ;)


Beiträge aus dem Excel-Forum zum Thema "'Run' & 'IWshShell3' Fehlermeldung VBA"