Ctrl + F in Macro laten werken met gecopieerde waarde in de Macro

[Humadgen]

Hoi

Ik wil in een Macro de waarde van cel A2 copieren:
bijvoorbeeld waarde in A2 = xxxxx

    Range("A2").Select
    Selection.Copy

Vervolgens ga ik naar een andere sheet:
bijvoorbeeld Sheet 2

       Sheets("Sheet 2").Select

en dan moet de macro de waarde die dan gecopieerd is, als de waarde van what:="xxxxx" invullen als ik de find functie (Ctrl + F ) zou gebruiken indien ik het handmatig zou opzoeken

Dus met het handje Find selecteren geeft me deze code

    Cells.Find([COLOR="red"]what:="xxxxx"[/COLOR], After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate

maar dan staat 'xxxxx' er altijd in.
De waarde die in A2 staat zal altijd anders zijn op het moment dat ik de Macro wil gebruiken.

Ik vermoed dat het gaat door bijvoorbeeld

Dim what As Integer

te gebruiken, maar ik kan er net niet de draai aangeven hoe ik dat dan moet invullen.

Waarschijnlijk ben ik er al bijna, maar dat laatste stukje zie ik net niet.

Iemand een idee

Thanks Humadgen

 

[Haaren101]

Simpele voorzet:

ZoekTekst = Range("A2").value
Cells.Find(what:=ZoekTekst, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate

Ron

 

[Humadgen]

Hoi Rob,

Dank je wel voor je voorzet.
Met deze code ben ik er inderdaad uitgekomen.

    ZoekTekst = Sheets("Sheet1").Range("A2").Value

    Sheets("sheet2").Select
    
    Cells.Find(what:=ZoekTekst, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate

Helemaal TOP, :thumb: daarmee hoef ik zelfs het stukje van

    Range("A2").Select
    Selection.Copy

niet te gebruiken.

Grtnx
Humadgen

 

[Haaren101]

Zeg maar Ron

Graag gedaan
Ron