Hallo, ich habe eine VBA Function, die auch richtig abläuft. Jetzt habe ich aber auch negative Werte in der Additionsspalte. Ich möchte gerne die Function als Addition von absoluten Zahlen haben wollen. Müsste also irgendwo "ABS" stehen.
Public Function ohne_strich(Bereich As Range)
Dim rngC As Range, dblZ As Double
Application.Volatile
For Each rngC In Bereich
If rngC.Font.Strikethrough = False Then
dblZ = dblZ + rngC.Value
End If
Next
ohne_strich = dblZ
ActiveSheet.Calculate
End Function
Hilfe wäre nett.Grüße
Burghard