VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Aus Notenspiegel die am häufigsten vergebene Note ermitteln

Gruppe

UDF

Bereich

Zählenwenn

Thema

Aus Notenspiegel die am häufigsten vergebene Note ermitteln

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

    


Beiträge aus dem Excel-Forum zu den Themen UDF und Zählenwenn