Thema

Handhabung der Datenbankfunktion DBSUMME()

Gruppe

DBSUMME

Problem

Wie kann ich die Datenbankfunktion DBSUMME() handhaben, um bei der Summierung eines Datenbankbereiches mehrere Kriterien zugrunde zu legen?

Lösung
Nur anhand einer Beipspielarbeitsmappe darstellbar.



StandardModule: basMain

Function HowMuch(rng As Range, strText As String)
    Dim rngAct As Range
    Dim var As Variant
    Dim iCounter As Integer
    Application.Volatile
    For Each rngAct In rng.Cells
        var = rngAct.Value
        iCounter = iCounter + Len(var) - _
         Len(Application.Substitute(var, strText, ""))
    Next rngAct
    HowMuch = iCounter
End Function

    

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