VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Medallien-Verteilung nach Punkten

Gruppe

Funktion

Bereich

INDEX

Thema

Medallien-Verteilung nach Punkten

Problem

Wie kann ich die Medallien-Verteilung bei Schulsportfesten festlegen?

Lösung

Nur anhand einer Beipspielarbeitsmappe darstellbar.




StandardModule: Modul1

Function SpecialMax(rngA As Range, rngB As Range, iCol As Integer)
   Dim rng As Range
   Dim var As Variant
   Dim dValue As Double
   For Each rng In rngA.Cells
      var = Application.Match(CDbl(rng.Value), rngB, 0)
      If Not IsError(var) Or WorksheetFunction.Weekday(rng.Value, 2) > 5 Then
         If rng.Offset(0, 2).Value > dValue Then
            dValue = rng.Offset(0, iCol).Value
         End If
      End If
   Next rng
   SpecialMax = dValue
End Function

    


Beiträge aus dem Excel-Forum zu den Themen Funktion und INDEX