Finde rækkenr på mindste værdi i vba

Tilret dette:

KolMIN=999999
huskRowNumber

for RowNumber 1 to AntalRækkerIalt
  if RowNumber(HELTAL) < KolMIN then
    KolMIN = RowNumber(HELTAL).value
    huskRowNumber = HELTAL
  endif
NeXT

msgbox KolMIN & vbcrlf & huskRowNumber

Hej

Jeg kan ikke få det til at virke. Jeg er nybegynder i VBA

Mit array hedder larray og er variant
Det har g antal rækker (1001)

----------------------------
Sub Findmindste()

'Definition af variable

Dim x As Variant
Dim y As Variant
Dim g As Long
Dim l As Variant
Dim larray As Variant



x = Range("C2").Value
y = Range("C3").Value
g = Application.WorksheetFunction.CountA(Worksheets("System1").Range("A:A"))
ReDim larray(1 To g)

For i = 1 To g

larray(i) = ((Abs(Sheets("System1").Cells(i, 2) * 10 ^ 3 - x)) ^ 2 + (Abs(Sheets("System1").Cells(i, 3) * 10 ^ 3 - y)) ^ 2) ^ (1 / 2)

Next

l = Application.WorksheetFunction.Min(larray)
Cells(4, 3) = l
----------------------------

Er den mindste værdi entydig - forekommer kun en gang?

Ja

Men med decimaler, hvis det har nogen betydning

Hej - prøv at se om dette kan anvendes:

Sub Findmindste()

'Definition af variable

Dim x As Variant
Dim y As Variant
Dim g As Long
Dim l As Variant
Dim larray As Variant
Dim miniVærdi As Variant, miniRæk As Long

    miniVærdi = ""
    miniRæk = 0
   
    x = Range("C2").Value
    y = Range("C3").Value
    g = Application.WorksheetFunction.CountA(Worksheets("System1").Range("A:A"))
    ReDim larray(1 To g)

    For i = 1 To g
        larray(i) = ((Abs(Sheets("System1").Cells(i, 2) * 10 ^ 3 - x)) ^ 2 + (Abs(Sheets("System1").Cells(i, 3) * 10 ^ 3 - y)) ^ 2) ^ (1 / 2)
       
        If miniVærdi = "" Then
            miniVærdi = larray(i)
            miniRæk = i
        Else
            If larray(i) < miniVærdi Then
                miniVærdi = larray(i)
                miniRæk = i
            End If
        End If
    Next i

    Cells(4, 3) = miniVærdi
    Cells(5, 3) = miniRæk
End Sub

Hej
Det virker. Tak skal du have.
Lægger du et svar

Fint og selv tak