VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Handhabung der Datenbankfunktion DBSUMME()

Gruppe

Funktion

Bereich

DBSUMME

Thema

Handhabung der Datenbankfunktion 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