Prüfen ob Datei existiert

07/10/2010 - 22:31 von Tinu Kiefer | Report spam
Guten Tag

In einer Spalte erstelle ich Hyperlinks.
(=WENN(H12="";"";HYPERLINK($J$3 & "\" &J12& "\" & H12&I12;"link")))
Wie kann ich per Makro prüfen, ob die Datei existiert.
(z.B Feld grün markieren)


Ich habe im Internet etwas gefunden und ausprobiert, klappt aber nicht
so richtig.

Public Sub Hyperlinks_markieren()
'Author :
Dim WS As Worksheet
Set WS = ThisWorkbook.Sheets("Tabelle1") ' <<<< Hier bitte dein
Tabellenblatt eintragen
Dim a As Range
For Each a In WS.Cells.SpecialCells(xlCellTypeFormulas)
If InStr(1, a.FormulaLocal, "HYPERLINK") <> 0 And a.Offset(0,
11) <> "" Then
If a.Offset(0, 11) = "" Then
a.Interior.ColorIndex = 4
Else
a.Interior.ColorIndex = xlNone
End If
End If
Next a
Set WS = Nothing
End Sub

Besten Dank
Tinu Kiefer
 

Lesen sie die antworten

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

Tinu Kiefer

Ähnliche fragen