Gruppe
Funktion
Problem
Wie kann ich die Datenbankfunktion DBSUMME() handhaben, um bei der Summierung eines Datenbankbereiches mehrere Kriterien zugrunde zu legen?
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