UDF erweitern

Public Function ohne_strichA(Bereich As Range)
Dim rngC As Range, dblZ As Double
Application.Volatile
For Each rngC In Bereich
If rngC.Font.Strikethrough = False And       "Amazon*"   (der nicht durchgestrichene Wert in Spalte "J"  soll den Begriff "Amazon*" in der gleichen Zeile haben)
dblZ = dblZ + rngC.Value
End If
Next
ohne_strichR = dblZ
' Aufruf mit =ohne_strichA($J$10:$J$250)
ActiveSheet.Calculate
End Function