Zählenwenn über mehrere Tabellenblätter

[Bernd Vogt]

Hallo,

hab' da mal wieder ein kleines Problem

Ich möchte mit Zählenwenn Bereiche mehrerer Tabellenblätter auswerten.

Also im Prinzip so etwas:

=Zählenwenn(Tabelle1!C1:IV1;Tabelle2!C1:IV1 usw. ;1)

Aber das haut natürlich nicht hin, da Excel hinter dem ersten Semikolon den
Zählwert erwartet.

Der Versuch den Bereich in Klammern zu setzen ist auch kläglich gescheitert.

Gibt's dafür eine elegante Lösung?

Die alternative wäre natürlich, auf jedem Tabellenblatt ein Zählenwenn zu
basteln und dann auf einem Blatt alles zusammen zu führen. Gefällt mir aber
nicht so gut, da ich eigentlich nur ein Tabellenblatt mit Berechnungen haben
möchte. Die restlichen sollen eigentlich nur die Daten enthalten.

Vielen Dank und ein frohes Osterfest

Bernd

[Eike Bimczok]

Post by Bernd Vogt
Hallo,
hab' da mal wieder ein kleines Problem
Ich möchte mit Zählenwenn Bereiche mehrerer Tabellenblätter auswerten.
=Zählenwenn(Tabelle1!C1:IV1;Tabelle2!C1:IV1 usw. ;1)
Aber das haut natürlich nicht hin, da Excel hinter dem ersten Semikolon den
Zählwert erwartet.
Der Versuch den Bereich in Klammern zu setzen ist auch kläglich gescheitert.
Gibt's dafür eine elegante Lösung?
Die alternative wäre natürlich, auf jedem Tabellenblatt ein Zählenwenn zu
basteln und dann auf einem Blatt alles zusammen zu führen. Gefällt mir aber
nicht so gut, da ich eigentlich nur ein Tabellenblatt mit Berechnungen haben
möchte. Die restlichen sollen eigentlich nur die Daten enthalten.
Vielen Dank und ein frohes Osterfest
Bernd

Hallo Bernd,

=Zählenwenn(Tabelle1!C1:IV1;1)+Zählenwenn(Tabelle2!C1:IV1;1)

Schöne Ostern und Gruß
Eike

[Bernd Vogt]

Post by Eike Bimczok

Post by Bernd Vogt
Hallo,
hab' da mal wieder ein kleines Problem
Ich möchte mit Zählenwenn Bereiche mehrerer Tabellenblätter auswerten.
=Zählenwenn(Tabelle1!C1:IV1;Tabelle2!C1:IV1 usw. ;1)
Aber das haut natürlich nicht hin, da Excel hinter dem ersten Semikolon
den Zählwert erwartet.
Der Versuch den Bereich in Klammern zu setzen ist auch kläglich gescheitert.
Gibt's dafür eine elegante Lösung?
Die alternative wäre natürlich, auf jedem Tabellenblatt ein Zählenwenn zu
basteln und dann auf einem Blatt alles zusammen zu führen. Gefällt mir
aber nicht so gut, da ich eigentlich nur ein Tabellenblatt mit
Berechnungen haben möchte. Die restlichen sollen eigentlich nur die Daten
enthalten.
Vielen Dank und ein frohes Osterfest
Bernd

Hallo Bernd,
=Zählenwenn(Tabelle1!C1:IV1;1)+Zählenwenn(Tabelle2!C1:IV1;1)
Schöne Ostern und Gruß
Eike

[Thomas Ramel]

Grüezi Bernd

Bernd Vogt schrieb am 16.04.2006

Post by Bernd Vogt
Ich möchte mit Zählenwenn Bereiche mehrerer Tabellenblätter auswerten.
=Zählenwenn(Tabelle1!C1:IV1;Tabelle2!C1:IV1 usw. ;1)
Aber das haut natürlich nicht hin, da Excel hinter dem ersten Semikolon den
Zählwert erwartet.
Der Versuch den Bereich in Klammern zu setzen ist auch kläglich gescheitert.
Gibt's dafür eine elegante Lösung?

Du kannst eine Benutzerdefinierte Funktion verwenden,
welche über die angegebenen Tabellenblätter die ZÄHLENWENN() anwendet:

Public Function ZählenWennTabellen(Tab1 As String, _
Tab2 As String, _
Bereich As Range, _
Suchkriterium As String) As Double

'© ***@mvps.org / 09.01.2005
'Funktion zur Anwendung von ZÄHLENWENN() über mehrere Tabellenblätter
'Mit angegeben werden die Tabellenblattnamen von...bis,
'sowie die üblichen Parameter für ZÄHLENWENN()
'Zur automatischen Aktualisierung im Tabellenblatt den folgenden Term
'anhängen: +(0*JETZT()) und F9 drücken
'Also z.B. wie folgt: ZählenWennTabellen(A1:A10;A1)+(0*JETZT())

Dim intI As Integer
Dim intJ As Integer
Dim intTab As Integer
Dim Wert As Double

If Suchkriterium "" Then
ZählenWennTabellen 0
Exit Function
End If

intI Worksheets(Tab1).Index
intJ Worksheets(Tab2).Index

For intTab intI To intJ
Set Bereich ActiveWorkbook.Worksheets(intTab) _
.Range(Bereich.Address)
Wert Wert + Application.WorksheetFunction.CountIf _
(Bereich, Suchkriterium)
Next intTab
ZählenWennTabellen Wert
End Function


Mit freundlichen Grüssen
Thomas Ramel (@Laptop)