Finde en minimumsværdi

Denne makro kan gøre det for dig.
//akj

Sub findmin()
Dim count As Integer
Dim min As Integer
Dim val As Integer
Dim minrow As Integer

min = 9999

Do
    count = count + 1
    val = Cells(count, 2)
    If val < min Then
        min = val
        minrow = count
    End If
Loop Until Cells(count + 1, 1) = "" Or count > 9999 ' 9999 er sat ind for at undgå en endeløs løkke

' gem resultat
Cells(1, 6) = minrow
Cells(1, 7) = min

End Sub

Det virkede. Tak for hjælpen!

Selvtak

//akj