Public Function Min(ParamArray Values()) As Variant
 
  Dim Value As Variant
  Dim MinValue As Variant
  Dim i As Integer
  Dim lb As Integer
  Dim ub As Integer
 
    lb = LBound(Values)
    ub = UBound(Values)
 
    MinValue = Values(lb)
    If ub - lb > 0 Then
      MinValue = Values(lb)
      For i = lb + 1 To ub
        Value = Values(i)
        If Value < MinValue Then
          MinValue = Value
        End If
      Next i
    End If
 
    min = MinValue
 
End Function
 
Public Function Max(ParamArray Values()) As Variant
 
  Dim Value As Variant
  Dim MaxValue As Variant
  Dim i As Integer
  Dim lb As Integer
  Dim ub As Integer
 
    lb = LBound(Values)
    ub = UBound(Values)
 
    MaxValue = Values(lb)
    If ub - lb > 0 Then
      MaxValue = Values(lb)
      For i = lb + 1 To ub
        Value = Values(i)
        If Value > MaxValue Then
          MaxValue = Value
        End If
      Next i
    End If
 
    Max = MaxValue
 
End Function

Gruß
Dirk

--
?Get it right the first time