Excel aufmöbeln mit VBA

•
•
•
•
low up
N = up-low+1 N
Public Private Dim
Option Explicit
Sub Feldtest()
Dim Von0bis10(10) As Double
Dim mx As Double, sigma As Double, i As Long
For i = LBound(Von0bis10) To UBound(Von0bis10)
Von0bis10(i) = i*i
Next i
mx = WorksheetFunction.Max(Von0bis10)
sigma = WorksheetFunction.StDevP(Von0bis10)
MsgBox "Max = " & mx & ", Standardabweichung = " & sigma
End Sub
Von0bis10