Gruppe
Allgemein
Problem
In Spalte D:E sollen die Datensätze eingetragen werden, die in Spalte B dem Minimum entsprechen.
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