Minimum einer Spalte per VBA

Minimum einer Spalte per VBA

Tabellenfunktion MINIMUM per VBA verwenden

Wenn Sie das Minimum eines Zellbereichs errechnen möchten, ist das kein Problem. Für diesen Zweck finden Sie die Funktion MIN.

Wie können Sie aber ein Minimum aus einem Makro heraus bilden, ohne dass Sie die passende MIN-Funktion in eine Zelle schreiben? Denken Sie beispielsweise daran, das Minimum aller Zahlen aus Spalte A zu bilden. Dieses Minimum soll in die aktive Zelle hineingeschrieben werden. Verwenden Sie das folgende Makro:

 

Sub FindeMinimumInSpalte()
ActiveCell.Value = WorksheetFunction.Min(Columns(1))
End Sub

Falls Sie das Ergebnis der Funktion in eine feste Zelle (beispielsweise Zelle A1) schreiben möchten, ersetzen Sie den Ausdruck ActiveCell durch Range("A1") und verwenden Sie die Zelladresse Ihrer Wahl.

Welche Spalte für das Minimum ausgewertet werden soll, definieren Sie durch den Parameter hinter Columns. Die Spalten werden von links nach rechts durchnummeriert, Spalte A besitzt die Nummer 1.

Die folgende Abbildung zeigt, wie das Ergebnis aussieht, wenn Sie die Funktion in einer Tabelle starten:

Tipp: Falls Sie wissen möchten, wie Sie Makros in Excel eingeben und starten, finden Sie hier eine Kurzbeschreibung: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-geben-sie-makros-in-excel-ein.html