dichtstbijzijnde datum zoeken

edward

unread,

Jan 13, 2006, 4:37:47 PM1/13/06

to

Hallo NG

In kolom B staan datums.
D.m.v. een textbox voer ik een datum in die gezocht moet worden in kolom B

Als deze datum voorkomt OK, maar als hij niet voorkomt in kolom B dan moet
het regelnummer
weer gegeven worden met de dichtstbijzijnde volgende datum.
In VBA.

Voorbeeeld:

gezochte datum 20050521

1 20050428
2 20050502
3 20050522
4 20050528

Weergeven regel 3.

Bvd.

Edward

Jeroen

unread,

Jan 13, 2006, 6:08:02 PM1/13/06

to

Edward,

probeer het eens met de MATCH; in VBA werkt dat als volgt:
application.match(<datum>,<datumrange>,-1)
zie de help file voor meer info

--
Jeroen van Nieuwkerk
JevniPro...@hotmail.com

"edward" schreef:

edward

unread,

Jan 14, 2006, 11:00:07 AM1/14/06

to

Jeroen,

Bij MATCH moet het bereik in oplopende volgorde zijn gesorteerd en dat is
bij mij niet het geval.

Heb je misschien nog een ander idee?

Bvd

Edward.

> Edward,
>
> probeer het eens met de MATCH; in VBA werkt dat als volgt:
> application.match(<datum>,<datumrange>,-1)
> zie de help file voor meer info
>
>
> --
> Jeroen van Nieuwkerk
>
>
>
>

Cobbe

unread,

Jan 14, 2006, 11:30:22 AM1/14/06

to

edward plaatste dit op zijn scherm :

Sub Datumzoeken()
Range("B4").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(R[-3]C,R[-3]C[-1]:R[12]C[-1],1,TRUE)"
For X = 1 To Range("A65536").End(xlUp).Row
If Range("A" & X) = [B4] Then GoTo schrijven
Next
schrijven:
Range("B4") = "rij :" & X
End Sub

Dit zou het moeten doen.

Cobbe

--
-
-
Dit is een automatisch antwoord geformuleerd door Coborobot.
Te zien op http://www.villa-fura.be/

Luc Heyndrickx

unread,

Jan 14, 2006, 11:35:52 AM1/14/06

to

Ik zie dat je geen datums gebruikt, maar getallen.
Met deze formule kan je het dichtstbijzijnde getal zoeken in de range
B1:B100
Het te zoeken getal staat in cel A1
En dit is een matrix-formule. Dus invoeren, en afsluiten met de
toestencombinatie CTRL SHIFT ENTER.

=ALS(AANTAL.ALS(B1:B100;A1+MIN(ABS(B1:B100-A1)))=1;A1+MIN(ABS(B1:B100-A1));A1-MIN(ABS(B1:B100-A1)))

Luc

"edward" <g...@testnet.nl> schreef in bericht
news:997b4$43c82ba1$54697a9f$14...@cache40.multikabel.net...

edward

unread,

Jan 14, 2006, 4:56:15 PM1/14/06

to

Bij nader inzien wil ik eigenlijk niet zoeken naar de datum, omdat deze niet
op volgorde staan.
In ieder geval bedankt voor je antwoord.

Edward.

Jeroen

unread,

Jan 15, 2006, 7:42:02 AM1/15/06

to

Ik gebruik match ook bij bereiken die niet op volgorde staan.
Het zou gewoon moeten werken

--
Jeroen van Nieuwkerk
JevniPro...@hotmail.com

"edward" schreef:

> Jeroen,

edward

unread,

Jan 15, 2006, 9:41:53 AM1/15/06

to

Hallo,

Als ik deze formule
=DATUM(LINKS(A1;4);DEEL(A1;5;2);RECHTS(A1;2))
uitvoer op een kolom met datums in het formaat 20060101
dan krijg ik een foutmelding met kringverwijzing.

Wat doe ik fout?

Edward

"Luc Heyndrickx"

edward

unread,

Jan 15, 2006, 10:04:09 AM1/15/06

to

Bij mij staan er meer dezelfde datums in het bereik en dan laat hij de
laatste datum zien en dat weil ik niet.

Edward

>"Jeroen"

Luc Heyndrickx

unread,

Jan 15, 2006, 10:23:01 AM1/15/06

to

Dat komt omdat je verwijst naar een bereik waar de cel waar je je formule in
zet deel van uitmaakt.

Maar ik vraag me af waarom je verder zit te sukkelen, en hier weer met iets
totaal nieuws afkomt. De oplossing die ik je gegeven heb werkt perfect.
Je moet wel gebruik maken van een matrix-formule.

Geef anders je mail-adres 's. Ik stuur een voorbeeld.

Luc

"edward" <g...@testnet.nl> schreef in bericht

news:9952$43ca5e3f$54697a9f$13...@cache10.multikabel.net...

Jeroen

unread,

Jan 15, 2006, 7:00:02 PM1/15/06

to

dan moet je even kijken naar soortgelijke functies met meerdere mogelijkheden
vor het teruggeven van waardes... de functie help in excel geeft daar genoeg
info over.