Hallo Gemeinde,

ich sitze vor einem Problem:

Folgenden Code habe ich für eine individuelle Suche erstellt und bereits teils modifiziert

Sub Suchen_Click()

 Dim rngFind As Range

    Dim strTitel As String

    Dim strFirst As String

    strTitel = InputBox("Suche nach:", "Suchbegriff eingeben", , 5, 5)

    Set rngFind = Columns("A:EA").Find(strTitel, LookIn:=xlValues)

    If Not rngFind Is Nothing Then

            strFirst = rngFind.Address

        Do

            rngFind.Select

            rngFind.Interior.ColorIndex = 10

            rngFind.Font.Bold = True

            rngFind.Font.ColorIndex = 2

            If MsgBox("Zur Suche gefunden:" & vbNewLine & vbNewLine & rngFind & vbNewLine & vbNewLine & vbNewLine & vbNewLine & "...für weitere Ergebnisse auf OK klicken" & vbLf, vbOKCancel) = vbOK Then

                Set rngFind = Columns("A:EA").FindNext(rngFind)

            Else

                Exit Sub

            End If

        Loop While Not rngFind Is Nothing And rngFind.Address <> strFirst

    Else

        MsgBox "Die Suche ist ohne Treffer verlaufen."

    End If

End Sub

Ich habe durch diesen Code jetzt zwar die Möglichkeit, dass die entsprechende Zelle des Ergebnisses jeweils durch klick auf OK auszuwählen und sogar farblich zu markieren.

Mein Problem ist nun, dass ich es nicht hinbekomme, in der gesamten Arbeitsmappe zu suchen (hier wurde lediglich der Bereich der Spalten A bis EA festgelegt).

Mit „For Each Blatt In ActiveWorkbook.Worksheets” komme ich nicht viel weiter, da ich das offenbar nicht in diesen Code einbauen kann.  

Des Weiteren bekomme ich es einfach nicht geregelt, mir in der Messagebox eine Liste der kompletten Suchergebnisse (zwischen „zur Suche gefunden:“ und „…für weitere Ergebnisse auf OK klicken“ untereinander aufgelistet) anzeigen zu lassen.

Kann mir jemand weiterhelfen?