summer efter filter og per svar

Læg følgende ind i et kodemodul i VBA:

Function SumViste(Celler As Range, Kriterie As Variant)
    Dim vTotal As Variant

    Application.Volatile
    vTotal = 0
    For Each cell In Celler
        If Not cell.Rows.Hidden Then
            If Not cell.Columns.Hidden Then
                If cell.Value = Kriterie Then
                    vTotal = vTotal + cell.Value
                    End If
            End If
        End If
    Next
    SumViste = vTotal
End Function

Function TælViste(Celler As Range, Kriterie As Variant)
    Dim vAntal As Variant

    Application.Volatile
    vAntal = 0
    For Each cell In Celler
        If Not cell.Rows.Hidden Then
            If Not cell.Columns.Hidden Then
                If cell.Value = Kriterie Then
                    vAntal = vAntal + 1
                    End If
            End If
        End If
    Next
    TælViste = vAntal
End Function


Herefter vil du kunne bruge formlerne:

=SumViste(Område som skal summeres;Kriterie)

Fx. =SumViste(A1:A100;B102)

Formlen summerer alle de tal i A1:A100 som er lig med B102.

Hvis der bare skal tælles kan du bruge:

=TælViste(A1:A100;B102)

perfekt smider du et svar

et svar :)