Minima: code

Function minimum(getal1 As Double, getal2 As Double) As Double
If getal1 < getal2 Then
minimum = getal1
Else
minimum = getal2
End If
End Function

Function minimum2(r As Excel.Range) As Double
Dim IsMinimumBepaald As Boolean
For Each cell In r
If Not IsMinimumBepaald Then
minimum2 = cell.Value
IsMinimumBepaald = True
End If
If cell.Value < minimum2 Then minimum2 = cell.Value
Next
End Function

[VB Web] - [hlrnet] - [copyright]