Hoi,

Ik heb een vraag over een VBA-code.
Probeer de laagste waarde in een bereik te vinden, bijvoorbeeld B18: B200

Sub LAAGSTE WAARDE()

    Set rng = Range("B18:B200")
    lowestValue = WorksheetFunction.Min(rng)
    Set lowestCell = rng.Find(lowestValue)
    lowestCell.Select

End sub

Tot nu toe doet het zijn werk, maar wanneer de waarden 10 of hoger bereiken, krijg ik steeds de 10 als laagste waarde, hoewel de getallen in dat bereik variëren tussen 0 en 1000

Dus ik dacht dat er naar een "10" wordt gekeken als naar een "1", maar waarom worden dan niet de "0"-waarden in hetzelfde bereik weergegeven?
Voor de rest doet de code het prima

Thx,
L

Dag Molly,

Ik hoop dat je hier voldoende aan hebt, want buiten de code is dit het visueel resultaat.

Thx,
L

Oeps, geen reactie meer?

Vooruit dan maar (alleen omdat het toch cadeautjestijd is).
Je krijgt er zelfs een woordje uitleg bij : met 'lowestValue = WorksheetFunction.Min(rng)' zoek je inderdaad de laagste waarde, en die is '0'.
Met 'Set lowestCell = rng.Find(lowestValue)' zoek je daarom de eerste '0', en die zit IN het getal 10.

Wat jij wil is de volledige celinhoud vergelijken, dat kan met
Set lowestCell = Rng.Find(lowestValue, lookat:=xlWhole)