---

005.JPG

Hallo zusammen,

ich habe eine Ordner worin viele pdf's sind, diese pdf's habe ich vorab in eine Excel-Liste eingetragen, Nomenklatur bzw. Benennung der pdf und der Liste ist identisch, natürlich ohne die Endung .pdf.

Habt Ihre eine Lösung wie ich diese all diese pdf's schnell (makro) per hyperlink verbinden könnte.
Als Beispiel habe ich drei Nummern bzw. pdf’s verbunden.

1466036
4530
4619
Wenn ich die Nummern anklicke öffnet sich das pdf.

Vielen dank im Voraus für eure Hilfe.

Gruß

UGMANX

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

versuche es mal auf diesem Weg:

Code:

---

Sub HyperlinksErstellen()
    Dim rngZelle As Range
    For Each rngZelle In Range("G2:I300").SpecialCells(xlCellTypeConstants)
        ActiveSheet.Hyperlinks.Add Anchor:=Range(rngZelle.Address), _
            Address:="C:\Test\" & rngZelle.Value & ".pdf"
    Next rngZelle
End Sub

---

Den Bereich G2:I300 und den Pfad "C:\Test\" musst du natürlich an deine Bedingungen anpassen.

------------------
Bis später,
Karin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Guten Morgen,

es hat sehr gut geklappt vielen dank.

Hätte eine Bitte, leider haben die Zellen ein Hyperlink auch welsche die nicht Ordner sind.

Kann man nur die Zellen farblich markieren die im Ordner mit Dateien vorhanden sind.

Vielen dank für deine Hilfe.

Gruß

UGMANX

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ungetestet und auf die Schnelle, da Du sicher auch selbst was coden möchtest :

If Dir(...) then Interior.Color = x 'innerhalb der Schleife

Guck' in die Hilfe zu Dir() in VBA; die Farbwahl überlasse ich Dir.

------------------
DIN1055.de  |  Lastannahmen für Anwender NEU: Foren zu DIN 1055

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Guten Morgen,

vielen dank für den Hinweis das ich auch selbst was coden möchtest.

Leider hat deine ungetestete und schnelle Hilfe nicht funktioniert.

Nochmals vielen dank für deine Antwort.

Gruß

UGMANX

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Code:

---

Sub test()

Dim str As String

str = "C:\TEMP\TEST.xml"

If Dir(str) <> "" Then MsgBox "vorhanden"

End Sub

---

------------------
DIN1055.de  |  Lastannahmen für Anwender NEU: Foren zu DIN 1055

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

... poste doch auch ruhig mal deinen Code wenn etwas nicht funktioniert,
ein hat nicht funktioniert ist sehr aussagekräftig und lässt IMHO nur eine Aussage übrig...
Du hast eigentlich gar keine Lust und wir sollen gefälligst die Lösung bringen

Code:

---

Sub HyperlinksErstellen()
    Dim rngZelle As Range
    For Each rngZelle In Range("A1:A10").SpecialCells(xlCellTypeConstants)
        If Dir("C:\Tmp\" & rngZelle.Value & ".pdf") <> "" Then
            ActiveSheet.Hyperlinks.Add Anchor:=Range(rngZelle.Address), _
            Address:="C:\Tmp\" & rngZelle.Value & ".pdf"
            Else
        End If
    Next rngZelle
End Sub

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP