VorSearchAllSheets ()
Schwaches WS als Arbeitsblatt
Schwaches rg als Strecke
Schwaches FindText als Schnur
FindText = Application.InputBox („die Adresse oder die genannte Strecke bitte eintragen, die Sie finden möchten“)
Für jedes WS in ActiveWorkbook.Worksheets
Rg einstellen = nichts
Rg = Find_Range (FindText, WS einstellen. Zellen, xlFormulas, xlPart, falsch)
Wenn nicht rg nichts dann ist
WS. Aktivieren
rg. Auserwählt
Beenden wenn
Zunächst
Enden-Unterseeboot
'Find_Range geschrieben von Aaron Blood
Funktion Find_Range (Find_Item als Variante, _
Search_Range als Strecke, _
Wahlweise freigestelltes LookIn als XlFindLookIn = xlValues, _
Wahlweise freigestelltes LookAt als XlLookAt = xlPart, _
Wahlweise freigestelltes MatchCase, wie Boolesch = falsch) als Strecke
Schwaches c als Strecke, FirstAddress als Schnur
Mit Search_Range
Einstellen c =. Finden (_
Was: =Find_Item, _
LookIn: =LookIn, _
LookAt: =LookAt, _
SearchOrder: =xlByRows, _
SearchDirection: =xlNext, _
MatchCase: =MatchCase, _
SearchFormat: =False) 'Löschung dieser Ausdruck für XL2000 und früh
Wenn nicht c nichts dann ist
Find_Range = c einstellen
FirstAddress = c.Address
Tun
Find_Range = Anschluss (Find_Range, c) einstellen
Einstellen c = .FindNext (c)
Schlingen, während nicht c nichts und c.Address FirstAddress <> ist
Beenden wenn
Mit beenden
Funktion beenden
|