habe zwei sich überlappende benamte Bereiche mit Zahlenwerten.
Ich möchte erreichen, dass die Summe vom überlappenden Bereich errechnet wird.
Geht das überhaupt und falls ja, wie?
Grüße Gregor
Sub tt()
MsgBox Application.Sum(Intersect(Range("_r1"), Range("_r2")))
End Sub
Public Function Schnittmenge(rngB1, rngB2) As Range
Application.Volatile
Set Schnittmenge = Intersect(rngB1, rngB2)
End Function
Und hier eine Beispieltabelle - Siehe Aufruf der VBA-Funktion in E17 :A | B | C | D | E | |
1 | |||||
2 | |||||
3 | |||||
4 | |||||
5 | |||||
6 | |||||
7 | |||||
8 | |||||
9 | |||||
10 | |||||
11 | |||||
12 | |||||
13 | |||||
14 | |||||
15 | |||||
16 | |||||
17 |
Zelle | Formel |
---|---|
E15 | =SUMME(Bereich1) |
E16 | =SUMME(Bereich2) |
E17 | =SUMME(Schnittmenge(Bereich1;Bereich2)) |