Set objExcel = CreateObject("Excel.Application") 
Set objWorkbook = objExcel.Workbooks.Open("c:\\test.xls")
objExcel.Visible = False  	
 
objExcel.ActiveSheet.Cells(45,7).FormulaArray = "=MIN(WENN(BEREICH.VERSCHIEBEN(" & _
  "B7,,MIN(WENN(B7:AF7=""K"",SPALTE(B7:AF7),""""))-1,,ANZAHL2(" & _
  "B7:Af7))<>""K"",SPALTE(BEREICH.VERSCHIEBEN(B7,,MIN(WENN(" & _
  "B7:AF7=""K"",SPALTE(B7:AF7),""""))-1,,ANZAHL2(B7:AF7))),""""))-1-VERGLEICH(" & _
  """K"",B7:AF7,0)"
objWorkbook.Save  
objWorkbook.Application.Quit