FileSearch
robert
meine frage bzw. mein problem:
in diesem makro akzeptiert .Lookin nicht = verz
obwohl in verz "C:\Test\" steht,
steht in .LookIn "C:\Dokumente.... usw...
hat jemand eine idee was die ursache sein könnte?
für hilfe danke im voraus
gruß
robert
Sub Inhaltsverzeichnis_aller_XLS_Dateien_aus_einem_Ordner_erstellen()
Dim i As Long, verz As String
verz = "C:\Test\"
On Error GoTo Fehler
ChDrive Left(verz, 2)
ChDir verz
Range("A1").Select
With Application.FileSearch
.NewSearch
.LookIn = verz
.SearchSubFolders = False
.FileType = msoFileTypeExcelWorkbooks
.Execute
For i = 1 To .FoundFiles.Count
ActiveCell.Value = .FoundFiles(i)
ActiveCell.Offset(1, 0).Select
Next i
End With
Exit Sub
Fehler:
MsgBox "Es gibt kein Verzeichnis mit dem Namen " & verz
End Sub