versuch mal das. aber Suchwort ist eine Variable und muß angepasst werden.
Dim ergebnis As Object, ws As Object, bolgefunden As Boolean
With CreateObject("excel.application")
With .Workbooks.Open(FileName:=Zieldatei)
For Each ws In .Worksheets
Set ergebnis = ws.usedrange.Find(What:=Suchwort, LookIn:=-4163, lookat:=1)
If Not ergebnis Is Nothing Then
ws.Select
ergebnis.Select
.Parent.Visible = True
Exit Sub
End If
Next
.Close False
End With
.Quit
|