Hallo Computerschrat.
Danke für Deine rasche Antwort.
Leider hab ich vergessen hinzuzufügen, dass ich auf dem PC, wo ich die Suchfunktion habe nur WIN7 installiert habe und nicht geändert werden kann, daher auch die Anfrage zu einem passenden Makro.
Hab eigentlich schon ein angehendes Makro kreiert, jedoch weiß ich nicht wie ich das eingeben soll, dass er in einem Ordner selbständig auch die weiteren Unterordner (eigentlich ab: "C:\Benutzer\Schule" - siehe FolderPath im Makro) nach Begriffen in dort enthaltenen xls-Dateien durchsucht. Ich kann derzeit nur Dateien eines bestimmten Ordners durchsuchen lassen und auch nicht das Ergebnis zum öffnen dieser anklicken.
Anbei einmal meine aus dem Internet zusammengebastelte Kreation:
Public Sub Wortsuche()
Dim objFileSearch As clsFileSearch
Dim lngIndex As Long
Dim strSuwort As String
Dim i As Integer
Dim bolErg As Boolean
Set objFileSearch = New clsFileSearch
strSuwort = InputBox("Suchwort eingeben")
With objFileSearch
.CaseSenstiv = False
.Extension = "*.xls"
.FolderPath = "C:\Benutzer\Schule\Jahrgang\Lehrer\Klasse1"
.SearchLike = "*"
.SubFolders = False
If .Execute(Sort_by_Name) > 0 Then
Application.ScreenUpdating = False
For lngIndex = 1 To .FileCount
With .Files(lngIndex)
Workbooks.Open (.strPath) 'Workbook öffnen
On Error Resume Next
For i = 1 To Workbooks(.strFilename).Worksheets.Count
With Workbooks(.strFilename).Worksheets(i)
.Activate
bolErg = .Cells.Find(What:=strSuwort, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Activate
If bolErg Then
MsgBox strSuwort & " gefunden in " & ActiveWorkbook.Name & Chr(10) & _
"Tabelle = " & ActiveWorkbook.Worksheets(i).Name
bolErg = False
Sheets("Tabelle1").Range("A2") = ActiveWorkbook.Worksheets(i).Name
End If
End With
Next i
Workbooks(.strFilename).Close savechanges:=False 'Workbook schließen
End With
Next
Else
MsgBox "Keine Datei gefunden"
End If
Application.ScreenUpdating = True
End With
Set objFileSearch = Nothing
End Sub
Gruß la.cm
