Hyperlink
16.09.2003 21:21:33
Ralf
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