Max-Werte finden

Forumthread: Max-Werte finden

Max-Werte finden

14.10.2004 21:31:16

StefanB

Hallo,
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

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Max-Werte finden

Worti

AW: Max-Werte finden

Worti

Hallo Stefan,
mußt du denn das Maximum aus einem nicht zusammenhängenden Bereich bestimmen?
Ansonsten mit diesem Makro:(Dabei kannst du Range("A1:A500") durch Selktion ersetzten und vor Makrostart die Bereiche markieren in denen du das Maximum suchst.

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

Forumthread: Max-Werte finden

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread