Supportnet / Forum / Tabellenkalkulation
Frage: Diagramme mit VBA einbenden
Frage
Hallo Supportnetfreunde,
ich möchte mir auf diversen Tabellenblättern ein kleines Diagramm einblenden lassen (die Werte dafür stehen immer in den gleichen Zellen auf jedem Blatt) und habe dazu folgenden Code von Microsoft kopiert und habe eine Frage zu dem markierten Bereichen:
[quote]Sub AddChart()
Dim chtChart As Chart
'Create a new chart.
Set chtChart = Charts.Add
Set chtChart = chtChart.Location(Where:=xlLocationAsObject, [b]Name:="Sheet1")[/b]
With chtChart
.ChartType = xlColumnClustered
'Set the source data range for the chart.
.SetSourceData Source:=[b]Sheets("Sheet1").[/b]Range("A1:D5"), PlotBy:= _
xlRows
.HasTitle = True
.ChartTitle.Text = "Manakurve"
With .Parent
.Top = Range("A1").Top
.Left = Range("A1").Left
.Name = "Dia1"
End With
End With
End Sub[/quote]
Ich suche nun eine Lösung, in der immer vom aktivierten Sheet ausgegangen wird, aber irgendwie da "activesheet" reinzutippen bringt nicht - was daran liegt, dass ich noch wenig Erfahrung mit VBA-Excel habe und einfach nicht weiß, wie so etwas formuliert wird.
Ich möchte auf jeder Seite meiner Tabelle einen Knopf, der dann die Daten der aktiven Tabelle in das Diagramm umwandet. Das Diagram soll dann ebenfalls in der aktivierten Tabelle dargestellt werden.
[u][b]Für eine Hilfe wäre ich sehr dankbar. [/b][/u]
Grüße
Dakkon22049