Vba: so finden sie den maximalwert im bereich

Sie können die folgende grundlegende Syntax verwenden, um den Maximalwert in einem Bereich mit VBA zu berechnen:

 SubMaxValue ()
    Range(" D2 ") = WorksheetFunction.Max(Range(" B2:B11 "))
End Sub

In diesem speziellen Beispiel wird der Maximalwert im Bereich B2:B11 berechnet und das Ergebnis der Zelle D2 zugewiesen.

Wenn Sie stattdessen den Maximalwert in einem Meldungsfeld anzeigen möchten, können Sie die folgende Syntax verwenden:

 SubMaxValue ()
    'Create variable to store max value
    Dim maxValue As Single
    
    'Calculate max value in range
    maxValue = WorksheetFunction.Max(Range(" B2:B11 "))
    
    'Display the result
    MsgBox " Max Value in Range: " & maxValue 
End Sub

Die folgenden Beispiele zeigen, wie jede dieser Methoden in der Praxis mit dem folgenden Datensatz in Excel verwendet wird, der Informationen über verschiedene Basketballspieler enthält:

Beispiel 1: Berechnen Sie den Maximalwert des Bereichs mit VBA und zeigen Sie die Ergebnisse in der Zelle an

Angenommen, wir möchten den Maximalwert in der Punktespalte berechnen und die Ergebnisse in einer bestimmten Zelle anzeigen.

Dazu können wir das folgende Makro erstellen:

 SubMaxValue ()
    Range(" D2 ") = WorksheetFunction.Max(Range(" B2:B11 "))
End Sub

Wenn wir dieses Makro ausführen, erhalten wir die folgende Ausgabe:

Beachten Sie, dass Zelle D2 den Wert 43 enthält.

Dies sagt uns, dass der Maximalwert in der Punktespalte 43 beträgt.

Beispiel 2: Berechnen Sie den Maximalwert des Bereichs mit VBA und zeigen Sie die Ergebnisse im Meldungsfeld an

Angenommen, wir möchten stattdessen den Maximalwert in der Punktespalte berechnen und die Ergebnisse in einem Meldungsfeld anzeigen.

Dazu können wir das folgende Makro erstellen:

 SubMaxValue ()
    'Create variable to store max value
    Dim maxValue As Single
    
    'Calculate max value in range
    maxValue = WorksheetFunction.Max(Range(" B2:B11 "))
    
    'Display the result
    MsgBox " Max Value in Range: " & maxValue 
End Sub

Wenn wir dieses Makro ausführen, erhalten wir die folgende Ausgabe:

Das Meldungsfeld teilt uns mit, dass der Maximalwert im Bereich B2:B11 43 beträgt.

Beachten Sie, dass wir in diesem Beispiel den Maximalwert im Bereich B2:B11 berechnet haben.

Wenn Sie jedoch stattdessen den Maximalwert in einer gesamten Spalte berechnen möchten, können Sie stattdessen B:B eingeben.

Dadurch wird der Maximalwert in der gesamten Spalte B berechnet.

Zusätzliche Ressourcen

In den folgenden Tutorials wird erläutert, wie Sie andere häufige Aufgaben in VBA ausführen:

VBA: So berechnen Sie den Durchschnittswert des Bereichs
VBA: So zählen Sie die Anzahl der Zeilen im Bereich
VBA: So fügen Sie Werte in einem Bereich hinzu