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
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
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
vielen Dank für die schnelle Hilfe. Nach ein wenig hin und numm Probieren hat es super funktioniert!
Nochmals super Dank !
Madddin

