Cells.find op basis van inhoud cel

[tThye]

Beste mensen,

Ik heb de volgende formule in VBA staan:

    Cells.Find(What:=21, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
        xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate

Ik zoek dus naar de waarde 21 na de actieve cel. Deze waarde 21 heb ik via Ctrl+F handmatig ingevuld tijdens het opnemen van de macro. Graag zou ik dit willen automatiseren door bij 'What' geen harde waarde 21 in te vullen, maar de inhoud van bijvoorbeeld cel A3. Zoeken dus op inhoud van een cel in plaats van een in te geven waarde. Is dit mogelijk?

Groeten,

Mark

 

[zapatr]

Wat dacht je?
21 vervangen door Range("A3").Value
daar had je zelf op kunnen komen.

Best ook aan het begin Cells vervangen door het werkelijke bereik waarin je wil zoeken, bv. range("B1:M400")