Dateien prüfen, ob die auf HD existieren?

Bild

Betrifft: Dateien prüfen, ob die auf HD existieren? von: Selma
Geschrieben am: 21.03.2005 22:14:09

Hallo Leute,

in meinen Zellen die ich markieren möchte, stehen die Dateinamen z.B. C:\Archiv\2003\Bauvoranfrage Grundrisse\ATVO2003-25.doc mit vollständigen Pfäden. Ich möchte beliebigen Zellenbereich auswählen und eine Prüfung (per Makro) starten, ob die Dateien auf der Festplatte tatsächlich existieren. Wenn nicht, dann soll diese Zelle in Farbe ROT dargestellt werden.

Ist dies machbar?

Liebe Grüße und Danke im Voraus....
SELMA

Bild


Betrifft: AW: Dateien prüfen, ob die auf HD existieren? von: Matthias G
Geschrieben am: 21.03.2005 22:22:48

Hallo Selma,

das geht z.B. so:
Sub CheckFiles()
Dim z As Range
For Each z In Intersect(Selection, ActiveSheet.UsedRange)
If z.Value <> "" Then
    If Dir(z.Value) = "" Then
        z.Font.ColorIndex = 3
    Else
        z.Font.ColorIndex = xlColorIndexAutomatic
    End If
End If
Next z
End Sub
Gruß Matthias


Bild


Betrifft: AW: Dateien prüfen, ob die auf HD existieren? von: Josef Ehrensberger
Geschrieben am: 21.03.2005 22:23:03

Hallo Selma!

Z.b. so,


Sub DateiVorhanden()
Dim rng As Range
For Each rng In Selection
   If Dir(rng.Text) = "" Then rng.Font.ColorIndex = 3
Next
End Sub



Gruß Sepp

P.S.: Rückmeldung nicht vergessen!




Bild


Betrifft: AW: Dateien prüfen, ob die auf HD existieren? von: Nepumuk
Geschrieben am: 21.03.2005 22:27:31

Hallo Selma,

so geht's:


Option Explicit

Public Sub Selma()
    Dim myRange As Range
    For Each myRange In Selection
        If Trim$(myRange.Text) <> "" Then If Dir$(myRange.Text) = "" _
            Then myRange.Interior.Color = 255
    Next
End Sub


Gruß
Nepumuk


Bild


Betrifft: AW: Dateien prüfen, ob die auf HD existieren? von: Selma
Geschrieben am: 22.03.2005 09:16:23

Hallo liebe Freunde,

ich bedanke mich ganz herzlich.....


SELMA


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Dateien prüfen, ob die auf HD existieren?"