Sub Alle_Offenen_Dateien()
Dim wkb As Workbook
Dim wks As Worksheet
Dim rngF As Range
Dim strFirstAddress As String
Dim strSuchbegriff As String
strSuchbegriff = InputBox(prompt:="Bitte Suchbegriff eingeben:", Title:="Suchbegriff")
For Each wkb In Application.Workbooks
For Each wks In wkb.Worksheets
If wks.Name <> "Suche" Then
Set rngF = wks.Range("A1:O2000").Find(What:=strSuchbegriff)
If Not rngF Is Nothing Then
strFirstAddress = rngF.Address
Do
ThisWorkbook.Sheets(1).Hyperlinks.Add Anchor:=ThisWorkbook.Sheets(1).Range("R1"), Address:=wkb.FullName, SubAddress:=wks.Name & "!A1"
var1 = wkb.FullName & wks.Name & rngF.Address
Set rngF = wks.Range("A1:O2000").FindNext
Loop While rngF.Address <> strFirstAddress
End If
End If
Next wks
Next
End Sub