Hallo Melanie, die Formeln ließen sich aber automatisch mit einer Workbook_SheetSelectionChange-Routine an die Anzahl der vorhandenen Tabellen anpassen. Beispiel: Gruß Nepumuk Wunderbar, danke. Feedback kommt morgen. Der Mac steht im Büro, ich kann´s also erst dort ausprobieren. Hallo Nepumuk, Dir auch ein DANKE! Wie gesagt: morgen wird´s ausprobiert. ZÄHLENWENN-Funktion über mehrere Tabellenblätter - YouTube. Gruß, Melanie Ganz schön raffiniert, aber ich versteh das nicht ganz. Habs mal getestet und folgendes Ergebnis: {=SUMME(ZÄHLENWENN(INDIREKT("Tabelle"&ZEILE(1:3)&"! 1:65536");"Hallo"))} In der zelle steht #BEZUG Kannst du mir das mal bitte interpretieren? War ja auch nur als Beispiel gedacht, du brauchst nur ein Blatt, das nicht Tabelle heißt, sons gibt's einen Zirkelbezug. Hab ich ja, kam ja auch nix mit Zirkelbezug. Was bedeutet das mit Zeile(1:3) Das ist der Verweis auf die Blätter Tabelle1 / Tabelle2 / Tabelle3 oT Hallo Nepumuk, jetzt habe ich das Problem, daß ich nicht sicher bin ob das richtig ist was ich hier mache. Also ich habe in Excel mittels VBS ein Modul mit dem Namen Workbook_Open und eins mit dem Namen Workbook_SheetSelectionChange erstellt und den Code dort eingegeben.
Danke für eure Unterstützung. Betrifft: AW: Zählenwenns über mehrere Arbeitsblätter von: Daniel Geschrieben am: 06. 2016 17:41:48 Hi nein, geht nicht. ich würde ein Hilfsblatt einfügen, in welchem du dir die Werte für alle Fragebögen in einem Tabellenblatt zusammenfasst. hierzus schreibst du in die Spalte A ab Zeile 2 den jeweiligen Tabellenblattnamen in die Zeile 1 schreibst du ab Spalte B die Adresse der Zelle, die in dieser Spalte ausgewertet werden soll. dh A2: JAN - Formular 1 A3: JAN - Formular 2 usw für alle Tabellenblätter B1: B3 C1: B5 D1: H1 usw für alle auszuwertenden Zellen in die Zelle B2 kommt dann folgende Formel: =Indirekt("'"&$A2&"'! Zählenwenn über mehrere tabellenblätter addieren. "&B$1) diese Formel ziehst du soweit nach unten wie benötigt und soweit nach Rechts wie benötigt somit hast du alle Daten auf auf einem Tabellenblatt und kannst diese dann viel einfacher auswerten. Gruß Daniel Geschrieben am: 07. 2016 15:01:42 Hallo Daniel Es funktioniert danke. Wozu dient das Hochkomma und das Ausrufezeichen in den Anführungszeichen?
Vielleicht hat nich jemand anderes eine Idee. Gruß Boris Wie wärs mit einer freundlichen kleinen Schleife über alle Tabellen? Und wie geht das? So gut kenne ich mich dann doch nicht aus. Zählenwenn über mehrere Tabellenblätter. Melanie Ich hab jetzt erst deinen Zusatz gelesen, dass es für einen Mac ist. Ich weiß nun nicht, ob die Syntax da identisch ist, aber probieren kann ja nix schaden. Annahme: deine zu zählenden Begriffe stehen in Tabelle1, Spalte A In Spalte B werden die Anzahlen jeweils danebengeschrieben. Die erste Schleife geht die Begriffe durch, die innere Schleife geht alle Blätter durch, die nicht Tabelle1 heißen: Option Explicit Sub Zählenwenn_Sheets() Dim WS As Worksheet, WS1 As Worksheet, ZW As Long, S As Integer Dim Z As Long, LZ As Long, SB As Variant, SumZW As Long Set WS1 = Sheets("Tabelle1") LZ = WS1. [a65536](xlUp) For Z = 1 To LZ SB = (Z, 1) For S = 1 To If Not Sheets(S) = Then Set WS = Sheets(S) ZW = untIf(WS. [a:a], SB) SumZW = SumZW + ZW (Z, 2) = SumZW End If Next SumZW = 0 Next Set WS = Nothing Set WS1 = Nothing End Sub Feedback wäre nicht schlecht, wegen der Mac- Geschichte.