Daten von anderen Tabellenblättern

Hallo miteinander
Ich habe ein kleines grosses Problem. Muss bis ende Woche das Problem gelöst haben und ich weiss einfach nicht weiter.
In Tabelle 9000 Zelle I15 hab ich folgende Formel:
=SUMMEWENN('m-9000'!$G$1:$G$1869;B15;'m-9000'!$R$1:$R$1869)
Das heisst, ich gehe mit dieser Formel Daten holen in der Tabelle m-9000. Jetzt möchte ich aber Daten aus vielen verschiedenen Tabellenblättern holen. Und weil ich sehr viele Zeilen habe mit dieser Formel, möchte ich diese Formeln nicht immer wieder manuell ändern müssen. Kopieren kann ich sie nicht, da dazwischen immer wieder Leerzeilen vorhanden sind (müssen).
Ich dachte nun, dass ich beispielsweise in der Spalte "L" vielleicht 10 Tabellennamen auflisten kann, und mit den Namen eine Verknüpfung zu der jeweiligen Tabelle herstellen kann. Wie kann ich das nun machen? 'm-9000'! irgendwie ersetzen und ergänzen mit einer WENN-Formel? Das übersteigt einfach meine Kenntnisse!
Vielen Dank im voraus für eure Hilfe!
Lieber Gruss
Albin
P.S. Die Datei kann ich sonst auch zusenden.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
vielleicht würde das über Indirekt in Verbindung mit einer Matrix-Formel gehen, aber die einfachere Lösung ist hier wahrscheinlich, sich eine kleine, Selbstgeschriebene Funktion zu basteln, die diese aufgabe erfüllt:


Public Function SuWeTabs(Suchbereich As String, _
Suchwert As Variant, _
Summenbereich As String, _
Tabellenblätter As Range) As Double
Dim Tabs
Dim T
Tabs = Tabellenblätter.Value
For Each T In Tabs
SuWeTabs = SuWeTabs + WorksheetFunction.SumIf(Sheets(T).Range(Suchbereich), Suchwert.Value,  _
Sheets(T).Range(Summenbereich))
Next
End Function

der Code muss in ein allgemeines Modul kopiert werden und funktioniert dann ähnlich wie SummeWenn mit folgenden Parameter:
1. Parameter: Suchbereich, muss als String eingegeben werden und nicht als Zellbezug)
2. Parameter: Suchwert, (wie in SummeWenn)
3. Parameter: Summenbereich, muss wieder als String eingegeben werden
4. Parameter: Tabellenblätter: Zellbereich (1-Spaltig), in dem die Tabellenblätter aufgelistet sind:
Beispiel: "=SuWeTabs("G1:G1863";B22;"R1:R1863";$L$1:$L$5)
Gruß, Daniel
hier die Datei, die Beispielformel steht in Zeile 22
https://www.herber.de/bbs/user/54527.xls

Beliebteste Forumthreads (12 Monate)

Daten von anderen Tabellenblättern

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

	A
1	360

Daten von anderen Tabellenblättern

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread