Sub such()
was = InputBox("suchbegriff")
For Each cb In ActiveWorkbook.Worksheets
Set f = cb.Cells.Find(was, LookIn:=xlValues)
If Not f Is Nothing Then
MsgBox f.Address
Exit Sub
Else
End If
Next
End Sub
Sub such()
was = InputBox("suchbegriff")
For Each cb In ActiveWorkbook.Worksheets
Set f = cb.Cells.Find(was, LookIn:=xlValues)
If Not f Is Nothing Then
t = f.Worksheet.CodeName
MsgBox ("gefunden in Tabelle " & t & " Zelle " & f.Address)
Worksheets(f.Worksheet.CodeName).Select
Range(f.Address).Select
Exit Sub
Else
End If
Next
End Sub