[VBA] Excel: minimum in range selecteren

[rulus]

Ik kom er maar niet uit, ik wil dus via VBA het volgende doen:

Ik heb een reeks met 12 waarden (1 rij, 12 kolommen, dus naast elkaar);
in de rij eronder staan getallen van 1 tot 12 (willekeurige volgorde).
Ik wil nu in VBA het nummer krijgen dat onder de cel met laagste waarde staat.

Hoe doe ik dit?

zeer bedankt alvast

[RaZ]

Je leest dus de waardes cel voor cel uit:

code:

cells.range("A1").value

Stop de waarde in een variable, en je kijkt of de waarde van een andere cell lager ligt, zo ja, onthou welke cel het is.
Ben je klaar, met controleren van de waardes, weet je dus welke cel het is, en ook welke cel daaronder zit.
De rest mag je zelf uitzoeken, want je hebt 0,0 aan code nog zelf gedaan.

Succes

[NMe]

Excel kent een SUM-functie, kent het niet ook MIN en MAX dan?

Anyway, VBA en Excel vallen onder Office, en Office hoort in Officesuites en -software.

[Lustucru]

Ja hoor, excel kent min() en je kunt worksheetfunctions ook in vba gebruiken. Kijk eens onder F1. en lees Policy: Alle regels die op het forum gelden ajb een keertje door.

[Black Piet]

Hoezo combineer je niet gewoon een horizontal lookup met eem max functie ingebouwd?

Hoef je niks in VB te maken....

[Maasluip]

[deleted]

of je leest de hele post

[ Voor 84% gewijzigd door Maasluip op 09-03-2006 19:38 ]

[Verwijderd]

VLookup() || HLookup() met een Min() functie ingebouwd.

In vba weet ik neit maar gebruik de "macro", die produceer wat leuke vba-tjes voor je

[rulus]

Bedankt iedereen, het is gelukt met de Hlookup functie:

code:

Rmin = Application.WorksheetFunction.Min(Range("B3:M3"))
MRmin = Application.WorksheetFunction.HLookup(Rmin, Range("B3:M4"), 2, False)

[rulus]

dacht ik...

het werkt blijkbaar niet met kommagetallen, dan krijg ik deze error.

code:

MRmin = Application.WorksheetFunction.HLookup(Rmin, Range("B3:M4"), 2, False)

werkt wel als Rmin 4 of 5 is en niet bij Rmin = 0,3

volgens mij heeft het iets met , of . als decimaal teken te maken..?
Rmin in de code vervangen door str(Rmin) lost het niet op

iemand?

[onkl]

code:

Dim Rmin as String
Rmin = Application.WorksheetFunction.Min(Range("B3:M3"))
MRmin = Application.WorksheetFunction.HLookup(Rmin, Range("B3:M4"), 2, False)

Zou wordt Rmin als platte tekst onthouden ipv als getal.

[rulus]

is volgens mij hetzelfde als str(Rmin); en spijtig genoeg werkt het niet

ik snap er niks van

[rulus]

het wordt nog vreemder; het werkt kennelijk ook bij Rmin = 30,6 maar niet bij Rmin = 0,3

[Lustucru]

juist als string zal het niet werken. Check even de waarde van rmin. Blijkbaar wordt rmin geconverteered op een verkeerde manier waardoor Hlookup hem niet meer kan vinden.
Hoe heb je rmin gedimensioneerd?

[rulus]

strange; als ik:

code:

Dim Tmin, Tmax, Rmin, H As Single

doe, dan werkt het wel
en als ik

code:

Dim Tmin, Tmax, H, Rmin As Single

doe, dan werkt het niet meer ??

probleem is dus blijkbaar opgelost als ik het eerste gebruik; alleen snap ik niet waarom?

[urk_forever]

code:

Dim ilaagstewaarde As Integer, i As Integer

i = 1
  While Worksheets(1).Cells(1, i).Value <> ""
    If i = 1 Then
      ilaagstewaarde = i
    ElseIf Worksheets(1).Cells(1, i).Value < Worksheets(1).Cells(1, ilaagstewaarde).Value Then
      ilaagstewaarde = i
    End If
    i = i + 1
  Wend
  MsgBox "Waarde onder laagste waarde: " & Worksheets(1).Cells(2, ilaagstewaarde).Value, vbInformation, "Info"

Dit zou moeten werken

Met deze waardes:

code:

0,8 0,5 0,1 5,5 9   0,3
2   5   4   7   6   8

Krijg ik netjes 4 terug als de waarde onder de laagste waarde.

[ Voor 28% gewijzigd door urk_forever op 10-03-2006 10:51 ]

[rulus]

en dit werkt inderdaad, verschikkelijk bedankt!

[urk_forever]

You're welcome