Arbeitsmappe durchsuchen
juergen
ich habe im Forum ein Makro gefunden, das eine die Arbeitsmappe durchsucht in der sich das makro befindet.
Frage 1):
Kann man das Makro so abändern, das es alle geöffneten Arbeitsmappen durchsucht? Wenn ja, wie?
Frage 2) (Vorausgesetzt Frage 1) wurde mit Ja beantwortet) , gibt es die Möglichkeit, die Suche auf nicht geöffnete Arbeitsblättern auszuweiten?
Wäre schön, wenn dem so wäre, Hmmmmmm , habe im Forum zwar das ein oder andere gefunden, aber bin leider nicht schlau daraus geworden. Die v. g. Fragen konnte ich mir nicht eindeutig beantworten.
Bin wirklich dankbar für jeden Beitrag.
Danke
Gruß
Jürgen
Sub Finden()
Dim rng As Range
Dim vNumber As Variant
Dim iCounter As Integer
Dim sFirst As String
Dim bln As Boolean
vNumber = InputBox( _
prompt:="Bitte Begriff eingeben:", _
Default:="Such Such")
If vNumber = "" Then Exit Sub
For iCounter = 1 To Worksheets.Count
Set rng = Worksheets(iCounter).Cells.Find(vNumber)
If rng Is Nothing = False Then
sFirst = rng.Address
Do
Set rng = Worksheets(iCounter).Cells.FindNext(rng)
MsgBox "Gefunden in Blatt " & rng.Parent.Name _
& " - Zelle " & rng.Address(False, False)
Loop While Not rng Is Nothing And rng.Address sFirst
bln = True
End If
Next iCounter
If bln = False Then
Beep
MsgBox prompt:="Begriff nicht gefunden!"
End
End If
End Sub