Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

Zellen von verschiedenen Blättern auf einem eigenen Blatt automatisch einfügen





Frage

Hallo, ich habe ein kleines Problem und könnte Eure Hilfe sehr gut gebrauchen. Es geht darum, dass ich ca. 50 Tabellenblätter mit immer dem selben Aufbau habe. Darin sind immer die gleichen Daten eingetragen. Jetzt soll ein Tabellenblatt "Zusammenfassung" erstellt werden, bei dem einzelne Datenfelder aus den 50 Tabellenblättern angezeigt werden sollen. Von Hand ist es klar mit " = dann auf Tabellenblatt und die Zelle auswählen" ! Bei der Anzahl an Tabellenblätter ist das aber unakzeptabel! Auch stehen die Zellen nicht nebeneinander, die angezeigt werden sollen. Gibt es eine Möglichkeit über Ausfüllkästchen oder Makro diese Aufgabe zu lösen? Ich hoffe Ihr könnt mir helfen. Gruß Madddin

Antwort 1 von Michael_Lobo

Gibt es einen Zusammenhang zwischen den Tabellenblatt nummern und den Zeilen in denen alles in Zusammenfasuung stehen soll?

Dann könnte man es schon mit einem Makro machen und den Tabellennamen über einen String erzeugen und dann das feld mit dem gleichen zähler.


Gruß Michael

Antwort 2 von DukeNT

Hi Maddin,
kopiere folgendes in ein VBE-Modul:

Sub übersicht()
For a = 2 To Sheets.Count
Sheets(1).Cells(a, 1).Value = Sheets(a).Cells(1, 1).Value
Next
End Sub

Die Schleife Arbeitet alle Blätter außer dem ersten (Übersicht)
ab und trägt die Werte aus "Cells(1,1)" entspricht "A1" in die Übersicht in Spalte A untereinander ein.
Mußt nur "Cells(1,1)" nach deinen Vorgaben anpassen.
Gruß Duke

Antwort 3 von Madddin

Hi,

vielen Dank für die schnelle Hilfe. Nach ein wenig hin und numm Probieren hat es super funktioniert!

Nochmals super Dank !
Madddin