zoek en vervang werkmap

[fotofons]

Handmatig zoeken en vervangen geen probleem.
Macro opgenomen. Bij controle blijkt dat alles op alle werkbladen goed is vervangen.

Kopieer ik deze code naar een ander macro, dat wordt het alleen op blad1 uitgevoerd.
Wat doe ik fout?

Cells.Replace What:="999999999", Replacement:="gelukt", LookAt:=xlPart, _
SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

 

[HSV]

Een code zoals deze werkt altijd maar voor één blad.
De macro is waarschijnlijk opgenomen binnen: werkmap ipv. binnen: Blad (opties <<).
Die optie zie je niet terug in de code.

 

[fotofons]

Dank voor uw reactie. Ik heb aangegeven dat het vervangen niet alleen voor het blad gold, maar voor de werkmap.

 

[HSV]

Ja, dat schreef ik al.

Het maakt voor de code niets uit waar het op staat.
De code is gelijk als zou je het op blad zetten.
Wanneer de code wordt opgenomen werkt deze wel alle details af die je kunt instellen, alleen komen die opties niet in de code om het voor een tweede keer af te spelen.

Je moet de code zelf aanpassen naar;

dim sh as worksheet
for each sh in sheets
    sh.Cells.Replace What:="999999999", Replacement:="gelukt", LookAt:=xlPart, _
           SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
           ReplaceFormat:=False 
next sh

 

[fotofons]

Schitterend, het werkt. Dit kende ik niet. BEDANKT!!!