leider bin ich mit meiner Inetsuche bisher noch nicht fündig geworden und hoffe man kann mir hier weiterhelfen.
Ich habe mehrer Datentabelle mit jeweils ca. 5000 Werten. Aus diesen Tabellen will ich verschiedene Diagramme aus unterschiedlichen Bereichen erstellen. Das Ganze soll so funktionieren, dass ich eine Userform aufrufe, in der ich dann den Bereich definieren definiere, welcher mir in dem Diagramm A angezeigt werden soll. Mein erster Versuch schaut so aus:
Option Explicit
Private Sub CommandButton1_Click()
'Makro aktualisiert die Anzeige nicht
Application.ScreenUpdating = False
'Diagramm aus Tabellen erstellen
ActiveSheet.Shapes.AddChart2(240, xlXYScatterLinesNoMarkers).Select
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:= _
TextBox1
ActiveChart.ChartArea.Select
Application.CutCopyMode = False
Application.CutCopyMode = False
Application.CutCopyMode = False
Application.CutCopyMode = False
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(1).Name = "=""Temp Reaktor A"""
ActiveChart.FullSeriesCollection(1).XValues = TextBox2
ActiveChart.FullSeriesCollection(1).Values = TextBox3
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(2).Name = "=""Temp Reaktor B"""
ActiveChart.FullSeriesCollection(2).XValues = TextBox2
ActiveChart.FullSeriesCollection(2).Values = TextBox4
'Makro aktualisiert die Anzeige
Application.ScreenUpdating = True
End Sub
Des weiteren soll die Tabelle als letzter Reiter nach den ganzen Tabellen eingefügt werden.Schonmal vielen Dank für eure Hife.
Gruß
Markus