Datum opzoeken in range

[johhnnyboy]

Hoi,

ik heb onderstaande code, maar ondanks dat de betreffende datum voorkomt in de range krijg ik toch terug dat deze niet bestaat. Iemand een suggestie:

FindString = CLng(DateSerial(Sheets("C - Configuratie").Range("D19").Value, Sheets("C - Configuratie").Range("D17").Value, 1))

MsgBox FindString
    
            With Sheets("DATA - Historie totaal").Range("R15:AX15")
            
                Set Rng = .Find(What:=FindString, _
                                After:=.Cells(.Cells.Count), _
                                LookIn:=xlValues, _
                                LookAt:=xlWhole, _
                                SearchOrder:=xlByRows, _
                                SearchDirection:=xlNext, _
                                MatchCase:=False)
            
                If Not Rng Is Nothing Then
                    Application.Goto Rng, True
                Else
                    MsgBox "Nothing found"
                End If
        
            End With

De msgbox geeft bijvoorbeeld een datum terug van 1-2-2014 welke bestaat in de range.

 

[johhnnyboy]

Oke de datum in de cell is wel 1-1-2014, maar er zit een opmaak op MM-YYYY.

Ff mee klooien nog dus.