Zoek en Vervang probleem

[cor.de.kruijf]

Hallo,
in een sheet heb ik een aantal verwijzingen staan naar een ander blad die als resultaat "Klaar" geven.
Middels een knop met vba code wil ik in deze cellen de verwijzing vervangen door de tekst "Vervallen""
Ik weet alleen niet hoe ik dat moet aanpakken want de normale zoek en vervang functie van Excel geeft een probleempje.
In het zoekvenster klik ik opties aan en bij "Zoeken in:" kies voor waarden.
Het zoeken gaat dan prima, alleen bij vervangen is die optie niet aanwezig. Het wordt automatisch terug gezet naar "Zoeken in: Formules" en hij vind dan niets.
Kan iemand mij hierbij helpen?

mvg Cor

 

[cor.de.kruijf]

Dit is blijkbaar niet eenvoudig of...............................
ik ben erg onduidelijk.

ik heb het volgende al bereikt;

Sub vervang()
On Error Resume Next
Do
Sheets("rooster").UsedRange.Find("Klaar", , xlValues, xlWhole).ClearContents
Loop Until Err.Number > 0
End Sub

De verwijzingen zijn nu weg, alleen moet nu nog in die lege cellen "Vervallen" komen te staan.

Iemand?

 

[Joske2000]

Sub vervang()
On Error Resume Next
Do
Sheets("rooster").UsedRange.Find("Klaar", , xlValues, xlWhole).Value = "vervallen"
Loop Until Err.Number > 0
End Sub

Joske

 

[cor.de.kruijf]

@ Joske2000

Dankjewel Joske, dat is em!

Ik zet hem op opgelost. :thumb::d

 

[Roncancio]

Iets korter:

Sub vervang()
Sheets("rooster").UsedRange.Replace "Klaar", "Vervallen"
End Sub

Met vriendelijke groet,


Roncancio

 

[cor.de.kruijf]

@Roncancio

inderdaad flink korter, helaas gebeurt er dan niets.
komt waarschijnlijk omdat het om een verwijzing gaat?

bedankt voor je aanvulling

Cor