Keskustelu: Ohjelmointikysymykset: VBA: Miten haen excel taulukosta päivämäärän makrolla?

Miten saadaan haettua taulukosta tietty päivämäärä ja kun sen on löydetty niin tehdään viereiselle solulle esim seuraava ehto jos sisältö on A muutetaan AP:ksi.
Jos tehdään haku kuten alla eli etsitään tekstiä LAUANTAI niin se löydetään ja sitten muokataan solujen väriä niin tämä onnistuu, mutta jos laitan haku ehdoksi esi. 6.12.2007 niin tästä tulee virheilmoitus "run time error 91" eli ei löydä. Kuitenkin jos teen taulukon olessa auki haun käsin niin kyllä excel silloin löytää ko päivämäärä. Miten tämä pitäisi koodiin kirjoittaa jotta päivämäärä löytyy??

'näytön jäädytys
Application.ScreenUpdating = False
'lauantain maalaus
    Range("A1").Select
    a = 0
    Cells.Find(What:="lauantai", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False).Activate
alku:
    Selection.Font.ColorIndex = 54
    With Selection.Interior
        .ColorIndex = 8
        .Pattern = xlSolid
    End With

'viereisten sarakkeiden maalaus
    b = 0
alku2:
    ActiveCell.Offset(rowOffset:=0, columnOffset:=1).Activate
     Selection.Font.ColorIndex = 54
    With Selection.Interior
        .ColorIndex = 8
        .Pattern = xlSolid
    End With
    b = b + 1
    If b > 24 Then GoTo seuraavalauantai Else GoTo alku2

No mitä jos laitat siihen What:=CDate("6.12.2007")

Tietysti tuo virhekin kannattaa sinänsä käsitellä, sehän tulee jos Excel ei löydä etsittävää.

Kiitos vinkistä!
Mutta jos jätän muut hakuun vaikuttavat asetuksen samoiksi niin kursori kyllä on halutun päivämäärän kohdalla, mutta ilmoittaa virheen 1004 ja suoritus keskeytyy.
Täytyy tehdä nuo virheenkäsittelyt kunhan saan muuten nuo haku ja muokkausjutut kohdalleen

No nyt sain sen onnistumaan haluamallini tavalla ja haetaan päivämäärä tieto toisesta taulukosta.
suuret kiitokset Grez:lle!