Aufgabenstellung: Die Ausgabe von Arbeitsblatt-Namen & Zelladresse nach einer Suche nach einem Begriff / Zellinhalt über mehrere Sheets. Hier gelöst als Debug.Print, aber natürlich auch machbar als MsgBox, Zellinhalt oder Link.
Der Suchbegriff kommt aus einer Zelle des letzten Blatts, die Suche wird per Doppelklick ausgelöst.
Code für das Blatt:
Code: Alles auswählen
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim sFind As String
Cancel = True
sFind = Target.Value
FindAndLocate sFind
End Sub
Code: Alles auswählen
Option Explicit
Sub FindAndLocate(sFind As String)
Dim i As Integer
Dim rAddr As Range, sAddr As String
For i = 1 To Sheets.Count - 1
With Sheets(i).UsedRange
Set rAddr = .Find(sFind, LookIn:=xlValues)
sAddr = rAddr.Address
Debug.Print ">>" & sFind & "<<" & " in " & " " & Sheets(i).Name & " Zelle " & sAddr
End With
Next i
End Sub