1*cdf0e10cSrcweirTest run started : 31/05/2007 11:02:10 2*cdf0e10cSrcweirBEGIN TestCalc 3*cdf0e10cSrcweir TEST START : RangeTest3 4*cdf0e10cSrcweir ITEM Assertion OK : - setFormulaR1C1 5*cdf0e10cSrcweir ITEM Assertion OK : - getFormulaR1C1 6*cdf0e10cSrcweir ITEM Assertion OK : - Range.Copy() and Range.PasteSpecial() 7*cdf0e10cSrcweir ITEM Assertion OK : - Range.Copy(Range("I10")) 8*cdf0e10cSrcweir ITEM Assertion OK : PasteSpecial Paste:=xlPasteValues 9*cdf0e10cSrcweir ITEM Assertion OK : PasteSpecial Paste:=xlPasteFormulas 10*cdf0e10cSrcweir ITEM Assertion OK : PasteSpecial Paste:=xlPasteFormats 11*cdf0e10cSrcweir ITEM Assertion OK : PasteSpecial 12*cdf0e10cSrcweir ITEM Assertion OK : PasteSpecial SkipBlanks:=True 13*cdf0e10cSrcweir ITEM Assertion OK : PasteSpecial Operation:=xlPasteSpecialOperationAdd 14*cdf0e10cSrcweir ITEM Assertion OK : PasteSpecial Operation:=xlPasteSpecialOperationSubtract 15*cdf0e10cSrcweir ITEM Assertion OK : PasteSpecial Operation:=xlPasteSpecialOperationMultiply 16*cdf0e10cSrcweir ITEM Assertion OK : PasteSpecial Operation:=xlPasteSpecialOperationDivide 17*cdf0e10cSrcweir ITEM Assertion OK : PasteSpecial Transpose:=True 18*cdf0e10cSrcweir ITEM Assertion OK : ActiveWorkbook.Name 19*cdf0e10cSrcweir ITEM Assertion OK : ActiveWorkbook.FullName und ActiveWorkbook.Path 20*cdf0e10cSrcweir ITEM Assertion OK : - = Range("K22").End (xlDown) 21*cdf0e10cSrcweir ITEM Assertion OK : - = Range("K22").End (xlUo) 22*cdf0e10cSrcweir ITEM Assertion OK : - = Range("K22").End (xlToLeft) 23*cdf0e10cSrcweir ITEM Assertion OK : - = Range("K22").End (xlRight) 24*cdf0e10cSrcweir ITEM Assertion OK : - ActiveSpreadsheet.Next 25*cdf0e10cSrcweir ITEM Assertion OK : - ActiveSpreadsheet.Next 26*cdf0e10cSrcweir ITEM Assertion OK : - ActiveSpreadsheet.Previous 27*cdf0e10cSrcweir ITEM Assertion OK : - ActiveSpreadsheet.Previous 28*cdf0e10cSrcweir ITEM Assertion OK : - Range("J4:J11").AutoFilter field:=1, Criteria1:="x" 29*cdf0e10cSrcweir ITEM Assertion OK : - Range("J4:J11").AutoFilter field:=1, Criteria1:="<>" 30*cdf0e10cSrcweir ITEM Assertion OK : - Range("J4:J11").AutoFilter field:=1, Criteria1:="=" 31*cdf0e10cSrcweir ITEM Assertion OK : - Range("J4:J11").AutoFilter 32*cdf0e10cSrcweir ITEM Assertion OK : - ActiveSheet.Resize.Select 33*cdf0e10cSrcweir ITEM Assertion OK : - Application.GoTo Reference:="R8C2" 34*cdf0e10cSrcweir ITEM Assertion OK : - Application.GoTo Reference:="R[8]C[2]" 35*cdf0e10cSrcweir ITEM Assertion OK : - Application.GoTo Reference:="R8C2" 36*cdf0e10cSrcweir ITEM Assertion OK : - Range.Group - please check visually 37*cdf0e10cSrcweir ITEM Assertion OK : - Range.Group - please check visually 38*cdf0e10cSrcweir ITEM Assertion OK : - Range.Ungroup- please check visually 39*cdf0e10cSrcweir ITEM Assertion OK : - Range.Ungroup - please check visually 40*cdf0e10cSrcweir ITEM Assertion OK : - Range.Group - please check visually 41*cdf0e10cSrcweir ITEM Assertion OK : - Range.Group - please check visually 42*cdf0e10cSrcweir ITEM Assertion OK : - Range.clearOutline - please check visually 43*cdf0e10cSrcweir ITEM Assertion OK : - Range.AutoOutline - please check visually 44*cdf0e10cSrcweir ITEM Assertion OK : - Range.AutoOutline - please check visually 45*cdf0e10cSrcweir ITEM Assertion OK : - ActiveSheet.UsedRange.Select 46*cdf0e10cSrcweir ITEM Assertion FAIL : - Range("A13").AddIndent 47*cdf0e10cSrcweir ITEM Assertion OK : - Range("A13").IndentLevel set 48*cdf0e10cSrcweir ITEM Assertion OK : - Range("A13").IndentLevel get 49*cdf0e10cSrcweir ITEM Assertion OK : - Range("A13").IndentLevel get 50*cdf0e10cSrcweir ITEM Assertion OK : - Range.Copy() and Range.PasteSpecial() 51*cdf0e10cSrcweir ITEM Assertion OK : - Range.Copy() and Range.PasteSpecial() 52*cdf0e10cSrcweir ITEM Assertion OK : - Range.Copy() and Range.PasteSpecial() 53*cdf0e10cSrcweir ITEM Assertion OK : - Range.Calculate 54*cdf0e10cSrcweir ITEM Assertion OK : Worksheet.Calculate 55*cdf0e10cSrcweir ITEM Assertion OK : - Application.Calculate 56*cdf0e10cSrcweir ITEM Assertion OK : Global.Calculate 57*cdf0e10cSrcweir ITEM Assertion OK : Calculation set 58*cdf0e10cSrcweir ITEM Assertion OK : - = ActiveWorkbook.Colors(3) set 59*cdf0e10cSrcweir ITEM Assertion OK : - = ActiveWorkbook.ResetColors 60*cdf0e10cSrcweir ITEM Assertion OK : - = ActiveWorkbook.Colors(3) get 61*cdf0e10cSrcweir ITEM FAIL (RangeTest3) 62*cdf0e10cSrcweir TEST Not succesfully completed : RangeTest3 63*cdf0e10cSrcweirEND TestCalc 64*cdf0e10cSrcweirTest run finished : 31/05/2007 11:02:12 65