Suchen über Find
25.06.2004 11:31:46
Thomas
ich will in mehreren Sheets nach einem String suchen.
Folgenden Code habe ich gefunden, nur leider funktioniert er nicht.
Kann mir jemand weiterhelfen?
Vielen Dank und Gruss
Thomas
Sub SearchString()
Const sfind As String = "test"
Dim objWS As Worksheet
Dim objCell As Range
For Each objWS In ThisWorkbook.Worksheets
Set objCell = objCell.Find(what:=sfind)
If Not (objCell Is Nothing) Then MsgBox objCell.Address(False, False)
Next
End Sub