Ich muss in mehreren Bereichen überprüfen, ob eine der Zellen in den Bereichen einen Wert enthält. Da die Excelfunktion "Zählenwenn" nur einen Bereich unterstützt, habe ich mir folgende Funktion in VBA geschrieben.
Function ZÄHLE(Wert As String, ParamArray Rng() As Variant) As Integer
Dim Bereich As Variant
Dim Zelle As Range
For Each Bereich In Rng
For Each Zelle In Bereich
If Zelle.Value = Wert Then
ZÄHLE = ZÄHLE + 1
End If
Next Zelle
Next Bereich
End Function
Ich Zähle in vier Bereichen über insgesamt 20.000 Werte. Warum ist die Excelfunktion "Zählenwenn" so viel schneller als meine Funktion? Wie kann ich meine Funktion beschleunigen?Gruß
Jan