Goedemiddag,
Ik heb een code toegevoegd aan mijn VBA om een datum te zoeken in een werkblad.
Deze zelfde code wil ik uiteindelijk ook gaan gebruiken om naar de datum van vandaag te gaan bij
het openen van het werkblad.
De code klopt (want hij doet het elders met namen wel) echter heb ik de instellingen van de rij met data
ingesteld op een Date format specifiek (nl 1-jan als weergave ipv 01-01-2018 oid). Ik vermoed dus dat de zoekfunctie
in dit geval niet werkt door die specifieke instelling, maar dat durf ik niet met zekerheid te zeggen.
Wie o wie kan mij helpen?
De code is als volgt:
Ik heb een code toegevoegd aan mijn VBA om een datum te zoeken in een werkblad.
Deze zelfde code wil ik uiteindelijk ook gaan gebruiken om naar de datum van vandaag te gaan bij
het openen van het werkblad.
De code klopt (want hij doet het elders met namen wel) echter heb ik de instellingen van de rij met data
ingesteld op een Date format specifiek (nl 1-jan als weergave ipv 01-01-2018 oid). Ik vermoed dus dat de zoekfunctie
in dit geval niet werkt door die specifieke instelling, maar dat durf ik niet met zekerheid te zeggen.
Wie o wie kan mij helpen?
De code is als volgt:
Code:
Private Sub VindCommandButton_Click()
Application.ScreenUpdating = False
Call OptimizeCode_Begin
Dim Datum As Date
Dim Rng As Range
Datum = InputBox("Welke datum zoekt u?")
If Trim(Datum) <> "" Then
With Sheet9.Range("D4:ND4")
Set Rng = .Find(What:=Datum, _
After:=.Cells(.Cells.Count), _
LookIn:=xlValues, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
If Not Rng Is Nothing Then
Rng.Select
Else
MsgBox "Datum niet gevonden"
End If
End With
End If
Call OptimizeCode_End
Application.ScreenUpdating = True
End Sub