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?
|