Suche nach Fragezeichen
10.09.2003 10:26:44
Matthias
ich suche innerhalb eines VBA für Excel-Makros ein Verzeichnis ab nach Dateien, die in irgendeinem Tabellenfeld ein Fragezeichen stehen haben. Das Fragezeichen kann dabei auch innerhakb eines Wortes auftauchen, bsp. "???0815"!
Nun ist das Problem, dass er das Fragezeichen jeweils als Platzhalterzeichen definiert und sämtliche Dateien auflistet.
With Application.FileSearch
.NewSearch
.LookIn = pfad
.SearchSubFolders = False 'ohne Unterverzeichnisse
.Filename = "*.xls"
.TextOrProperty = "?" '<===Problem-------
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
Else
MsgBox "There were no files found."
End If
End With
Wie kann ich die Fragezeichen aufspüren!!! Ich wäre über einen schnellen Tipp sehr dankbar!
Matthias