Datum suchen mit nachfolgender Bedingung

Sub OpRisk_getNewData()
Dim objTo_find1 As Range, objTo_find2 As String
Dim objTemp As Range, objTo_find3 As String, objTo_find4 As String
Dim objData As Range
If Dir(Range("OpRisk_ImportPath")) = "" Then
MsgBox "A source for new Reference Data is not available. Please check path.", vbOKOnly  _
_
+ vbCritical
Exit Sub
End If
Set objTo_find1 = Range("next_due_date_OpRisk")
objTo_find2 = DateAdd("d", 1, objTofind1)
objTo_find3 = DateAdd("d", 2, objTofind1)
objTo_find4 = DateAdd("d", 3, objTofind1)
Set objTemp = ActiveSheet.Range("A1:I2").Find(objTo_find1)
If objTemp Is Nothing Then
Set objTemp = ActiveSheet.Range("A1:I2").Find(objTo_find2)
If objTemp Is Nothing Then
Set objTemp = ActiveSheet.Range("A1:I2").Find(objTo_find3)
If objTemp Is Nothing Then
Set objTemp = ActiveSheet.Range("A1:I2").Find(objTo_find4)
If objTemp Is Nothing Then
MsgBox "No valid report date found"
Exit Sub
End If
End If
End If
End If
Windows("141117_EWSTool_v02.xlsm").Activate
Sheets("OpRisk Reference Data").Select
Rows("2:2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Windows("KRIs Monitoring Data_2014.09.xlsx").Activate
Range("A4:I4").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Windows("141117_EWSTool_v02.xlsm").Activate
Sheets("OpRisk Reference Data").Select
Range("A2").Select
ActiveSheet.Paste
Worksheets("OpRisk").Range("I11") = Date
Workbooks("KRIs Monitoring Data_2014.09.xlsx").Close
MsgBox "Import completed"
End Sub