UDF ergänzen

Hallo Excel Experten,

ich habe vor gewisser Zeit von Onur eine UDF erstellt bekommen, die mir zB die Anzahl von "Trefferzeiten" zählt, welche innerhalb eines Zeitfensters von 5 Minuten geschehen sind.

Public Function AnzahlTor5(Target, HZ, Optional Abstand = 5) As Long
Dim A
Dim i
Dim Mem As Long
Dim S As Long
Dim Z As Long
'On Error Resume Next
    A = Split(Target.Text, " ")
    For i = 0 To UBound(A)
        If A(i) = "" Then A(i) = 0: Exit Function
        Z = CLng(Split(A(i), ",")(0))
        A(i) = CDbl(A(i))
        If (Z  46 And HZ = 1) Or (Z >= 46 And HZ = 2) Then
            If Mem > 0 Then S = S - ((A(i) - Mem)  Abstand)
        End If
        Mem = A(i)
    Next
    AnzahlTor5 = S
End Function

=AnzahlTor5([@TimesAll];1)