Clever-Excel-Forum - VBA Code der direkt Seite in einer PDF Datei öffnet

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

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

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