ja, das habe ich gerade sebst festgestellt, dass es SUMMEWENNS() ab O2007 gibt.
das sollte einfach schon seinen Zweck erfüllen.
Trotzdem wäre ineressant ob du schon eine aktuellere Version O2024 oder O365 hast.
Gruß Uwe
mal noch ohne VBA-Ereignisauswertung, sondern nur per Formel ab O2021 im Blatt "Namen" in C3 und runterziehen:
Ob dass bei dir läuft keine Ahnung.
Mappe2-test8.xlsx (Größe: 19,9 KB / Downloads: 3)
Gruß Uwe
das sollte einfach schon seinen Zweck erfüllen.
Code:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iZeile As Variant, z As Range, sum#
If Not Intersect(Target, Range("B3:B15")) Is Nothing Then
iZeile = Application.Match(Target.Value, Tabelle1.Columns(1), 0)
If Not IsError(iZeile) Then
For Each z In Range("B3:B15").Cells
If z = Target Then
sum = sum + WorksheetFunction.sum(z.Offset(, 6), z.Offset(, 7), z.Offset(, 9))
End If
Next
Tabelle1.Cells(iZeile, 3) = sum
End If
End If
End SubTrotzdem wäre ineressant ob du schon eine aktuellere Version O2024 oder O365 hast.
Gruß Uwe
mal noch ohne VBA-Ereignisauswertung, sondern nur per Formel ab O2021 im Blatt "Namen" in C3 und runterziehen:
Code:
=LET(xA;FILTER(Berechnung!$H$3:$K$15;Berechnung!$B$3:$B$15=Namen!A2;"");WENNFEHLER(SUMME(INDEX(xA;;1);INDEX(xA;;2);INDEX(xA;;4));""))
Mappe2-test8.xlsx (Größe: 19,9 KB / Downloads: 3)
Gruß Uwe

