Hallo zusammen,

stehe total auf dem Schlauch und bräuchte mal Hilfe...

Ich habe ThisWorkbook aus dem ich ein Makro starte.

Dann öffnet sich eine Eingabeaufforderung um ein Suchbegriff einzugeben.

Der Suchbegriff soll dann in allen offenen Workbooks und deren Sheets gesucht werden.

Wenn was gefunden wird, sollen der Ort als Hyperlink in ThisWorkbook eingetragen werden.

Ich bekomme das einfach nicht zum laufen. 

Der Link wird eingetragen und wenn ich ihn benutze springe ich in die richtige mappe und ins richtige Sheet aber nicht in die richtige Zelle.

Da kommt dann immer "Der Bezug ist ungültig" oder manchmal nichts und man ist dann einfach nur in A1 des richtigen Sheets.

Irgendwo fehlt eine Zuweisung zum richtigen WB.

Vielleicht kann mir hier jemand helfen:

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" '& rngF.Address(0, 0)
                       
                        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