Contoleren of range bepaald woord bevat op tabbladen 1 t/m 4

[Tweety1]

Ik ben opzoek naar een macro die controleert of een bepaald woord (Test) in een range van A1:A500 voorkomt op de eerste 4 tabbladen.
Komt het woord niet voor dan een msgbox met de tekst "Test onderbreekt op tabblad(en)..... (Naam van de tabblad(en). Anders de melding "ok".

Mvg
Kasper

 

[edmoor]

Is "Test" dan het enige woord in een cel of onderdeel van een zin?

 

[Tweety1]

Test is het engige woord wat voorkomt

 

[edmoor]

Kijk eens naar deze:
Bekijk bijlage Tweety.xlsm

Het zoeken is hoofdlettergevoelig.

 

[Tweety1]

Ziet er goed uit.
Is het nog mogelijk om hoofdlettergevoelig uit te zetten?

 

[edmoor]

Dat kan je zelf ook

Wijzig de regel:
If .Cells(x, y) = ZW Then Ok = True

In:
If LCase(.Cells(x, y)) = LCase(ZW) Then Ok = True

 

[Tweety1]

Thanks.

Bij het tonen van het bericht regel "Bericht = Bericht & " " & Sheets(z).Name". Zie ik de namen van de tabbladen. Is het nog mogelijk om daar een komma te plaatsen.
Ik heb het stukje & " " & vervangen door & ", " & . Als uitkomst zie dan ...in:, Blad2, Blad4. hoe kan ik de eerste komma weghalen?

 

[edmoor]

Ik zou het zo doen:
Bericht = Bericht & " " & Sheets(z).Name & ","

En dan dit bij het tonen van het bericht:
MsgBox Left(Bericht, Len(Bericht) - 1) & "."

 

[Tweety1]

Heel erg bedankt met het mee denken

 

[edmoor]

Graag gedaan

 

[Tweety1]

Nog een klein vraagje is het ook mogelijk de verborgen tabbladen over te slaan?

 

[edmoor]

Zoiets:

If Sheets(z).Visible = True Then
    Bericht = Bericht & " " & Sheets(z).Name & ","
End If

 

[Tweety1]

Nogmaals erg bedankt

Heb het een kleinbeetje aangepast

        If Ok = False And Sheets(z).Visible = True Then
            Bericht = Bericht & " " & Sheets(z).Name & ","
        Else
            TM = TM + 1
        End If