Excel und VBA: Formeln, Programmierung, Lösungen

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 UDF und Max