Functie "Find" en datums

[wieter]

Excel en datums. Ik heb er altijd problemen mee.
Als ik de functie [Find] gebruik met echte datums geen probleem.
Als ik nu i.p.v. echte datums, een formule gebruik om de datums te bepalen, werkt de Functie[Find] niet meer.
In de bijlage hebben de 2 eerste weken, echte datums, daarna heb ik een formule gezet.

Op blad "Weekrooster" werken de 2 eerste weken perfect, andere weken 0 resultaat.
Naar het schijnt bestaat er een andere functie om datums(via een formule) te zoeken?

Set Foundcell = Blad1.Range("B:B").Find(cll, , xlFormulas, xlWhole)

Set Foundcell = Blad1.Range("B:B").Find(cll)

Bovenstaande regels werken niet als het geen ECHTE datums zijn.
Weet iemand raad?

 

[pasan]

zet de cel eigenschappen in kolom "B" op korte datumnotatie, je zou in kolom "A" de dag kunnen weergeven
Verander in de code xlFormulas in xlValues

Set Foundcell = Blad1.Range("B:B").Find(cll, , [COLOR="#FF0000"]xlValues[/COLOR], xlWhole)

 

[VenA]

Hoewel een datum natuurlijk een getal is blijft het vaak lastig met Find. Zelf gebruik ik daarom meestal application.match.

De code heb ik een beetje ingekort. Weer wat stof tot nadenken:d

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$F$2" Then Range("C8:I19") = Application.Transpose(Blad1.Cells(Application.Match([C5], Blad1.Columns(2), 0), 3).Resize(7, 12))
End Sub

 

[wieter]

@Pasan
De aanpassing werkt. BEDANKT!
@VenA
Dat scheelt een heel stuk. De volledige module kan weg.
Je zal wel gemerkt hebben, dat de module een aanpassing is van een code, die oorspronkelijk door U geschreven is.
Bedankt om steeds maar weer te willen helpen.

 

[VenA]

Bedankt om steeds maar weer te willen helpen.

Heb ik het meeste door geleerd. Dus puur eigenbelang:d

Nb. Wat is Wapenstilstand voor feestdag? De 11de van de 11de is toch Sint-Maarten?

 

[Wigi]

https://nl.wikipedia.org/wiki/Wapenstilstandsdag

 

[wieter]

Zoals de link van Wim laat zien, is 11 nov. in België, een wettelijke feestdag.
Over de naam van die dag kan men natuurlijk...........................
Ik moet trouwens nog beginnen met de feestdagen in het bestand te automatiseren.
Die gekleurde feestdagen staan er nu maar in voor de show.
nb. Zo zijn er in België wel meer rare feestdagen: 30 februari = zoekdag naar een bed voor nieuwe pret.

 

[VenA]

nb. Zo zijn er in België wel meer rare feestdagen: 30 februari = zoekdag naar een bed voor nieuwe pret.

probeer die maar eens in een kalender te proppen + daar hebben 'jullie' Carnaval voor uitgevonden. (is minimaal 4 dagen pret met een andere ....) Maar we dwalen af.

 

[wieter]

Terug ter zake.
Ik ben wat aan het prutsen geweest met de oplossing van Pasan.
Hiervoor moest de korte datumnotatie gebruikt worden.
Met een kleine aanpassing kan ook de lange datumnotatie gebruikt worden.

Set Foundcell = Blad1.Range("B:B").Find(Format(cll, "dddd d mmmm yyyy"), , xlValues, xlWhole)

 

[snb]

Zoeken is voor ongestructureerde data.
In gestructureerde data kan gewoon gerekend worden:

bijv. (de array-variable is voor de duidelijkheid; maar uiteindelijk overbodig: zie bijlage):

Sub M_snb()
   sn = application.transpose(Blad1.Cells(1, 2).Offset(Format(Blad3.Cells(5, 3), "y")).Resize(7, 12))
   
   Blad3.Cells(24, 3).Resize(UBound(sn), UBound(sn, 2)) = sn
End Sub

 

[wieter]

Prachtig toch, om van specialisten als SNB en VenA, extra info te kunnen ontvangen.
Bedankt beiden!

 

[wieter]

@snb,
De aanpassing van 12u19 fenomenaal!!
Alles in één regel!!!!!!!
Nu die regel nog proberen te analyseren.
Bedankt.