Funktion erweitern
13.01.2006 15:41:06
Lorenz
mit dem Code, der übrigens aus diesem Forum stammt, werden Texte aus einem Bereich gezählt, die mit einem Komma getrennt sind.
Wie gehört die Funktion erweitert, sodaß nicht nur das Komma (","), sondern auch das Plus("&")als Suchbegriff in Frage kommt.
Die Funktion:
Public
Function ZAEHLE(Suchbegriffe As Range, Suchbereich As Range) As Long
Dim arr, i As Integer
arr = Split(Suchbegriffe, (","))
For i = 0 To UBound(arr)
If WorksheetFunction.CountIf(Suchbereich, Trim(arr(i))) > 0 Then
ZAEHLE = ZAEHLE + 1
End If
Next i
End Function
Grüsse
Lorenz
Anzeige