CLS-Filesearch
14.02.2018 07:10:25
cH_rI_sI
ich verwende die clsFileSearch von Nepumuk und möchte bei der Suche bestimmte Dateien auslassen, wenn im Dateinamen "CCA" vorkommt. Da ich hierzu keine Idee habe, muss ich Euch wieder einmal um Eure Hilfe bitten - anbei mein bestehender Code-Ausschnitt:
strSuwort = "Pos"
With objFileSearch
.CaseSenstiv = False
.Extension = "*.xls*"
.FolderPath = strOrdner
.SearchLike = "*"
.SubFolders = False
If .Execute(Sort_by_Size, Sort_Order_Descending) > 0 Then
Application.ScreenUpdating = False
For lngIndex = 1 To .FileCount
With .Files(lngIndex)
Workbooks.Open (.strPath), ReadOnly:=True, IgnoreReadOnlyRecommended:=True ' _
Workbook öffnen
On Error Resume Next
With Workbooks(.strFilename).Worksheets(TAG)
.Activate
bolErg = .Cells.Find(What:=strSuwort, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
If bolErg Then
'Ermittlung relevanter Einträge
Zelle_C = ActiveCell.Column
Zelle_R = ActiveCell.Row
'usw....
Lg,
Chrisi