Function mit Summenprodukt kombinierbar?
15.03.2015 16:58:24
Burghard
ich rufe eine Function (s.u.) in einem Tabellenblatt auf mit "=ohne_strich($D$7:$D$1004)".
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
End Function
Ich habe auf dem Tabellenblatt in einer Zelle aber noch eine andere Berechnung mit:=SUMMENPRODUKT((Zahlungen!$D$7:INDEX(Zahlungen!H:H;VERWEIS(9^99;Zahlungen!$C:$C;ZEILE($C:$C)))) *(MONAT(Zahlungen!$C$7:INDEX(Zahlungen!$C:$C;VERWEIS(9^99;Zahlungen!$C:$C;ZEILE($C:$C))))=MONAT(C5)) *(Zahlungen!$D$5:H$5=$D5))
Meine Frage: Läßt sich die Function mit der Summenproduktberechnung kombinieren (siehe nachfolgend) oder geht diese Kombination gar nicht?
=ohne_strich(SUMMENPRODUKT((Zahlungen!$D$7:INDEX(Zahlungen!H:H;VERWEIS(9^99;Zahlungen!$C:$C; ZEILE($C:$C))))*(MONAT(Zahlungen!$C$7:INDEX(Zahlungen!$C:$C;VERWEIS(9^99;Zahlungen!$C:$C;ZEILE($C:$C) )))=MONAT(C5))*(Zahlungen!$D$5:H$5=$D5)))
Leider ergibt dies nur #WERT. Hilfe wäre nett.
Grüße Burghard