Hallo
so sieht der Code in meinem Test aus
Sub SetTargetDate()
Dim TargetDate As String
Dim RowNumber As Integer
RowNumber = ActiveCell.Row
Select Case Cells(RowNumber, 1)
Case Is = "A"
TargetDate = Evaluate("=VLOOKUP(C" & RowNumber & ",'SE-Docs&Targets'!B4:X38,7,FALSE)")
Case Is = "B"
TargetDate = Evaluate("=VLOOKUP(C" & RowNumber & ",'SE-Docs&Targets'!B4:X38,11,FALSE)")
Case Is = "C"
TargetDate = Evaluate("=VLOOKUP(C" & RowNumber & ",'SE-Docs&Targets'!B4:X38,19,FALSE)")
Case Is = "D"
TargetDate = Evaluate("=VLOOKUP(C" & RowNumber & ",'SE-Docs&Targets'!B4:X38,21,FALSE)")
End Select
Cells(RowNumber, 10).Value = TargetDate
End Sub
und alles ohne Fehlermeldung
MfG Tom
|