zoeken of waarde aanwezig is in celbereik

[D-Mon]

Beste helpmijers,

Ik ben bezig met een functie in of excel zelf of middels VBA om te controleren of een bepaalde waarde aanwezig is in een celbereik. Het resultaat dient bijvoorbeeld "x" te zijn indien aanwezig, en "" indien niet aanwezig.

Via excel zat ik te denken aan:

ALS(A1:B9=1;"x";"") --> maar werkt niet

Via VBA zat ik te denken aan:

IF Sheets(1).Range("A1:B9").Value = 1 Then Sheets(1).Range("A2").Value = x
End If

Kunnen jullie mij verder helpen?

Arno

 

[leofact]

Dat kun je oa oplossen met AANTAL.ALS
=ALS(AANTAL.ALS(A1:B9;1)>0;"X";"")

mvg Leo

 

[D-Mon]

Thnx! Het werkt perfect inderdaad!
Uiteraard wil ik proberen eea te automatiseren, heb je misschien ook een oplossing middels vba?

 

[Hoornvan]

D-Mon,

Zo iets?

Sub Ts()
  For Each Cell In Sheets(1).[A1:B9]
  If Cell = 1 Then Sheets(1).[A2] = "x"
Next