Wie kann ich Hyperlinks in unterschiedliche Pfade herunterladen?

Hallo Volker,
<br />
Entschuldigung für unsere späte Antwort.
<br />
<br />Ich hoffe, Sie haben in der Zwischenzeit die gewünschten Informationen gefunden. Wenn Sie noch weitere Hilfe beim Verknüpfen von Informationen aus verschiedenen Excel-Tabellen benötigen, empfehle ich Ihnen, diesen Artikel zu lesen, der verschiedene Möglichkeiten zum Verknüpfen von Excel-Dateien erklärt.
<br />
<br />Wenn Ihnen dies nicht weiterhilft, empfehle ich Ihnen, Ihre Frage in der Excel Tech Community zu posten, wo erfahrenere Unterstützung für diese Art von Fragen zur Verfügung steht. Beachten Sie, dass die Tech Community nur auf Englisch verfügbar ist.
<br />
<br />Lassen Sie es uns wissen, wenn Sie weitere Fragen haben.
<br />
<br />Mit freundlichen Grüßen,
<br />Pascal
<br />

Das geht nur wenn sich die zu suchenden Dateien im gleichen Pfad oder weiteren Unterpfaden befinden in der auch die Exceldatei gespeichert ist.

Dann kannst Du den Pfad der Exceldatei im Hyperlink durch einen Punkt ersetzen.

Andreas.

Sub Test()

Dim R As Range

Dim Pfad As String, FName As String



'Suche in diesem Pfad

Pfad = ThisWorkbook.Path & "\Windows"

'Erster Hyperlink in dieser Zelle

Set R = Range("A1")



'Bildschirm aus, geht schneller

Application.ScreenUpdating = False

'Sicherstellen das ein \ am Pfad hängt

If Right$(Pfad, 1) <> "\" Then Pfad = Pfad & "\"

'Suche erste Datei in diesem Verzeichnis

FName = Dir(Pfad & "*.*")

'Solange gefunden

Do While FName <> ""

'Lokalen Hyperlink erzeugen

R.Hyperlinks.Add R, Replace(Pfad & FName, ThisWorkbook.Path, "."), ""

'Nächste Zeile

Set R = R.Offset(1)

'Suche nächste Datei

FName = Dir

Loop

Application.ScreenUpdating = True

End Sub

Hallo Claus Busch,

mit diesem Makro kann ich gar nichts mehr öffnen, auch nicht diejenigen Hyperlinks, die ich schon geändert habe. Die Hyperlinks zeigen allerdings jetzt mithilfe des Mauszeigers den richtigen Pfad an, nur öffnen lassen sich die Hyperlinks nicht (kein einziger!).
Ich muss jetzt jeden Hyperlink neu anlegen, damit er sich wieder öffnet. Das ist schon fast eine Katastrophe!

Mit freundlichen Grüßen

Karl-Rudolf

Hallo Michael,

wenn du den Hyperlink mit der Formel erstellst, ist der Text der Zelle das was in der Zelle angezeigt ist.

Du musst dann die Adresse des Hyperlinks korrekt zusammenstellen.

Angenommen, die Hyperlink-Adresse lautet:

F:\Eigene Bilder\Claus\Claus3.jpg

Du willst in der Zelle aber nur Claus3 stehen haben, dann musst du im Code diese Zeile ändern:

s = "F:\Eigene Bilder\Claus\" & Me.txtKarte.Text & ".jpg"

Damit ist der Link wieder komplett und sollte funktionieren. Wenn der Pfad immer der gleiche ist, kannst du im Code auch den Pfad festschreiben mit

Pfad = "F:\Eigene Bilder\Claus\"

Dann kannst du s so zusammensetzen:

s = Pfad & Me.txtKarte.Text & ".jpg"

Mit freundlichen Grüßen

Claus

Hallo Karl-Rudolf,

hat sich denn der Pfad der Hyperlinks angepasst?



Was bezweckst Du denn mit dem 2. Code?