Hyperlink mit platzhalter/Variable

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Haiko,
folgendes Makro löscht in der Spalte A der ersten Tabelle alle Einträge und fügt dann Hyperlinks auf alle Dateien in einem angegebenen Verzeichnis ein:
Sub Hyperlink_Ersatz()
Worksheets(1).Columns(1).Clear
With Application.FileSearch
.NewSearch
.LookIn = "C:\Dokumente und Einstellungen\Martin\Eigene Dateien\Eigene Tabellen\"
.Filename = "*.*"
.SearchSubFolders = False
.Execute
icount = .FoundFiles.Count
For i = 1 To icount
Worksheets(1).Hyperlinks.Add anchor:=Worksheets(1).Cells(i, 1), Address:=.FoundFiles(i)
Next i
End With
End Sub
Du hast dabei noch folgende Gestaltungsmöglichkeiten
.LookIn = "C:\Dokumente und Einstellungen\Martin\Eigene Dateien\Eigene Tabellen\"
Hier mußt Du natürlich Deinen Pfad einsetzen.
.Filename = "*.*"
Hier kannst Du eingrenzen, für wecke Dateien Hyperlinks angelegt werden sollen, z.B "*.xls" wenn Du nur Exceldateien brauchst.
.SearchSubFolders = False
Statt False True und es werden auch die Unterverzeichnisse durchsucht.
Dieses Makro kopierst Du in ein normales Modul, weist es einem Button zu und startest es mit Click auf den Button. Eleganter wäre es m.E. noch, wenn Du folgenden Code verwendest:


Private Sub Workbook_Open()
Worksheets(1).Columns(1).Clear
With Application.FileSearch
.NewSearch
.LookIn = "C:\Dokumente und Einstellungen\Martin\Eigene Dateien\Eigene Tabellen\"
.Filename = "*.*"
.SearchSubFolders = False 'True
.Execute
icount = .FoundFiles.Count
For i = 1 To icount
Worksheets(1).Hyperlinks.Add anchor:=Worksheets(1).Cells(i, 1), Address:=.FoundFiles(i)
Next i
End With
End Sub

Gehe zunächst mit ALT-F11 in die sog. Entwicklungsumgebung und Doppelclicke im Projektexplorer auf DieseArbeitsmappe. In da sich öffnende Fenster kopierst Du den Code. Nun wird bei jedem öffnen der Datei die Hyperlinkliste aktualisiert.
Bei Bedarf kannst Du auch beides kombinieren (manuelle und automatische Aktualisierung).
HTH
Gruß
Martin Beck

Da bin ich schonwieder.... sooooon sch..
Also Der Code Geht aber nur solange meine Liste in dem gleichen Ordner liegt wie meine zu linkende Datei. Ist diese auf einem anderen Laufwerk oder in einem anderen Ordner so funktioniert der Link nichtmer... Leider liegen meine Dateien über mehrere Laufwerke und in ätlichen ordner verstreut, deswegen treibe ich ja auch diese Geschichte nur....
Also hatt jemand nochmal eine IDEE wie ich die Folgende "Formel" überrede mir die gelinkten Dateien zu öffnen ? Der Link ansich wird auch an dem angegebenen Platz angezeigt das ist also soweit ok...
Lass ich die Maus auf dem Link stehen zeigt er mir auch den Link an aber schon dort fehlen die Unterordner er zeigt nur den ersten Ordner an den ich ihm gesagt habe, alle anderen sind nicht da ....(c:\Daten\ Jetz fehlt der rest\tab_*_xls


Private Sub Workbook_Open()
With Worksheets(1)
.Hyperlinks.Add .Range("i7"), Dir("C:\Daten\Ordner\tab2_*_.xls")
.Hyperlinks.Add .Range("i2"), Dir("c:\daten\ordner\tab1_*_.xls")
End With
End Sub

Danke nochmal
Haiko
P.S. mit dem immerwieder einfügen ist ok da ich die Datei gespeichert habe ohne eingefügte Links dann schreibschutz aktivieren damit sie keiner versehhentlich ändert..

Sub Haupt() Dim strDatei As String Dim strPath As String Dim wksLinks As Worksheet Set wksLinks = ThisWorkbook.Worksheets("Links") strDatei = "datei_ordner1.xls" ****** strPath = "I:\Excel\ordner1\" ****** With wksLinks .Hyperlinks.Add .Range("A1"), strPath & Dir(strPath & strDatei) End With End Sub

Beliebteste Forumthreads (12 Monate)

von Otto an Haiko
	A	B	C	D	E
46					Formel in D47
47	Kfz_Elektrik_Motor_10_	B	_pdf	Kfz_Elektrik_Motor_10_	=HYPERLINK(A47 & B47 & C47;A47)

Hyperlink mit platzhalter/Variable

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

26 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Hyperlink mit platzhalter/Variable

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

26 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread