Reply to thread

Message: [QUOTE="Jürgen Heyn, post: 3726446"] Hi Bernie, thank you very much for your response. Unfortunately nothing changed the error is still fired: sCellDate = "B" + CStr(Target.Row) sCellTime = "D" + CStr(Target.Row) 'sFormula = "=WENN(" + sCellTime + "<>" + Chr(34) + Chr(34) + ";Date2Julian(" + sCellDate + ";Str2Hrs(" + sCellTime + "));0)" sFormulaE = "=IF(" + sCellTime + "<>" + Chr(34) + Chr(34) + ",Date2Julian(" + sCellDate + ",Str2Hrs(" + sCellTime + ")),0)" Debug.Print sFormulaE Application.EnableEvents = False 'ActiveSheet.Range(Cells(Target.Row, Target.Column + 1)).FormulaLocal = sFormula ActiveSheet.Range(Cells(Target.Row, Target.Column + 1)).Formula = sFormulaE Application.EnableEvents = True Best regards Juergen Heyn, Wilhelmshaven, Germany [/QUOTE]