folgendes Szenario:
Ich habe ca. 200 Excel Mappen
Dort gibt es in jedem ein Sheet mit dem Namen "Summary"
Nun gilt es rauszufinden, ob in eben diesem Sheet eine bestimmte Buchstabenkombination wie z.b. "EP" oder "EK" vorhanden ist oder nicht.
ich habe folgenden code schon gefunden:
------------
Sub tt()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
On Error Resume Next
wort = InputBox("Suchwort")
Set fs = Application.FileSearch
With fs
.LookIn = "D:\kalk"
.Filename = "*.xls"
.Execute
For i = 1 To .FoundFiles.Count
Workbooks.Open .FoundFiles(i)
erg = Cells.Find(What:=wort, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate
If erg Then MsgBox wort & " gefunden in " & .FoundFiles(i)
Workbooks(Mid(.FoundFiles(i), InStrRev(.FoundFiles(i), "\") + 1)).Close SaveChanges: _
=False
Next i
End With
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
------------
Was ich halt benötige ist zusätzlich die funktion, dass nur im Sheet "Summary" gesucht wird und die Buchstabenkombinationen allein in einer Zelle stehen müssen. also beim Suchbegriff "EK" auch nur EK und nicht CFKx gefunden wird.
Kann mir da jemand helfen?