Probleme mit Funktion
29.03.2022 17:26:22
Burghard
ich möchte gerne in der Zelle E12 die Summe aller nicht durchgestrichenen Zahlenwerte der Spalte E2:E11 addieren.
Ich habe eine Beispieldatei hochgeladen:
https://www.herber.de/bbs/user/152137.xlsm
Die Funktion rechnet nur richtig, wenn in der Spalte E alle Zellen einen Zahlenwert beinhalten, bei Formeln oder leerer Zelle wird ansonsten in E12 nur #WERT ausgegeben. Alle meine Versuche, das Problem zu lösen, sind leider gescheitert.
Hier die Funktion:
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 And rngC > 0 Then
dblZ = dblZ + rngC
End If
Next
ohne_strich = dblZ
'=ohne_strich($E$2:$E$11)
ActiveSheet.Calculate
End Function
Hilfe wäre nett.
Viele Grüße
Burghard