Tabellenblatt durch Kriterienfeld selektieren

Hi!
Meine Problemstellung:
Ich baue eine statistische Auswertung auf, in der verschiedene Maschinen auf jeweils einem eigenen Tabellenblatt dargestellt werden. Zusätzlich soll es eine Zusammenfassung geben, in der die Werte der Maschinen abteilungsweise aufsummiert ausgegeben werden.
Hierfür wird auf den Maschinentabellenblättern jeweils an gleicher Stelle die zugehörige Abteilung angegeben.
Ich suche nun eine Möglichkeit, wie ich auf dem Abteilungsblatt bewerkstelligen kann, dass die richtigen Maschinen (also die, wo die entsprechende Abteilung vermerkt ist) selektiert werden. Einfach gesprochen sollen sämtliche Tabellenblätter der Datei durchgegangen werden und kontrolliert werden, welche Abteilung in einem festen Feld eingetragen ist und anhand dessen summiert werden. Es wäre also so ähnlich wie die SUMMEWENN-Formel, nur eben blätterübergreifend.
Kennt da jemand eine Möglichkeit?
Da die Datei auch verschickt und von Personen ohne großartige Excelkenntnisse u.U. auch bearbeitet werden soll, wären Makros oder Pivot-Tabellen, die immer wieder aktualisiert werden müssten nicht die richtige Wahl. Es soll also rein formelmäßig funktionieren.
Grüße und Danke,
Stefan

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Function SummeBlaetter(Abteilung As String) As Double Dim wks As Worksheet Application.Volatile For Each wks In ThisWorkbook.Worksheets If wks.Name "Übersicht" Then If wks.Range("A1") = Abteilung Then SummeBlaetter = SummeBlaetter + wks.Range("B2") End If End If Next End Function

=SummeBlaetter(C3) In C3 der Zusammenfassung steht dann der Abteilungsname, für den die Summe berechnet werden soll Public Function SummeBlaetter(Abteilung As String) As Double Dim wks As Worksheet Application.Volatile For Each wks In ThisWorkbook.Worksheets If wks.Name "Übersicht" Then If wks.Range("A1") = Abteilung Then SummeBlaetter = SummeBlaetter + wks.Range("B2") End If End If Next End Function

Public Function SummeBlaetter(Abteilung As String, ZelleAdresse As String) As Double Dim wks As Worksheet Application.Volatile For Each wks In ThisWorkbook.Worksheets If wks.Name "Übersicht" Then If wks.Range("A1") = Abteilung Then SummeBlaetter = SummeBlaetter + wks.Range(ZelleAdresse) End If End If Next End Function Formelbeispiel: =SummeBlaetter($B$1;"B" & ZEILE(B2))

Public Function SummeBlaetter(Abteilung As String, Zeile As Long, Spalte As Integer) As Double Dim wks As Worksheet Application.Volatile For Each wks In ThisWorkbook.Worksheets If wks.Range("A1") = Abteilung Then SummeBlaetter = SummeBlaetter + wks.Cells(Zeile, Spalte) End If Next End Function Formel-Beispiel: =SummeBlaetter($B$1;ZEILE(B4);SPALTE(B4))

Beliebteste Forumthreads (12 Monate)

Tabellenblatt durch Kriterienfeld selektieren

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread