Prüfen, ob die Datei vorhanden sind ?
03.10.2006 17:50:29
Selma
ich habe eine Frage:
mit diesem Makro kann ich für markierten Zellenbereich prüfen, ob die Dateien auf Festplatte verfügbar sind.
Zur Info: in Zelle stand immer der Pfad incl. Dateiname z.B. G:\Projekte\2006\Fragenkatalog.doc
Option Explicit
Public
Sub FilePruefung()
Dim myRange As Range
For Each myRange In Selection
myRange.Interior.ColorIndex = 0
If Trim$(myRange.Text) <> "" Then If Dir$(myRange.Text) = "" _
Then myRange.Interior.ColorIndex = 46
Next
End Sub
Ich habe jetzt in eine andere Datei in Zellen nur Dateiname. Die Zellen haben als Hyperlink Pfad + Dateiname.
Ist es möglich über Hyperlink zu prüfen, ob die Dateien auf Festplatte existieren?
Vielen Dank im Voraus....
Liebe Grüße
SELMA