Hyplerlink Prüfen ob Datei existiert

08/10/2010 - 09:31 von Tinu Kiefer | Report spam
Guten Tag

In einer Spalte wird jeweils der Dateipfad als Hyperlink dargestellt
(enthàlt auch Leerzeichen)

=WENN(H6="";"";HYPERLINK($J$3 & "\" &J6& "\" & H6&I6;"link"))
z.B D:\Ordner\XTF_5-1 Testbrief leer.dot

Nun möchte ich per Makro testen, ob auf diesen Link die entsprechende
Datei vorhanden ist.
Ich habe Lösungen gefunden, aber die klappen nicht bei mit Formeln
generierten Links.

Public Sub Hyperlinks_markieren()
Dim lHyp As Hyperlink

For Each lHyp In Selection.Hyperlinks
If Dir(lHyp.Address) = "" Then
lHyp.Range.Interior.ColorIndex = 3
End If
Next
End Sub

Wer kann mir helfen?
Tinu Kiefer
 

Lesen sie die antworten

#1 Tinu Kiefer
09/10/2010 - 22:47 | Warnen spam
Hat sich erledigt.
(Diverse Beitràge wurden spàt freigeschaltet, deshalb auch der zweite
Versuch)

Tinu Kiefer

Ähnliche fragen