zoeken in bladen van excel2000

[Wilende]

Hoi hoi'
wie kan mij helpen aan een formule om in alle tabbladen te zoeken naar een bepaald woord ?? bijv. een woord die ik heb opgegeven in cel A1 in blad 1,

groet Willem

 

[Michel5]

Kun je eventueel niet gebruik maken van de opdracht Zoeken. (Ctrl+F)
Deze kun je vinden in het menu Bewerken, selecteer dan onder de knop Opties bij Binnen: de mogelijkheid Werkmap aan. Maak hier eventueel een macro van.

 

[Jan van Asseldonk]

Met onderstaande macro wordt in alle bladen gezocht en wordt de cel groen gekleurd indien de gevraagde string in de cel voorkomt.
Naar eigen idee aan te passen, bijv. niet kleuren maar stoppen of zo.

Sub ZoekOp()
'
' ZoekOp Macro

Dim zoek As String
Dim i As Integer
Dim eerstegevonden As String

'
aantal = ActiveWorkbook.Worksheets.Count
zoek = InputBox("Geef de te zoeken tekst op: ")
Sheets(1).Activate
Range("a1").Select

For i = 1 To aantal
Sheets(i).Activate
Range("a1").Select
If Not Cells.FindNext(After:=ActiveCell) Is Nothing Then
eerstegevonden = Cells.Find(zoek).Address
Cells.Find(What:=zoek, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
ActiveCell.Interior.ColorIndex = 4
While Cells.FindNext(After:=ActiveCell).Address <> eerstegevonden
Cells.FindNext(After:=ActiveCell).Activate
ActiveCell.Interior.ColorIndex = 4
Wend
End If
Next
Sheets(1).Activate
Range("a1").Select
End Sub