Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: VBA-Makro mit Hyperlink eine PDF öffnen

VBA-Makro mit Hyperlink eine PDF öffnen
28.02.2016 19:06:22
Sebstian
Ich habe eine Tabelle in der Teilenummern Stehen wenn ich jetzt eine der Nummern markiert habe und das Makro ausführ soll es mir die dazugehörige Zeichnung (ist als pfd hinterlegt) öffnen. Die Dateinamen können aber von der Nummer in der Tabelle abweichen.
Bsp.:
in der Tabelle steht: 016-53-014
der Dateiname ist: 016-53-014_105.pdf
oder: 016-53-014.pdf
mein Code sieht bis jetz so aus

Sub pdföffnen()
Dim strName
Dim strPfad, strDatei
strName = (ActiveCell)
strPfad = "C:\Test\" 'bleibt gleich
strDatei = strName & "*" & ".pdf"
ActiveWorkbook.FollowHyperlink strPfad & strDatei
End Sub

ohne "*" öffnet es die Datei 016-53-014.pdf (wenn sie so heist)
aber mit findet öffnet sich leider nix.
Wie muss ich es abändern?

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA-Makro mit Hyperlink eine PDF öffnen
28.02.2016 21:54:35
Sebstian
hatt sich erledigt hab eine Lösung gefunden.
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

VBA-Makro zum Öffnen von PDF-Dateien über Hyperlinks


Schritt-für-Schritt-Anleitung

Um ein VBA-Makro zu erstellen, das eine PDF-Datei über einen Hyperlink öffnet, kannst du die folgenden Schritte befolgen:

  1. Öffne Excel und gehe zu dem Arbeitsblatt, in dem du das Makro verwenden möchtest.
  2. Drücke Alt + F11, um den VBA-Editor zu öffnen.
  3. Klicke im Menü auf Einfügen und wähle Modul.
  4. Füge den folgenden VBA-Code in das Modul ein:

    Sub pdföffnen()
        Dim strName As String
        Dim strPfad As String, strDatei As String
        strName = ActiveCell.Value
        strPfad = "C:\Test\" ' Pfad zu deinen PDF-Dateien
        strDatei = strName & "*" & ".pdf"
        ActiveWorkbook.FollowHyperlink strPfad & strDatei
    End Sub
  5. Schließe den VBA-Editor und kehre zu Excel zurück.
  6. Markiere eine Zelle mit einer Teilenummer, die du öffnen möchtest.
  7. Drücke Alt + F8, wähle das Makro pdföffnen aus und klicke auf Ausführen.

Das Makro sucht nach der entsprechenden PDF-Datei im angegebenen Pfad und öffnet sie.


Häufige Fehler und Lösungen

  • Problem: Das PDF wird nicht geöffnet.

    • Lösung: Überprüfe den Pfad und stelle sicher, dass die PDF-Dateien im angegebenen Ordner vorhanden sind.
  • Problem: Der Code funktioniert nur mit einer bestimmten Dateibenennung.

    • Lösung: Achte darauf, dass die Teilenummer in der Zelle exakt mit der PDF-Datei übereinstimmt, auch wenn die Endung unterschiedlich ist.

Alternative Methoden

Wenn du Hyperlinks in Excel verwenden möchtest, kannst du auch die Funktion HYPERLINK() verwenden, um direkt auf die PDF-Datei zu verlinken:

=HYPERLINK("C:\Test\" & A1 & ".pdf", "Öffne PDF")

Hierbei wird angenommen, dass sich die Teilenummer in Zelle A1 befindet.


Praktische Beispiele

  1. Beispiel 1: Wenn in der Zelle A1 die Teilenummer 016-53-014 steht, wird die PDF-Datei 016-53-014.pdf geöffnet.
  2. Beispiel 2: Wenn die Datei 016-53-014_105.pdf existiert, wird sie ebenfalls mit dem oben genannten Makro geöffnet, da das * im Dateinamen verwendet wird.

Tipps für Profis

  • Wenn du regelmäßig mit PDF-Dateien arbeitest, erwäge, die PDF-Dateien in einem bestimmten Format zu benennen, um die Suche zu erleichtern.
  • Nutze die Möglichkeit, mehrere Hyperlinks in einer Tabelle zu erstellen und mit einem einfachen VBA-Makro alle auf einmal zu öffnen.

FAQ: Häufige Fragen

1. Kann ich das Makro anpassen, um andere Dateiformate zu öffnen?
Ja, du kannst die Endung .pdf im Code durch andere Formate wie .docx oder .xlsx ersetzen.

2. Funktioniert das Makro in jeder Excel-Version?
Das Makro sollte in Excel 2010 und neueren Versionen problemlos funktionieren.

3. Was mache ich, wenn ich den Pfad ändern möchte?
Ändere einfach die Variable strPfad im Code auf den neuen Pfad, in dem deine PDF-Dateien gespeichert sind.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige