VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Datensätze mit Minimumwert übernehmen

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

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Vergleich