lave en function der laver opslag + tæl.hvis

Function Deltaget(Medlem As Range, Maaned As Range, Kriterie As String) As Integer
    Application.Volatile
   
    Dim iRetVal As Integer
    Dim rCountRange As Range
    Dim iCountRow As Integer, iCol As Integer
   
    On Error GoTo funcEnd
    Select Case Maaned.Value
        Case "Januar":      Set rCountRange = Application.Names("deltaget_januar").RefersToRange
        'Case "Februar":      Set rCountRange = Application.Names("deltaget_februar").RefersToRange
        'named range ikke oprettet endnu for de resterende måneder
       
    End Select
   
    With Application.WorksheetFunction
        iRetVal = 0
        iCountRow = .Match(Medlem.Value, Application.Names("medlemsliste").RefersToRange, 0)
       
        If iCountRow > 0 Then
            For iCol = 1 To rCountRange.Columns.Count
                If rCountRange.Cells(iCountRow, iCol).Value = Kriterie Then
                    iRetVal = iRetVal + 1
                End If
            Next iCol
        End If
       
    End With
   
funcEnd:
    Deltaget = iRetVal
End Function