weiss jemand von Euch, wie man mehrere Excel Dateien, die z.B.
in einem Order sind, nach einem „Keyword“ durchsuchen kann?
Ich möchte nicht immer jede (!) Datei öffen, dann strg-f
drücken um dann nach dem Wert zu suchen, der möglicherweise
dann erst in der 8. Datei enthalten ist (= 8x suchen!).
Hi Pole,
Alt+F11, Einfügen–Modul, Code reinkopieren, LookIn anpassen, Editor schliessen
Aufrufen mit Extras–Makro–Makro…
Sub tt()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
On Error Resume Next
wort = InputBox("Suchwort")
Set fs = Application.FileSearch
With fs
.LookIn = "C:\test"
.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
Gruß
Reinhard