Summewenn zwischen zwei Blättern

Hallo EXCEL-Freunde,
wenn über mehrere Tabellenblätter Summen gebildet werden und dabei immer
die gleichen Zellen betroffen sind, kann dies dadurch gelöst werden, dass
die betroffenen Blätter zwischen zwei Tabellenblätter eingesetzt werden, wobei
die beiden Blätter "Beginn" und "Ende" heißen (dann können beliebig viele
Blätter aufsummiert werden). Die Formel heißt dann:
'=SUMME(Beginn:Ende!M6:M6)
Wenn ich die Summe jetzt aber in eine Abhängigkeit bringen will (Summewenn), dann
gehts nicht. Also ich möchte, dass eine Summe gebildet wird, wenn in den
Zielblättern (zwischen Beginn und Ende) die Zellen M6 bis M16 summiert werden,
wenn in Spalte A (Zielblätter) der Inhalt mit der Spalte A des aktuellen
Tabellenblattes übereinstimmt; so hätte ich die Formel geschrieben, aber was ist falsch:
'=SUMMEWENN(Beginn:Ende!A:A;A4;Beginn:Ende!M:M)
Besten Dank!
mfg
Erich
EXCEL-Shareware und Freeware: http://www.toolex.de
Private Tippgemeinschaft für Lotto oder KENO: http://www.kenostrategen.de

Hallo Erich,
die 105 verstehe ich nihct, ich komme da auf 210!?
https://www.herber.de/bbs/user/32256.xls
Benutzung in Excel:
=SW(A1;"Beginn";"Ende";"A";"M")

Option Explicit
Function SW(Vergleichszelle As Range, Beginnname As String, Endename As String, Suchspalte As String, Summenspalte As String)
Dim nB As Integer, nE As Integer, n As Integer, vorh As Boolean, nn As Long
For nB = 1 To Worksheets.Count
If Worksheets(nB).Name = Beginnname Then
vorh = True
Exit For
End If
Next nB
If vorh = False Then
MsgBox "Beginnname nicht gefunden"
Exit Function
End If
vorh = False
For nE = 1 To Worksheets.Count
If Worksheets(nE).Name = Endename Then
vorh = True
Exit For
End If
Next nE
If vorh = False Then
MsgBox "Endename nicht gefunden"
Exit Function
End If
If nE < nB Then
MsgBox "Blattreihenfolge prüfen"
Exit Function
End If
SW = 0
For n = nB To nE
With Worksheets(n)
For nn = 1 To .Cells(65536, Range(Summenspalte & 1).Column).End(xlUp).Row
If .Cells(nn, Range(Suchspalte & 1).Column).Value = Vergleichszelle.Value Then SW = SW + .Cells(nn, Summenspalte).Value
Next nn
End With
Next n
End Function

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..

Summewenn zwischen zwei Blättern

Forumthread: Summewenn zwischen zwei Blättern

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Summewenn zwischen zwei Blättern

Forumthread: Summewenn zwischen zwei Blättern

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread