Guten Abend,
ich möchte mir gerne ein Makro Programmieren, das einen Graphen erstellt und dabei auf eine beliebige Tabelle zugreift.
Die Graphenfunktion passt soweit, allerdings verhaue ich den Bezug auf die jeweilige Tabelle.
Ich hoffe Ihr könnt mir weiterhelfen.
Sub GraphErstellen()
Dim b As String, c As String, a As String
'a = InputBox("Bitte geben Sie den Datenreihennamen an")
'b = InputBox("Bitte geben Sie den Diagrammnamen an")
c = InputBox("Bitte Geben Sie den Tabellennamen an")
Charts.Add
ActiveChart.ChartType = xlXYScatterSmooth
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "= 'c'!A1:A11"
ActiveChart.SeriesCollection(1).Values = "= 'c'!B1:B11"
ActiveChart.SeriesCollection(1).Name = a
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = b
End With
End Sub
|