Вот так вы найдете номер строки RowOfMin
минимального значения в диапазоне RangeToSearch
:
Option Explicit
Public Sub FindMinimum()
Dim RangeToSearch As Range
Set RangeToSearch = Worksheets("Berechnung").Columns("F")
Dim RowOfMin As Long
On Error Resume Next
With Application.WorksheetFunction
RowOfMin = .Match(.Min(RangeToSearch), RangeToSearch, 0)
End With
On Error GoTo 0
If RowOfMin = 0 Then
Debug.Print "No number values in column F"
Else
Debug.Print RowOfMin
End If
End Sub
Обратите внимание, что вы должны избегать преобразования минимального значения в другой тип данных (например, путем записив переменную) и вместо этого используйте его непосредственно для .Match
, иначе вы столкнетесь с проблемами с плавающей запятой.