Min- und Max-Wert horizontal VBA

Function teilergebnisS(was As Integer, rng_ As Range) As Double
Application.Volatile
Dim Zelle As Range
For Each Zelle In rng_
If IsNumeric(Zelle) Then
If Zelle.Value  "" Then
Select Case was
Case 1
'mittelwert
If Zelle.EntireColumn.Hidden = False Then
anz = anz + 1
mittelw = mittelw + Zelle
teilergebnisS = mittelw / anz
End If
Case 2
'min-wert
If Zelle.EntireColumn.Hidden = False Then
teilergebnisS = Application.WorksheetFunction.Min(rng_)
End If
Case 3
'max-wert
If Zelle.EntireColumn.Hidden = False Then
teilergebnisS = Application.WorksheetFunction.Max(rng_)
End If
End Select
End If
End If
Next
End Function