Microsoft Excel

Herbers Excel/VBA-Archiv

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

Rechtsklick VBA nur bestimmte Zellen


Betrifft: Rechtsklick VBA nur bestimmte Zellen von: Alex
Geschrieben am: 18.09.2019 10:55:26

Servus VBA-Gemeinde,
mir hat gestern UweD weitergeholfen, nun hab ich sein Code noch ein wenig abgeändert. Ich möchte das Makro mit Rechtsklick nur aufrufen, wenn ich die Zellen der Spalte "C" anklicke. Hier das aktuelle Makro:

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 <> "" Then
         Ext = ".pdf"
         strOff = "\test\test\"
         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 Sub


Vielen Dank im Voraus.

Gruß Alex
  

Betrifft: If Target.Column = 3 ... owT von: 1713619.html
Geschrieben am: 18.09.2019 10:58:59


Beiträge aus dem Excel-Forum zum Thema "Rechtsklick VBA nur bestimmte Zellen"