Hi,
hier mal ein Vorschlag Dein Problem via einer User defined Function zu lösen.
Diese lässt sich wie eine reguläre Formel anwenden.
Erstelle ein Modul und kopiere folgende Code rein:
Function FileVorhanden(rng As Range, Optional sMakeUp As String) As Variant
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
'
If fso.FileExists(rng.Value) Then
If sMakeUp = vbNullString Then
FileVorhanden = "x"
Else
FileVorhanden = sMakeUp
End If
Else
FileVorhanden = ""
End If
End Function
Anzuwenden wie folgt:
In Zelle Q20 schreibst Du entweder:
=FileVorhanden(A1)
oder
=FileVorhanden(A1;"DeinZeichenZumMarkieren")
Wenn Du die erste Variante verwendest, wird ein "x" reingeschrieben.
Bei der zweiten Variante kannst (musst aber nicht) Du ein Zeichen Deiner Wahl zum markieren mitgeben.
Wünsche Dir, dass Du damit weiterkommst :)
gruß
Marco
|