Mehrere Tabellenblätter Summieren

Thomas · 2023-03-24T11:43:25+00:00

Hallo zusammen, ich habe mehrere Tabellenblätter die summiert werden sollen, die zu Summierenden Tabellenblätter fangen allle mit "tmp" im Namen an. In den Tabellenblättern gibt es ausgeblendete Spalten die nicht summiert werden sollen, sondern nur die Sichtbaren, alle Blätter haben von Spalte 2 bis 54 Sichtbare Spalten die summiert werden sollen und bestehen aus 45 Zeilen. Der Aufbau auf dem Summierungsblatt soll so sein, wie auf den Tabellenblättern von denen Summiert werden soll. https://www.herber.de/bbs/user/158414.xlsm Wie kann ich diese in einem neuen Tabelleblatt summieren? Anbei eine Beispieltabelle. Danke MFG Thomas

Hallo Gerd, zu summieren sind die einzelnen Zeilen der Tabellenblätter, sprich Zeile 6 von tmp1 und tmp2 auf dem Tabellenblatt "Summierung".

Allerdings gibt es eine Besonderheit die mir über das Wochenende aufgefallen ist und das ist das nicht auf jedem "tmp" Blatt die gleiche Zeilen anzahl ist, so das geprüft werden muss was in den "Überschriftzeilen" (5,9,13 usw.) steht und dann diese entsprechend von den "tmp" Blätter im "Summierung" Blatt summiert werden muss.

Ich hab da am WE ein bisschen rumgebastelt bekomme es aber leider nicht sauber hin und steh mir auch grade so ein bisschen auf dem Schlauch wie ich das lösen kann.

Bis jetzt war ich hier, aber wie gesagt erfolglos



lngZ = 5
lngY = 5

lngLastRow = Sheets("Summierung").UsedRange.Rows.Count

For Each ws In ThisWorkbook.Worksheets
    If Left(ws.Name, 3) = "tmp" Then
       If Not ws.Name = Sheets("Summierung").Name Then
        If Sheets("Summierung").Cells(lngY, 2).Value = ws.Cells(lngZ, 2).Value Then
            For lngI = lngY + 1 To lngLastRow
                If Not (lngI + 3 > lngY) Then
                    For lngj = 4 To 54 Step 2
                        Sheets("Summierung").Cells(lngI, lngj).Value = Sheets("Summierung").Cells(lngI, lngj).Value + ws.Cells(lngI, lngj).Value
                    Next lngj
                Else
                    lngZ = lngZ + 4
                    lngY = lngY + 4
                   
                End If
            Next lngI
             
       Else
            lngZ = lngZ + 4
        End If
            lngZ = lngZ + 4
            lngY = lngY + 4

        End If
    End If
Next ws

Aber da hab ich mich irgendwie in den Schleifen/Ifs ausgetrickst.....

MFG
Thomas

Hallo Thomas,

"ich habe im Anhang mal im Tabellenblatt die Ergebnisse eingefügt die ich erwarte"
Sehr schön, dass Du erst jetzt genau sagst, was Du brauchst. Warum nicht von Anfang an?
(kannst Du übrigens deine Datei nur als xlsm speichern, wenn sie tatsächlich eine Makro beinhalten? Es irritiert, Makro zu erwarten und keine zu finden. Danke)

Deine Zellenverbindungen verursachen Störung beim Leeren ("ClearContents") und beim Suchen und müssen ausgeschaltet werden ("Unmerge"). Es sollte keine Nebenwirkung haben.

Sub Summieren()
Dim Z As Range
Dim W As Worksheet
Dim F As Range

    With Worksheets("Summierung")
        .Columns("B:B").UnMerge
        .Range("D5:BB45").ClearContents
        For Each Z In .Range("B5:B45")
            If Z.Value Like "Text*" Then
                For Each W In Worksheets
                    If W.Name Like "tmp*" Then
                        W.Columns("B:B").UnMerge
                        Set F = W.Range("B:B").Find(Z.Value)
                        If Not F Is Nothing Then
                            F.Offset(1, 2).Resize(3, 51).Copy
                            Z.Offset(1, 2).PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd
                        End If
                    End If
                Next W
            End If
        Next Z
    End With
End Sub

VG
Yal

Mehrere Tabellenblätter Summieren

Forumthread: Mehrere Tabellenblätter Summieren

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Mehrere Tabellenblätter Summieren

Forumthread: Mehrere Tabellenblätter Summieren

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread