Hallo zusammen!
Mein Problem ist folgendes:
Es werden durch ein anderes Programm Daten an Excel zurückgegeben. Es handelt sich hierbei um mehrere Arbeitsmappen, die alle nicht gespeichert sind. In diesen Mappen möchte ich nun nach bestimmten Begriffen suchen und die Mappe, die den jeweiligen Begriff enthält, unter einem anderen Namen speichern.
Bisher habe ich es hiermit probiert:

With Application.FileSearch

.NewSearch
.LookIn = "C:\versuch"
.TextOrProperty = "Bew"
.MatchTextExactly = True
.FileType = msoFileTypeAllFiles
.Execute

If .FoundFiles.Count > 0 Then
Workbooks(GetFileName(.FoundFiles(1))).Activate

ActiveWorkbook.SaveAs "gefunden.xls"
MsgBox "bew gespeichert"
Else
MsgBox "Kein bew gefunden."
End If

End With

Das funktioniert aber nur, wenn die Datei, die den Begriff enthält, gespeichert, geöffnet und aktiv ist. Ansonsten bleibt das Programm in der Zeile
Workbooks(GetFileName(.FoundFiles(1))).Activate
stehen und bringt den Laufzeitfehler "Index außerhalb des gültigen Bereichs".
Es wäre schön, wenn mir jemand von euch weiterhelfen könnte.
Danke im Voraus,
Anna.