Ich möchte mittels VBA erreichen, dass das Verzeichnis, indem sich eine bestimmte Datei ("Tabelle1.xls") befindet an eine Variable (p) übergeben wird und das Ergebnis in einer MsgBox dargestellt wird. Folgenden Ansatz habe ich:
(Die Tabelle darf jdeoch dafür nicht geöffnet werden!!!)
Dim p As String
With Application.FileSearch
.NewSearch
.LookIn = "F:\"
.SearchSubFolders = True
.Filename = "Tabelle1.xls"
If .Execute > 0 Then
p = .FoundFiles(1).Path -> Hier bekomme ich immer eine Fehlermeldung
MsgBox p
End If
End With
Vielen Dank im Voraus.
Norman