VBA Code der direkt Seite in einer PDF Datei öffnet

[sotaros]

Hallo liebe VBA Cracks,

ich habe folgendes Problem. Ich möchte einen VBA Code haben, der es mir ermöglich für eine aktive Zelle eine bestimmte
PDF Datei zu öffnen. So etwas geht mit einem Hyperlink. Das kenne ich natürlich. Das besondere daran soll sein, das
in der betreffenden Zelle eine Zahl steht, die dann genau zu der Seite in der zu öffnenden PDF Datei führt.
Also ein Klick auf die aktive Zelle mit der gewünschten Seitenzahl und schon wird die entsprechende Seite  der PDF Datei
auf dem Bildschirm angezeigt.

Ich hoffe ihr könnt mir helfen. Schon mal im voraus vielen Dank für eure Anregungen.

Liebe Grüße

[Backowe]

Hi,


hier mal ein Beispiel über den Rechtsclick auf eine Zelle:

Option Explicit

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim strParameter
strParameter = "/A " & Chr(34) & "page=" & Target.Value & Chr(34) & " " & "C:\Users\" & Environ("Username") & "\Desktop\Test.pdf"
Call ShellExecute(0&, "open", "AcroRd32.exe", strParameter, "", 1)
End Sub

[sotaros]

Hallo Backowe,

bin gerade von meiner kleinen "Geschäftsreise" zurück und hab dein Programm getestet.

Vielen, vielen Dank für deine Hilfe. Bin happy funktioniert super!!!

Wünsche dir ein schönes Wochenende.

sotaros