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

Hyperlink

Forumthread: Hyperlink

Hyperlink
16.09.2003 21:21:33
Ralf
Hallo,
ich lasse einen Ordner nach bestimmten Dateien durchsuchen und sie mir dann als Hyperlink anzeigen.Den Code dafür (hat mir jemand hier gepostet)mußte ich etwas abändern weil ich ansonsten die dateien als Hyperlink angezeigt bekam,aber beim anwählen geschah nichts.Hier der geänderte Teil des Code's:
For Each C In Selection
'IntPos = IntStrRev(C.Value, "\")
'strLink = Right(C.Value, Len(c) -IntPos)
C.Hyperlinks.Add C, C.Value ',TextToDisplay:=strLink
Das Problem ist jetzt das die Hyperlinks jetzt den gleichen Pfad haben wie das Fenster aus dem ich das Makro gestartet habe und wenn ich die Datei in den zu dursuchenden Ordner packe, werden die Blätter genauso minimiert wieder gegeben wie eben dieses Fenster.
Vielen Dank im voraus
Ralf
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Hyperlink
16.09.2003 21:54:15
Josef Ehrensberger
Hallo Ralf,

den Code hab ich auch mal hier im Forum gefunden.

Ich habe ihn ein wenig abgeändert.


Sub File_search_link()
Dim sDir As String
Dim rngPointer As Range
Dim C          As Range
Dim letzteZeile     As String
Dim intPos          As Integer
Dim strLink         As String
Dim pathLink        As String
Application.ScreenUpdating = False
pathLink = InputBox(Prompt:="Bitte geben Sie einen Pfad an!", _
Title:="Pfad eingeben", Default:="D:\Office\Excel")      'Suchpfad eingeben
If pathLink = Empty Then Exit Sub
If Right(pathLink, 1) <> "\" Then
pathLink = pathLink & "\"
End If
Range("A1:A200").ClearContents
Set rngPointer = ThisWorkbook.Worksheets(1).[A1] 'Ausgabezeiger positionieren
sDir = Dir(pathLink & "*.xls")
Do While sDir <> ""
rngPointer = sDir
Set rngPointer = rngPointer.Offset(1, 0)
sDir = Dir
Loop
letzteZeile = Range("A200").End(xlUp).Row   ' Bereich für Hypererstellung
Range("A2:A" & letzteZeile).Select           'Abgrenzung benutzte Zellen
[A1] = "Excel Arbeitsmappen in " & pathLink
For Each C In Selection
intPos = InStrRev(C.Value, "\")
strLink = Right(C.Value, Len(C) - intPos)
C.Hyperlinks.Add C, pathLink & strLink, TextToDisplay:=strLink
Next C
Columns("A:A").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Columns("A:A").AutoFit
[A1].Select
Application.ScreenUpdating = True
End Sub


Vielleicht hilft dir das,
gruß Sepp
Anzeige
AW: Hyperlink
16.09.2003 22:37:38
Ralf
Danke Sepp,
für deine schnelle Antwort.Werde das morgen früh bei der Arbeit gleich mal ausprobieren.
Ralf
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

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