Gruppe
Allgemein
Bereich
Vergleich
Thema
Datensätze mit Minimumwert übernehmen
Problem
In Spalte D:E sollen die Datensätze eingetragen werden, die in Spalte B dem Minimum entsprechen.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: Modul1
Sub GetMin()
Dim iRow As Integer, iRowT As Integer
iRow = 2
iRowT = 1
Do Until IsEmpty(Cells(iRow, 1))
If Cells(iRow, 2).Value = WorksheetFunction.Min(Columns(2)) Then
iRowT = iRowT + 1
Cells(iRowT, 4).Value = Cells(iRow, 1).Value
Cells(iRowT, 5).Value = Cells(iRow, 2).Value
End If
iRow = iRow + 1
Loop
End Sub