Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Aus Notenspiegel die am häufigsten vergebene Note ermitteln

Gruppe

Zählenwenn

Problem

Aus einem Notenspiegel soll die am häufigsten vergebene Note ermittelt werden.

Lösung
Geben Sie die nachfolgende benutzerdefinierte Funktion in ein Standardmodul ein.

StandardModule: basMain

Function MultiMax(rng As Range) As String
   Dim iRow As Integer
   Dim sMax As String
   With rng
      For iRow = 1 To .Cells.Count
         If .Cells(iRow) = WorksheetFunction.Max(rng) Then
            sMax = sMax & .Cells(iRow).Offset(0, -1) & ","
         End If
      Next iRow
   End With
   MultiMax = Left(sMax, Len(sMax) - 1)
End Function