Excel aufmöbeln mit VBA

Next i
n = UBound(v) - LBound(v) + 1
VarianzVec = (sqrs - svar * svar / n) / n
End Function
Sub TestProzedur()
Dim v() As Double
Dim n As Long, i As Long, p As Double
Worksheets("Tabelle1").Select
n = Cells(1, 2).Value
p = Cells(2, 2).Value
ReDim v(n)
For i = 1 To n
v(i) = Cells(1, i + 3).Value
Next i
MsgBox "Der Vektor ist: " & Vec2String(v)
Cells(3, 2).Value = MaxNorm(v)
Cells(4, 2).Value = PNorm(v, p)
Cells(5, 2).Value = MaxDist(v)
Cells(6, 2).Value = VarianzVec(v)
End Sub
Sub ErzeugeRndVec(ByVal n As Long, ByRef w() As Long)
n
Rnd()
[0, 1)
Sub ErzeugeRndVec(ByVal n As Long, ByRef w() As Long)
Dim i As Long
Dim Ober As Long, Unter As Long
Ober = 6
Unter = 1
Randomize
ReDim w(n)
For i = 1 To n
w(i) = Int((Ober - Unter + 1) * Rnd() + Unter)
’Also: w(i) = Int(6 * Rnd() + 1)
Next i
End Sub