Mehrere Tabellenblätter in eins zusammenführen

Computer: Software & Programmierung Office Software
1

Hallo ich habe eineFrage: Wie kann ich den verschiedene Tabellenblätter (40 Stück) in ein Tabellenblatt zusammenführen (in jedem Tabellenblatt ist ein Diagramm…). Besten Dank für eure Antwort im Vorraus
Nico

2

Hallo Nico,

probier doch mal folgendes Makro
Sub copydiags()
Offset = 40 ’ alle wieviele Zeilen soll positioniert werden?
For i = 2 To Worksheets.Count
Worksheets(i).ChartObjects(1).Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
Worksheets(1).Activate
Range(„A“ & (i - 1) * Offset).Select
Worksheets(1).Paste
Debug.Print Worksheets(i).Name
Next i
End Sub

viel Erfolg.

Mit freundlichen Grüßen
Jadawin

Hallo ich habe eineFrage: Wie kann ich den verschiedene
Tabellenblätter (40 Stück) in ein Tabellenblatt
zusammenführen (in jedem Tabellenblatt ist ein Diagramm…).
Besten Dank für eure Antwort im Vorraus
Nico

3

Hallo Danke für die schnelle Antwort. Gruß Nico
Geht das auch irgendwie übers Menü?

4

Ja klar:

Bereich Quelltabelle auswählen - kopieren - Einfügeposition Zieltabelle auswählen - einfügen usw.

Martin