PDA

Vollständige Version anzeigen : Maximum mehrerer Werte ermitteln


rita2008
28.06.2005, 14:14
Public Function fktMaximum(ByVal x As Integer, ParamArray y())
Dim i As Integer
Dim max As Integer

max = x
For i = LBound(y) To UBound(y)
max = IIf(max < y(i), y(i), max)
Next
fktMaximum = max
End Function


Das gleiche funktioniert natürlich auch für Minimum.

mfg Rita

Arne Dieckmann
28.06.2005, 17:02
Etwas ähnliches (und mehr) gibt es übrigens auch auf DBWIKI (klick mich) (http://www.dbwiki.de/wiki.php?title=VBA_Tipp:_Minimum%2C_Maximum%2C_arithmetisches_Mittel%2C_geometri sches_Mittel%2C_Standardabweichung).