HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Entdecke rund 2 Millionen Excel-Lösungen im
Forumsarchiv
Zum Forum Zum Forum Zum Forumthread Zum Forumthread Zum Archivthread Zum Archivthread
Forumbeitrag
Excel-Version des Fragestellers:
2016
Erfahrungslevel des Fragestellers:
Basiskenntnisse in Excel
Alwin Weisangler
03.07.2026 18:02:42
AW: Mehrere Blätter in einem Gesamtblatt automatisch ausfüllen
Hallo BodoV,

du hast O2016 angegeben. Bei diesem sperrigen Konstrukt ist ohne dies über den Haufen zu werfen VBA die brauchbarste Lösung. Es werden alle Tabellenblätter außer Blatt „Gesamt“ die benötigten Werte aufsummiert. 


Option Explicit



Sub Auswertung()

    Call Ergebnisse(rngAbfrage:=Tabelle4.Range("C4:C23"), Zielzelle:=Tabelle4.Range("D4"))

End Sub



Sub Ergebnisse(rngAbfrage As Range, Zielzelle As Range)

    Dim wks As Worksheet, arrSum(), rngWerte As Range, arrWks(), i&, j&, k&, iST, lZ&, iFund

    ReDim arrSum(1 To rngAbfrage.Rows.Count, 1 To 9)

    For Each wks In ThisWorkbook.Sheets

        If IsNumeric(wks.Name) Then

            iST = Application.Match("Nation", wks.Columns(2), 0)

            If Not IsError(iST) Then Set rngWerte = wks.Range("B" & iST & ":J" & wks.Rows.Count - iST + 1)

            For i = 1 To rngAbfrage.Count

                iFund = Application.Match(rngAbfrage.Cells(i, 1), rngWerte.Columns(1), 0)

                If Not IsError(iFund) And Not IsError(iST) Then

                    For j = LBound(arrSum, 2) To UBound(arrSum, 2)

                        If j <> 7 Then

                            k = k + 1

                            arrSum(i, j) = arrSum(i, j) + rngWerte.Cells(iFund, k + 1)

                        Else

                            arrSum(i, j) = arrSum(i, 5) - arrSum(i, 6)

                        End If

                    Next j

                    k = 0

                End If

            Next i

        End If

    Next

    Zielzelle.Resize(UBound(arrSum), 9) = arrSum

End Sub

https://www.herber.de/bbs/user/180868.xlsm

Gruß Uwe
Beim Antworter bedanken Als gefällt mir markieren Als hervorragend auszeichnen
Als Antwort auf diesen Beitrag
BodoV
03.07.2026 11:28:26
Mehrere Blätter in einem Gesamtblatt automatisch ausfüllen
Hallo liebe Excel-Gemeinde,

ich bin neu hier und habe schon auf vielen Seiten versucht, eine akzeptable Lösung für mein Anliegen zu finden. Leider vergebens.

Ich habe für jede Fußball-Weltmeisterschaft ein separates Blatt erstellt mit allen Spielen und einer abschließenden Tabelle. Innerhalb eines Blattes ist alles nachvollziehbar und die Formeln funktionieren super.
Nun kommt zu all den Blättern noch ein Blatt mit dem Namen "Gesamt". Hier ist eine große Zusammenfassung aller Spiele in Tabellenform. Und nun beginnt das Problem.

Die Formel für die Teilnahmen funktioniert.
Die Formel für die Anzahl der Spiele habe ich nach langem Suchen im Netz gefunden. Diese erleichtert die Eingabe der Daten ungemein.
=SUMME(ZÄHLENWENN(INDIREKT(""&$T$3:$AG$3&"!$S$12:$T$400");"Brasilien")), steht in geschwungenen Klammern.

Nun suche ich nach einer ähnlichen Lösung, um in der Gesamt-Tabelle die grünen Felder automatisch einzupflegen.

Bisher habe ich es so gemacht: =SUMME('1966'!D134;'1986'!D230).
Funktioniert auch, ist aber sehr umständlich.

Für Eure Hilfe wäre ich Euch sehr dankbar!

P.S.: Zum leichteren Verständnis packe ich mal ein Beispiel mit rein.

https://www.herber.de/bbs/user/180865.xlsx
Folgenachrichten
Zum Forumthread
Antwort auf Beitrag erstellen
Bitte einen Anwendernamen ohne @ eingeben.
Bitte das Passwort eingeben.
Bitte eine gültige E-Mail-Adresse eingeben.
Bitte einen Betreff eingeben.
Weitere Optionen
Aktivieren, wenn die Frage/der Beitrag noch nicht beantwortet wurde und unter Listen > Offene Threads erscheinen soll.
Beispieldatei hochladen
Bitte einen Nachrichtentext eingeben.