Rij van Maximum en Minimum waarde in een kolom bepalen

[EfBe]

Ik loop tegen een fout, de code die ik gebruik werkt perfect als de waarde die ik zoek niet een geheel getal is.

Sub BepaalMinRijMaxRij()
With Sheets("Waarden")
LaatsteKolom = 2
For C = 1 To LaatsteKolom
    MaxWaarde = Application.Max(.Columns(C))
    MinWaarde = Application.Min(.Columns(C))

    'Als MaxWaarde=736,26 Oké, NietOké als MaxWaarde=736 of Als MinWaarde=589,49 Oké, NietOké als MinWaarde=589
    'Kolom 1 is dus Oké kolom 2 NietOké
    MaxRij = .Columns(C).Find(MaxWaarde, , xlValues, 1).Row
    MinRij = .Columns(C).Find(MinWaarde, , xlValues, 1).Row 
    
    MaxRij = .Columns(C).Find(Application.Max(.Columns(C)), , xlValues, 1).Row
    MinRij = .Columns(C).Find(Application.Min(.Columns(C)), , xlValues, 1).Row
Next C
End With
End Sub

Wie kan mij een zetje geven, dank bij voorbaat, Jos

 

[JEC.]

Waarom niet gewoon met een formule

=MAX((B3:B23=[COLOR="#FF0000"]MAX[/COLOR](B3:B23))*RIJ(B3:B23))

=MAX((B3:B23=[COLOR="#FF0000"]MIN[/COLOR](B3:B23))*RIJ(B3:B23))

Sub jv()
Maxrij = [max((b3:b23=max(b3:b23))*row(b3:b23))]
MinRij = [max((b3:b23=min(b3:b23))*row(b3:b23))]
End Sub

 

[HSV]

Sub BepaalMinRijMaxRij()
With Sheets("Waarden")
  Set c = .Columns(2).Find(Application.Max(.Columns(2)), , xlFormulas)
    Set d = .Columns(2).Find(Application.Min(.Columns(2)), , xlFormulas)
  MsgBox "Max=: " & c.Row & vbLf & "Min=: " & d.Row
End With
End Sub

 

[EfBe]

JVoor en Harry,
Bedankt voor jullie hints.
@Jvoor de oplossing op zich werkt perfect, maar past niet echt in mijn project.
Ik heb een kleine 100 kolommen, deze kolommen hebben niet allemaal hetzelfde aantal rijen.

Ik heb dus gekozen voor de oplossing van Harry.