gibt es eine Möglichkeit, den Max-Wert aus einer Argumentliste mit ca. 500 Einträgen zu finden?
Die normale Max Funktion tut´s laut online Hilfe nur mit max. 30 Argumenten.
Danke & Gruss,
Stefan
Sub Max()
Dim Max As Double
Dim c As Range
Max = -1 * 10 ^ 24
For Each c In Range("A1:A500")
If c.Value > Max Then
Max = c.Value
End If
Next c
MsgBox "Maximun = " & Max
End Sub
Worti
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen