Vba: so finden sie den mindestwert im bereich

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

 SubMinValue ()
    Range(" D2 ") = WorksheetFunction.Min(Range(" B2:B11 "))
End Sub

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

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

 SubMinValue ()
    'Create variable to store min value
    Dim minValue As Single
    
    'Calculate min value in range
    minValue = WorksheetFunction.Min(Range(" B2:B11 "))
    
    'Display the result
    MsgBox " Min Value in Range: " & minValue 
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:

Verwandte Themen: So ermitteln Sie den Maximalwert im Bereich mithilfe von VBA

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

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

Dazu können wir das folgende Makro erstellen:

 SubMinValue ()
    Range(" D2 ") = WorksheetFunction.Min(Range(" B2:B11 "))
End Sub

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

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

Dies sagt uns, dass der Mindestwert in der Punktespalte 10 beträgt.

Beispiel 2: Berechnen Sie den Mindestwert des Bereichs mithilfe von VBA und zeigen Sie die Ergebnisse im Meldungsfeld an

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

Dazu können wir das folgende Makro erstellen:

 SubMinValue ()
    'Create variable to store min value
    Dim minValue As Single
    
    'Calculate min value in range
    minValue = WorksheetFunction.Min(Range(" B2:B11 "))
    
    'Display the result
    MsgBox " Min Value in Range: " & minValue 
End Sub

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

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

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

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

Dadurch wird der Mindestwert in Spalte B berechnet.

Zusätzliche Ressourcen

Die folgenden Tutorials erklären, 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