Gruppe
Allgemein
Problem
Wie kann ich aus einer Tabelle, in der Namen und Umsätze stehen, den oder die Namen mit dem höchsten Umsatz in einer Spalte listen?
StandardModule: basMain
Sub MaxUmsatz()
Dim iRow As Integer, iTarget As Integer
iRow = 1
iTarget = 2
Do Until IsEmpty(Cells(iRow, 1))
If Cells(iRow, 2) = Application.Max(Columns(2)) Then
Cells(iTarget, 3) = "Max. Umsatz hat Herr " & _
Cells(iRow, 1) & ": " & _
Format(Cells(iRow, 2), "#,##0.00")
iTarget = iTarget + 1
End If
iRow = iRow + 1
Loop
Columns(3).AutoFit
End Sub