If (IsDate(Worksheets("Liste").Range("L50").Value) And Worksheets("Analyse").Range("B27").Value = vbNullString) = True Then