Datum met 4digit-year

[RoVo1211]

Het klinkt heel basaal, maar ik krijg het niet voor elkaar om het jaartal met 4 cijfers te laten weergevenen daarnaar te laten zoeken met de Find-functie.
In het bestand "Aandelen_Slotkoersen.odt" staat de macrotekst met een geel gemarkeerd gedeelte.

dtVandaag = Format(Date, "dd-mm-yyyy")
'Volgens mij moet hier een datum uitkomen als "18-05-2024", maar ik krijg slechts "18-05-24"
Debug.Print Weekday(Date, vbMonday)

Select Case Weekday(Date, vbMonday)
Case Is = 1
dtVorigedag = dtVandaag - 3
Case Is = 6
dtVorigedag = dtVandaag - 1
Case Is = 7
dtVorigedag = dtVandaag - 2
End Select

VorigeDag = Format(dtVorigedag, "dd-mm-yyyy") 'hier hetzelfde als bij dtVandaag (maar dan met datum 17-05-2024), zie de output in de weergave van het venster "Direct" hier onder.

Met deze datum-notatie werkt de functie Find niet. Deze zoekt naar een datum met 4 cijfers voor het jaar.

Set rngVandaag = Sheets(4).Range("A3:A368").Find(What:=dtVandaag, LookIn:=xlValues, LookAt:=xlWhole)
Set rngVorigeDag = Sheets(4).Range("A3:A368").Find(What:=VorigeDag, LookIn:=xlValues, LookAt:=xlWhole)
Debug.Print "dtVandaag: " & vbTab & dtVandaag & vbTab & "rngVandaag: " & vbTab & rngVandaag.Address

De laatste regel "Debug.print "dtvandaag...." geeft de volgende foutmelding:

Objectvariabele of blokvariabele With is niet ingesteld.

Hoe moet ik het aanpassen zodat "Find"zoekt naar een jaar met 2 cijfers of dat er een jaartal met 4 cijfers wordt gegenereerd?

 

[AHulpje]

Wijzig de opmaak van kolom A op werkblad "Jaaroverzicht(4)" in categorie: Datum, Type: *14-3-2012

 

[RoVo1211]

Met alle respect Ahulpje, maar dat is het probleem niet. De celwaarden van kolom A geven al de datum met 4 jaarcijfers. Het lukt me alleen niet om dit in vba voor elkaar te krijgen.
Ik heb ook al geprobeerd om de celwaarden in kolom A naar 2 jaarcijfers te krijgen en dat lukt ook niet.
Heeft het sterretje in "*14-03-2012" nog een betekenis?

 

[AHulpje]

Je zoekt een tekst (dtVandaag is tekst) in een datumkolom.
Probeer het eens zo:

Sub Testje()
    Set rngVandaag = Sheets("Jaaroverzicht (4)").Range("A3:A368").Find(Date)
    Set rngVorigeDag = Sheets("Jaaroverzicht (4)").Range("A3:A368").Find(Date - 1)
    Debug.Print "rngVandaag: " & rngVandaag.Address & vbCrLf & "rngVorigeDag: " & rngVorigeDag.Address
End Sub

 

[RoVo1211]

Wil je daarmee zeggen dat door het formatteren met "dd-mm-yyyy" de datum een tekst wordt?

 

[AHulpje]

Sub test()
    dtvandaag = Format(Date, "dd-mm-yyyy")
    Debug.Print dtvandaag, VarType(dtvandaag), TypeName(dtvandaag)
End Sub

18-05-2024 8 String
Zie: VarType constants

 

[RoVo1211]

Misschien dat ik een beetje eigenwijs overkom, bij voorbaat excuses daarvoor.
Ik heb jouw testje een beetje uitgebreid, maar bij mij komt er VarType=7 en typename=date.
Ik moet wel toegeven dat ik in Windows mijn korte datum-notatie heb aangepast naar dd-mm-yyyy (was dd-mm-yy).

Hieronder mijn macro Testje:

Sub testje()

Select Case Weekday(Date, vbMonday)
Case Is = 1
    dtVandaag = Date
    dtVorigedag = Date - 3
Case Is = 6
    dtVandaag = Date - 1
    dtVorigedag = Date - 2
Case Is = 7
    dtVandaag = Date - 2
    dtVorigedag = Date - 3
End Select
fVandaag = Format(dtVandaag, "dd-mm-yyyy")
fVandaag2 = FormatDateTime(dtVandaag, vbShortDate)
fVorigeDag = Format(dtVorigedag, "dd-mm-yyyy")
fVorigeDag2 = FormatDateTime(dtVorigedag, vbShortDate)
Debug.Print Time, "fVandaag (dd-mm-yyyy): ", fVandaag, VarType(fVandaag), TypeName(fVandaag)
Debug.Print Time, "fVandaag2 (vbshortdate): ", fVandaag2, VarType(fVandaag2), TypeName(fVandaag2)
Debug.Print Time, "Fvorigedag (dd-mm-yyyy): ", fVorigeDag, VarType(fVorigeDag), TypeName(fVorigeDag)
Debug.Print Time, "fVorigedag2 (vbshortdate): ", fVorigeDag2, VarType(fVorigeDag2), TypeName(fVorigeDag2)
End Sub

output:

De tijd had ik voor mezelf even bijgezet om te checken dat het de laatste output is.

 

[RoVo1211]

Ik heb inmiddels de opmaak in kolom A van sheets(4) aangepast naar dd-mm-yyyy en nu doet de macro het wel.

Mijn vraag blijkt opgelost.

 

[AHulpje]

"Misschien dat ik een beetje eigenwijs overkom, bij voorbaat excuses daarvoor." ;-)
Zie #2.
Overigens levert jouw testje bij mij dit op:

17:33:50      fVandaag (dd-mm-yyyy):      17-05-2024     8            String
17:33:50      fVandaag2 (vbshortdate):    17-5-2024      8            String
17:33:50      Fvorigedag (dd-mm-yyyy):    16-05-2024     8            String
17:33:50      fVorigedag2 (vbshortdate):  16-5-2024      8            String

 

[RoVo1211]

Uiteindelijk heb ik jouw tip uit #2 ook gedaan, maar moest ik ook de korte datum-notatie in Windows aanpassen.
Toch bedankt voor je hulp.
Deze vraag ga ik als opgelost markeren.

 

[Warme bakkertje]

Datums worden in XL ongeacht het format opgeslagen als getallen dus met deze in jouw ongewijzigde

bestand uit jouw 1ste post

Set rngVandaag = Range(Cells(Application.Match(CDbl(dtVandaag), Columns(1), 0), 1).Address)
Set rngVorigeDag = Range(Cells(Application.Match(CDbl(VorigeDag), Columns(1), 0), 1).Address)
Debug.Print "dtVandaag: " & vbTab & dtVandaag & vbTab & "rngVandaag: " & vbTab & rngVandaag.Address
Debug.Print "dtVorigedag: " & vbTab & dtVorigedag & vbTab & "rngVorigedag: " & vbTab & rngVorigeDag.Address

krijg ik dit als uitkomst.

 

[RoVo1211]

Bedankt voor je reactie, maar ik heb het probleem zelf kunnen oplossen door in Windows de korte datum-notatie aan te passen naar dd-mm-yyyy ipv dd-mm-yy.