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