Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

VBA Code der direkt Seite in einer PDF Datei öffnet
#1
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
Antworten Top
#2
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
[-] Folgende(r) 2 Nutzer sagen Danke an Backowe für diesen Beitrag:
  • sotaros, Schülerin
Antworten Top
#3
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
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste