Zoeken naar waarde in cel

[Markjansen74]

Hoi,

Ik probeer een macro te schrijven die op hetzelfde werkblad zoekt naar de waarde die in een bepaalde cel staat, bijv. cel A1.
Ik zou dit moeten doen middels declareren van een variabele, maar kom er verder niet uit.

Kan iemand me op weg helpen?

 

[HSV]

Hoi,

Het lijkt op een schoolopdracht, alhoewel het vakantie is.

 

[Markjansen74]

Nee, geen schoolopdracht, wel werk. Ik zou deze macro vaak kunnen toepassen, dus zou er flink mee geholpen zijn.

 

[Warme bakkertje]

Kijk in de VBA-help eens bij Find of Application.Match.

 

[HSV]

Beetje raar dat je werk bepaalt dat je het met een variabele moet doen.
Maar goed. ik zie ook wel 74 staan in je forumnaam (40 of 74 jaar), dus echte huiswerk zal het wel niet zijn.

Sub hsv()
Dim c As Range
Set c = Cells.SpecialCells(2).Find(Range("A1"), Range("A1"), xlValues, xlWhole)
  MsgBox IIf(c.Address <> Range("A1").Address, "hetzelfde staat in cel " & c.Address, "alleen cel $A$1 heeft deze waarde")
End Sub

 

[Markjansen74]

Hoi Harry,

Bedankt voor je reactie. Goed geraden, 74 betreft inderdaad mijn geboortejaar, dus zit niet meer op school....alhoewel ik nog iedere dag leer
Het is niet zo dat mijn werk bepaalt dat ik dit met een variabele moet doen, maar wil graag weten hoe het met een variabele zou moeten, zodat ik dit in de toekomst kan toepassen als het nodig is.

Ik ben in ieder geval geholpen, dank je!

Groet,

Mark

 

[HSV]

Graag gedaan Mark,

We doen wel eens een beetje vervelend hier, we mogen/kunnen nl. geen volledige antwoorden geven op schoolopdrachten (forumregels).

Succes ermee.