View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.programming
Bernd Bernd is offline
external usenet poster
 
Posts: 92
Default worksheet function with two ranges

Hello,

In VBA the operator "-" is not defined on ranges.

A workaround:
Sub calcStdev()

Dim myRangeAct As Range
Dim myRangeMod As Range
Dim a(1 To 100) As Double
Dim i As Long

Set myRangeAct = Range(Cells(1, 1), Cells(100, 1))
Set myRangeMod = Range(Cells(1, 2), Cells(100, 2))

Debug.Print Application.WorksheetFunction.StDevP(myRangeAct)
Debug.Print Application.WorksheetFunction.StDevP(myRangeMod)

For i = 1 To 100
a(i) = myRangeAct(i) - myRangeMod(i)
Next i

Debug.Print Application.WorksheetFunction.StDevP(a)

End Sub

Regards,
Bernd