zoeken op meerdere werkbladen (VBA)

[Croink]

Ik zit met het volgende:

Ik wil middels een vba script kunnen zoeken in meerdere werkbladen, ik gebruik het volgende script:

Sheets(Array("1", "2", "3", "4", "5")).Select
        Cells.Find(What:="voorbeeld", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False).activate

Met dit script krijg ik steeds de foutmelding " Objectvariabele of blokvariabele With is niet ingesteld"

Wie weet hoe ik dit moet instellen? of moet ik totaal iets anders gebruiken?

 

[KaY.NL]

Heeft dat script ooit gewerkt?

 

[Croink]

Enig idee waarom ik de vraag hier plaats?????
Blijkbaar heb je zelf het antwoord nog niet gevonden!
of ga je me verassen?

 

[Jan van Asseldonk]

Bijgaande macro zoekt in alle bladen naar de op te geven tekst en kleurt de cellen waarin deze voorkomt groen.

Sub ZoekOp()
'
' ZoekOp Macro
'
Dim bladnr As String
Dim zoek As String
Dim i As Integer
Dim eerstegevonden As String

'
'On Error Resume Next
    aantal = ActiveWorkbook.Worksheets.Count
    zoek = InputBox("Geef de te zoeken tekst op: ")
    Sheets("blad1").Activate
    Range("a1").Select
    
    For i = 1 To aantal
        bladnr = "blad" + Format(i)
        Sheets(bladnr).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
End Sub

 

[Croink]

Jan het werkt perfect!
Dit scheelt mij veel werk.
Ik richt een standbeeld voor je op!
Misschien mag ik nog vaker bij je aankloppen, als beginner heb ik nog 1001 en 1 vragen.

Nogmaals bedankt!

 

[pieter2002]

Zoeken in word dokumenten

Beste Jan,

Is het ook mogelijk om woorden, vanuit een Excel blad naar onderliggende bladen te zoeken.
Dit zijn zowel Excel als Word documenten.
Kan dit überhaupt wel met Word docs?

Groet,
Pieter

 

[huijb]

@ robert hofman Graag een eigen vraag maken a.u.b. Het is niet netjes om in een ander zijn of haar vraag jouw probleem aan de orde te stellen. Bovendien is het verwarrend voor de helpers. Je vraag is verwijderd.