SumIf()

Public Function D_Sum(Omrade As Range, Bogstav As String)
    Dim C As Range, Sum As Double
    For Each C In Omrade
        If UCase(Left(C, 1)) = UCase(Bogstav) Then
            If InStr(1, C, "/") > 1 Then
                Sum = Sum + Split(C, "/")(1)
            End If
        End If
    Next
    D_Sum = Sum
End Function


kaldes med =D_Sum($A$1:$A$5;"B")

Hold da kæft hvor er det godt ... takker

Et svar ;-))