Suche über mehrere Sheets & Fundort

.. das wohl mächtigste Werkzeug in Bill Gates' Büro-Sippe. Ob reine Formeln, PowerQuery oder VBA. Hier bleiben kaum Wünsche unerfüllt.
Benutzeravatar
d'r Bastler
Beiträge: 832
Registriert: 29. Aug 2022, 13:20
Hat sich bedankt: 224 Mal
Danksagung erhalten: 119 Mal

Suche über mehrere Sheets & Fundort

#1

Beitrag von d'r Bastler »

Moin allerseits,

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 für ein Allg. Modul:

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
Viel Spaß damit!
d'r Bastler von den VBAsteleien.de
Win 10 + Office 2019 & Win11 + Office 2021 + Visio 2019 pro & macOS.X15 + Office2019pro & Android12 & XL365

Wer ist online?

Mitglieder in diesem Forum: Ahrefs [Bot] und 0 Gäste