HERBERS Excel-Forum - das Archiv
Thema: VBA: kleinsten Wert ermitteln
VBA: kleinsten Wert ermitteln
Vilen
Hallo,
ich möchte eine Schleife erstellen, wobei aus einer Spalte der kleinste Wert ausgelesen und markiert wird, sodass beim nächsten Durchgang dieser Wert nicht mehr berücksichtigt wird, und der nächst kleinste Wert markiert wird. Bis jeder einzelne Wert schließlich markiert wurde.
Gibt es so eine Möglichkeit?
Vielen Dank!
AW: VBA: kleinsten Wert ermitteln
Michael
Hallo Vilen,
zum Auslesen brauchst Du die Werten nicht zu markieren; "small" liefert den jeweils n-kleinsten Wert zurück.
Schreib mal in A3 bis A5 z.B. Werte und teste das:
Option Explicit
Sub test()
Dim vonZeile As Long, bisZeile As Long, i As Long
vonZeile = 3
bisZeile = 5
For i = 1 To bisZeile - vonZeile + 1
MsgBox WorksheetFunction.Small(Range("A" & vonZeile & ":A" & bisZeile), i)
Next
End Sub
https://www.herber.de/forum/archiv/632to636/635044_kkleinste_mit_vba.html
Schöne Grüße,
Michael
AW: VBA: kleinsten Wert ermitteln
Vilen
Vielen Dank, Michael!
gerne, vielen Dank für die Rückmeldung owT
Michael
VBA: kleinsten Wert ermitteln
Vilen
Hallo,
ich möchte eine Schleife erstellen, wobei aus einer Spalte der kleinste Wert ausgelesen und markiert wird, sodass beim nächsten Durchgang dieser Wert nicht mehr berücksichtigt wird, und der nächst kleinste Wert markiert wird. Bis jeder einzelne Wert schließlich markiert wurde.
Gibt es so eine Möglichkeit?
Vielen Dank!
AW: VBA: kleinsten Wert ermitteln
Michael
Hallo Vilen,
zum Auslesen brauchst Du die Werten nicht zu markieren; "small" liefert den jeweils n-kleinsten Wert zurück.
Schreib mal in A3 bis A5 z.B. Werte und teste das:
Option Explicit
Sub test()
Dim vonZeile As Long, bisZeile As Long, i As Long
vonZeile = 3
bisZeile = 5
For i = 1 To bisZeile - vonZeile + 1
MsgBox WorksheetFunction.Small(Range("A" & vonZeile & ":A" & bisZeile), i)
Next
End Sub
https://www.herber.de/forum/archiv/632to636/635044_kkleinste_mit_vba.html
Schöne Grüße,
Michael
AW: VBA: kleinsten Wert ermitteln
Vilen
Vielen Dank, Michael!
gerne, vielen Dank für die Rückmeldung owT
Michael
Excel-Beispiele