Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1760to1764
1760to1764
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excel VBA: Hyperlink zur Datei aus Pfad

Forumthread: Excel VBA: Hyperlink zur Datei aus Pfad

Excel VBA: Hyperlink zur Datei aus Pfad
26.05.2020 11:41:14
Pascal
Hallo liebes Forum,
Ich konnte leider nicht mehr auf den unten stehenden Beitrag antworten, deshalb hier eine Kopie des Beitrags..
"ich habe vor kurzem eine Excel-Datei runtergeladen (auf Empfehlung eines Forummitglieds)
die mir zu einem bestimmten Schlagwort aus Spalte A einen Hyperlink zu einer PDF aus einem  _
bestimmten Ordnerpfad auspuckt. (Das Schlagwort muss dann im Dateinamen vorhanden sein).
So kann ich dann z.B. in Spalte A 5 Kundennummern oder ähnliches kopieren und bekomme aus  _
meinem Ordnerpfad X dann in Spalte B die Hyperlinks zur PDF-Datei angezeigt
Meine Frage wäre jetzt, ist in diesem Code programmiert das er die aktuellste Datei rausgibt?
Falls nicht, wie könnte man den Code so anpassen das er die aktuellste Datei verwendet im Falle  _
von mehreren verfügbaren PDFs in diesem Ordnerpfad?
Datei mit VBA Code: https://www.herber.de/ _
bbs/user/137331.xlsm
Danke für jede Hilfe,
Pascal
nach oben  nach unten
Hallo Pascal,
- das Vba-Programm sammelt in einem Array alle pdf-Dateien eines bestimmten Verzeichnisses
- die im Dateinamen mit den (Schlag)Wort in Spalte 'A' beginnen
- davon wird die 1. gefundene Datei zurückgegeben
Beispiel:
- in A2 steht das Schlagwort 'apfel'
- im Verzeichnis hast Du 3 Dateien: Apfelernte.pdf, Apfelwein.pdf, Apfelessig.pdf
- alle 3 Dateien beginnen mit 'apfel' und werden im Array eingetragen
- aber nur ArrayWerte(0) wird verlinkt, da 1. gefundene Dat4ei
- welche Datei das aber ist, kann von PC zu PC unterschiedlich sein
- er erfolgt keine weitere Kontrolle hinsichtlich 'neueste Datei' etc.
- hast Du im Verzeichnis noch die Datei: 'Der schönste Apfelbaum Deutschlands.pdf'
- wird diese Datei nicht gefunden
- da sie nicht mit 'apfel' beginnt.
Gruß von Luschi
aus klein-Paris"

Ich habe die Logik verstanden, doch könnte mir jemand eine Möglichkeit nennen den Code so anzupassen damit er mir die aktuellste Datei ausgibt? Also die Datei mit dem aktuellsten Datum?
Liebe Grüße
Pascal
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel VBA: Hyperlink zur Datei aus Pfad
27.05.2020 18:56:24
fcs
Hallo Pascal,
die gefundene Datei muss nicht zwangsläufig die aktuellste sein.
Ich hab das Makro Start angepasst, so dass die datei mit dem neuesten Speicherdatum gesucht wird und der Hyperlink auf diese Datei verweist.
LG
Franz
Textdatei mit angepasstem Code in Modul1
https://www.herber.de/bbs/user/137813.txt
Anzeige
AW: Excel VBA: Hyperlink zur Datei aus Pfad
28.05.2020 11:22:41
Pascal
Hi Franz,
hat super geklappt!
Vielen Dank!
Beste Grüße
Pascal
;

Forumthreads zu verwandten Themen

Kopieren von Formeln mit externen Links
Formeln

Hallo
was ich versuche zu machen ist folgendes:
I habe zwei Exceldateien. Eine (Quelle) welche viele Formeln mit externen Verweisen enthält. Ich muss die Formeln aus der Quelldatei in die Zieldatei kopieren. Das an sich stellt natürlich kein Problem dar. Jedoch werden die externen Verwe...
15.06.2009 10:03:59
Thread-ID: 1081503
6 Beiträge
Hyperlinks mit Advanced Filter kopieren
Biggi

Hallo,
ich habe eine recht umfangreiche Tabelle (27 Spalten und an die 1000 Zeilen).
Über ein Makro mit Advanced Filter verteile ich die Daten anhand eines Suchkriteriums, was sich in Spalte A befindet in unterschiedliche andere Tabellenblätter.
In Spalte L habe ich allerdings Hyper...
28.03.2013 08:08:00
Thread-ID: 1306273
2 Beiträge
Anzeige
Feld kopieren mit einem Hyperlink
Hubert

Hallo Excel-Freunde
ich habe gleich noch ein Problem.
Ich möchte ein Feld mit einem Hyperlink nur einfach
weiter nach unten kopieren und der Bezug des Hyperlinks
soll die Zeilenverschiebung mitmachen.
Klappt bei mir nicht und ich müsste jedes mal den Bezug
neu per Hand e...
28.01.2014 20:54:42
Thread-ID: 1347123
3 Beiträge
Hyperlink per VBA mitkopieren
Gregy

Moin,
ich habe folgende Code in VBA der auch prinzipiell gut funktioniert
If Cells(3, 1).Value = "Ofenkörper" And Cells(3, 2).Value = "Ofengestell" Then
Sheets("Anlage").Range("A4:T4").Copy
Sheets("Ofengestell").Range("A200").PasteSpecial Paste:=xlPasteValues, SkipBlanks _
:...
05.02.2014 15:24:54
Thread-ID: 1348176
2 Beiträge
Anzeige
Formel kopieren mit Link auf PW-gesch. Datei?
schluk5

Hallo,
Ich habe eine Datei A, die Formeln enthaelt, die Verlinkungen auf eine Passwort-geschuetzte Datei B enthaelt. Wenn ich diese Formel nun kopiere und die Datei B geschlossen ist, werde ich jedesmal aufgefordert das Passwort einzugeben.
Da das Kopieren der Formel aber ziemlich haeu...
27.03.2014 19:49:45
Thread-ID: 1355233
2 Beiträge
Anzeige
Verlinkung mit Pfad in Zelle
Roger

Hallo zusammen,
ich habe folgendes Problem.
In einem Ordner habe ich folgende Dateien
Teilnehmer_01.xlsx ..... bis Teilnehmer_XY.xlsx
Zu jedem dieser Dateien habe ich eine weitere, in welcher die Daten bearbeitet werden (gleiche Berechnungen). Nun möchte ich, dass ich nicht all...
02.03.2015 18:05:55
Thread-ID: 1412338
2 Beiträge
Dateiinterne Hyperlinks mit absolutem Pfad
A.Kappler

Hallo an Alle,
Ich habe in einer Datei Viele Hyperlinks die sich auf externe Dateien und auf Tabellenblätter in der Exceldatei beziehen.
Um die Links zu den Externen (auf Server gespeicherten) Dateien nicht zu verlieren habe ich unter Datei\Informationen\Eigenschaften\Erweiterte Eigensc...
18.01.2017 06:39:40
Thread-ID: 1535713
2 Beiträge
Hyperlinks per Formel mitkopieren
bbcn

Hallo,
ich habe folgendes Problem:
Mein Ziel ist es in einer Spalte untereinander gelistete Zellen per Formel so zu kopieren, dass die leeren Zeilen, welche in unregelmäßigen Abständen vorhanden sind, verschwinden. Aus einer Spalte mit sowohl gefüllten, als auch Leerzeilen soll also ein...
18.12.2018 11:45:12
Thread-ID: 1663636
4 Beiträge
Kopieren von Dateien mit Hyperlinks
Alex

Ich habe ein Problem beim Kopieren von Datein mit Hyperlinks.
Und zwar, wenn ich solch eine Datei, die Hyperlinks enthält von einem Ordner in einen anderen kopiere, verändert sich die Adresse des Hyperlinks. Sie verdoppelt einen Ordner, z.B. normale Adresse ist Ordner1/Ordner2. Nach dem Kopi...
09.04.2003 12:16:24
Thread-ID: 242505
2 Beiträge
wer kann helfen, hyperlink mitkopieren
Reiner
Hallo Experten,
ich habe zeilen die markiere ich und kopiere dann mit strg+c den Bereich in die Zwischenablage. Darin sind auch Hyperlinks enthalten, wenn ich dann die Zeile "mit der Funktion aus der Zwischenablage einfügen anwähle" bekomme ich den Verweis vom Hyperlink nicht mitgeliefert. Füge i...
14.12.2003 08:57:30
Thread-ID: 351665
4 Beiträge
Anzeige
kopieren mit Makro unterverwendung eines Hyperlink
Wolfgang

Hallo,
ich hatte schon einmal diese Frage eingestellt, aber irgendwie
habe ich mich nicht sonderlich gut ausgedrückt. Deswegen, und mit neuem Mut,
noch einmal.
Siehe hierzu bitte den Link.
https://www.herber.de/bbs/user/38499.xls
Danke
Wolfgang
25.11.2006 12:54:59
Thread-ID: 823389
6 Beiträge
Hyperlinks mit festem Pfad erstellen?
Selma

Hallo Leute,
mit diesem Makro erstelle ich zur Zeit für dan markierten Zellenbereich die Hyperlinks.
In markierten Zellenbereich stehen nur die Dateinamen (ohne Pfad) z.B. "Anlage 205 vom 24.05.2007.doc"
Alle Dateien liegen im Verzeichnis "d:\schriftverkehr 2007\Anlagen\"
Beim...
03.06.2007 21:42:00
Thread-ID: 875189
3 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Hyperlink zur Datei aus Pfad mit Excel VBA

Schritt-für-Schritt-Anleitung

Um einen Hyperlink zu einer Datei aus einem Pfad in Excel VBA zu erstellen, kannst du folgenden Code verwenden:

Sub HyperlinkZuDateiErstellen()
    Dim Suchbegriff As String
    Dim Ordnerpfad As String
    Dim Datei As String
    Dim AktuellsteDatei As String
    Dim AktuellstesDatum As Date

    Suchbegriff = Range("A2").Value ' Schlagwort
    Ordnerpfad = "C:\Dein\Ordnerpfad\" ' Deinen Ordnerpfad hier anpassen
    Datei = Dir(Ordnerpfad & "*.pdf") ' Suche nach PDF-Dateien

    Do While Datei <> ""
        If InStr(1, Datei, Suchbegriff, vbTextCompare) > 0 Then
            If FileDateTime(Ordnerpfad & Datei) > AktuellstesDatum Then
                AktuellstesDatum = FileDateTime(Ordnerpfad & Datei)
                AktuellsteDatei = Datei
            End If
        End If
        Datei = Dir
    Loop

    If AktuellsteDatei <> "" Then
        ActiveSheet.Hyperlinks.Add Anchor:=Range("B2"), Address:=Ordnerpfad & AktuellsteDatei, TextToDisplay:=AktuellsteDatei
    Else
        MsgBox "Keine passende Datei gefunden."
    End If
End Sub

Dieser Code sucht im angegebenen Ordner nach PDF-Dateien, die mit dem Schlagwort in Zelle A2 beginnen, und erstellt einen Hyperlink zur aktuellsten Datei.

Häufige Fehler und Lösungen

  1. Fehler: "Keine passende Datei gefunden."

    • Lösung: Stelle sicher, dass der Ordnerpfad korrekt ist und dass die PDF-Dateien tatsächlich das Schlagwort im Dateinamen enthalten.

  2. Fehler: Der Hyperlink funktioniert nicht.

    • Lösung: Überprüfe den Dateipfad. Du kannst den dateipfad als link kopieren, um sicherzustellen, dass er korrekt ist.

Alternative Methoden

Wenn du den ordnerpfad als link in email einfügen möchtest, kannst du den Hyperlink auch direkt in eine E-Mail einfügen. Hierzu kannst du Outlook VBA nutzen:

Sub LinkInEmailEinfügen()
    Dim OutlookApp As Object
    Dim Mail As Object
    Dim Link As String

    Link = "C:\Dein\Ordnerpfad\AktuellsteDatei.pdf" ' Füge den Pfad hier ein

    Set OutlookApp = CreateObject("Outlook.Application")
    Set Mail = OutlookApp.CreateItem(0)
    Mail.Subject = "Hier ist der Link zur Datei"
    Mail.Body = "Hier ist der Link zu deiner Datei: " & Link
    Mail.Display
End Sub

Praktische Beispiele

Hier sind einige Beispiele, wie du den Code in der Praxis einsetzen kannst:

  1. Hyperlink zur Datei in einer Excel-Tabelle erstellen: Nutze den oben genannten HyperlinkZuDateiErstellen-Code, um automatisiert Links zu deinen PDF-Dateien zu erstellen.

  2. Dateipfad als Link in E-Mail einfügen: Verwende den LinkInEmailEinfügen-Code, um den dateipfad als link versenden zu können.

Tipps für Profis

  • Achte darauf, dass der Code in einer aktuellen Excel-Version ausgeführt wird, um Komplikationen zu vermeiden.
  • Du kannst den Code erweitern, um auch andere Dateiformate zu unterstützen, indem du den Dateityp in der Dir-Funktion anpasst.

FAQ: Häufige Fragen

1. Wie kann ich den Hyperlink zu mehreren Dateien erstellen? Du kannst die Logik im VBA-Code anpassen, um alle passenden Dateien in einer Schleife zu durchlaufen und Hyperlinks für jede von ihnen zu erstellen.

2. Kann ich den dateipfad als link in mail einfügen, ohne VBA zu verwenden? Ja, du kannst den Pfad manuell kopieren und in deine E-Mail einfügen, allerdings ist dies weniger automatisiert und erfordert mehr Aufwand.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige