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)) |
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen