Herbers Excel-Forum - das Archiv
Rechtsklick VBA nur bestimmte Zellen
- Rechtsklick VBA nur bestimmte Zellen von Alex vom 18.09.2019 10:55:26
- If Target.Column = 3 ... owT - von Matthias L am 18.09.2019 10:58:59
Betrifft: Rechtsklick VBA nur bestimmte Zellen
von: Alex
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