ich habe folgendes Problem:
ich will mit meinem Makro nicht nur in allen Mappen in einer Datei Suchen, sonder auch noch in einer zweiten Datei!
Ist dies möglich?
Ich habe bis jetzt folgendes Makro gebraucht:
Sub In_allen_Mappen_suchen()
Dim wks As Worksheet
Dim rng As Range
Dim sAddress As String, sFind As String
sFind = InputBox("Bitte Suchbegriff eingeben:")
If sFind = "" Then Exit Sub
For Each wks In Worksheets
Set rng = wks.Cells.Find( _
what:=sFind, _
lookat:=xlWhole, _
LookIn:=xlFormulas)
If Not rng Is Nothing Then
sAddress = rng.Address
Do
Application.Goto rng, True
If MsgBox( _
prompt:="Weiter Suchen", _
Buttons:=vbYesNo + vbQuestion _
) = vbNo Then Exit Sub
Set rng = Cells.FindNext(after:=ActiveCell)
If rng.Address = sAddress Then Exit Do
Loop
End If
Next wks
MsgBox prompt:="Keine neue Fundstelle!"
End Sub
Kann mir jemand bei meinem Problem helfen?
Gruß Andreas