Zählen mehrerer Werte in 12 Blättern

[MW1323]

Moin Moin,

ich bin am verzweifeln. Ich möchte eine Excel mit 13 Blättern erstellen. Letztes Blatt soll eine Zusammenfassung werden.
In jedem Blatt gibt es ca 30 Spalten und ca 20 Zeilen.in diesem Raster werden Informationen täglich eingetragen. Die Informationen sind mit Abkürzungen festgelegt (zB: A, B, C, D) Auf Seite 13 möchte ich nun zusammenfassen wie oft auf den 12 blättern in z.B Zeile 3 ein B eingetragen wurde. ( oder ein A oder ein C). Gleiches benötige ich natürlich auch für Zeile 1-20.

Wer kann mir da n bisschen helfen ? bzw. ist das überhaupt deutlich genug was ich von euch möchte ?

[BoskoBiati]

Hallo,

nimm ein Blatt statt 12, dann geht das mit Zählenwenn oder Pivot!

[MW1323]

Danke für deine Antowrt BoskoBiati,

leider möchte ich das genau in 12 (13) Blättern haben ::D
Bevor es garnicht geht muss ich es halt umbauen, aber da muss es doch ein weg geben oder ?
Liebe Grüße
MW1323!

[BoskoBiati]

Hallo,

aber da muss es doch ein weg geben oder

sicher doch, viele. Alle sehr aufwändig:

in jedem Blatt separat zählen und dann die Summe über alle Blätter.
Pivot in jedem Blatt und Summe über alle Blätter
Ellenlange Formeln
VBA

[Fennek]

Hallo,

manchmalist es möglich EINE Pivot-Auswertung über mehrer Tabellen zu rechnen. Mit xl2016 wäre ein Versuch, alle 12 Datentabellen als "inelligente" Tabellen (strg-t) anzulegen, dem Datenmodell hinzufügen und dann die Pivot anlegen.

In frühreren Versionen geht das auch, aber es ist ziemlich versteckt: man kann (die versteckte) xl2003 Pivot-Tabelle (vermutlich "alt-t-n") anlegen mit mehreren Datenbereichen. (suche mal bei youtube "excelsfun" von Mike Girvin)

mfg

[Joe]

Hey MW1323,

Wäre den VBA eine Möglichkeit bei dir?

Ich glaube wenn ich dich richtig verstanden habe, wäre da eine verschachtelte Schleife möglich.
Hab dir eine konstruiert in etwa, aber nicht erprobt da mir ja deine Tabelle fehlt und ich nicht genau weiß wie wo was.

Code:

Dim wks As Worksheet
Dim Worksheetzahl As Integer
Dim Zeilenzahl As Integer
Dim Spaltenzahl As Integer
Dim AktuelleZelle As String
Dim VariableA As String
Dim VariableB As String

    'Falls keines der Abkürzung vorkommt wird Null stehen
    VariableA = 0
    VariableB = 0

For Zeilenzahl = 1 To 20
    
    For Worksheetzahl = 1 To 12
        Set wks = ThisWorkbook.Worksheets("Test" & Worksheetzahl)
        
        For Spaltenzahl = 1 To 30
            AktuelleZelle = wks.Cells(Zeilenzahl, Spaltenzahl)
            
            Select Case AktuelleZelle.Value
                
                'Die aktuelle Zelle wird auf die Abkürzung überprüft,
                'falls positiv wird die Variable um 1 erhöht
                Case "A": VariableA = VariableA + 1
                Case "B": VariableB = VariableB + 1
                
            End Select
            
        Next Spaltenzahl 'nächste Spalte
        
    Next Worksheet 'nächste Worksheet
    
    'Im Worksheet Test13 in Zeile XY wird in Spalte A die entsprechende
    'Anzahl für Variable A der jeweiligen Zeile eingefügt
    ThisWorkbook.Worksheets("Test13").Cells(Zeilenzahl, 1).Value = VariableA
    
    'Im Worksheet Test13 in Zeile XY wird in Spalte B die entsprechende
    'Anzahl für Variable B der jeweiligen Zeile eingefügt
    ThisWorkbook.Worksheets("Test13").Cells(Zeilenzahl, 2).Value = VariableB
    
    'Variablen leeren damit mit der nächsten Zeile begonnen werden kann
    VariableA = 0
    VariableB = 0
    
Next Zeilenzahl

Vorraussetzung deine Worksheets heißen Test1, Test2 und so weiter...

[MW1323]

Vielen DANK für die ganzen mühen!!!!
Habs nun wie von BoskoBasti beschrieben gemacht!
 @Joe. Nocheinmal einen ganz besonderen dank, das du dir soviel Mühe gemacht hast :)

Super Community hier!