Office: (Office 2010) Diagrammbezüge in neuer Tabelle

Hallo zusammen,

ich bin neu hier im Forum und hoffe dass ihr mir helfen könnt.
Bisher habe ich alles was ich umsetzen wollte auch irgendwie mit Excel hinbekommen (wenn auch bestimmt unnötig aufwändig), aber jetzt ist mein Latein am Ende und ich benötige Hilfe von Leuten die wissen was sie da eigentlich tun… :p

Mein Problem ist folgendes:
Ich habe ein Tabellenblatt mit allerlei Berechnungen und einem Diagramm. Den kompletten Inhalt dieses Tabellenblatts würde ich nun gerne via Button in ein neues Tabellenblatt kopieren und den Inhalt der Zellen E32:G35 entfernen, da dort in dem neuen Tabellenblatt neue Werte für die Berechnungen eingetragen werden. Das würde ich dann gerne beliebig oft machen wollen.
Ich hab mir dazu ein Makro aufzeichnen lassen und das funktioniert soweit auch. Woran ich jetzt allerdings scheitere ist, dem Diagramm im neuen Tabellenblatt den Zellbezug zu dem neuen Tabellenblatt beizubringen und nicht den alten aus der ursprünglichen Tabelle beizubehalten.

Ob ihr mir da wohl helfen könnt? Das bisherige Makro hänge ich mal hier dran:

Sub NeueTabelle()
'
' NeueTabelle Makro
'
Cells.Select
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Buttons.Add(306, 483, 65.25, 16.5).Select
ActiveSheet.Paste
ActiveSheet.ChartObjects("Diagramm 1").Activate
Application.CutCopyMode = False
ActiveChart.SeriesCollection(1).XValues = "=Tabelle1!$P$6"
ActiveChart.SeriesCollection(1).Values = "=Tabelle1!$Q$6"
[…] usw.
ActiveChart.SeriesCollection(15).XValues = "=Tabelle1!$T$34"
ActiveChart.SeriesCollection(15).Values = "=Tabelle1!$U$34"
Range("E32:G35").Select
Selection.ClearContents
Range("E32").Select
End Sub


Schöne Grüße
TantLang

 

Hi,

kopiere nicht die Zellinhalte sondern das komplette Tabellenblatt einschließlich dem Diagramm und lösche dann einfach die Zellinhalte, die in dem neuen Tabellenblatt nicht benötigt werden.

Bis später,
Karin

 

Hallo Karin,

ich hab es in der Zwischenzeit durch Zufall selbst herausgefunden. Aber Danke für die Antwort.

Schöne Grüße
TantLang