versuchs mal damit. dim result result = WorksheetFunction.Match(CDbl(Date), Suchbereich, 0) 'wenn datum gefunden If IsNumeric(result) Then end if