Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon Dakkon22049 vom 30.08.2019, 10:36 Options
Frage: Diagramme mit VBA einbenden
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:
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.
Für eine Hilfe wäre ich sehr dankbar.
Grüße
Dakkon22049
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:
Zitat:
Sub AddChart()
Dim chtChart As Chart
'Create a new chart.
Set chtChart = Charts.Add
Set chtChart = chtChart.Location(Where:=xlLocationAsObject, Name:="Sheet1")
With chtChart
.ChartType = xlColumnClustered
'Set the source data range for the chart.
.SetSourceData Source:=Sheets("Sheet1").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
Sub AddChart()
Dim chtChart As Chart
'Create a new chart.
Set chtChart = Charts.Add
Set chtChart = chtChart.Location(Where:=xlLocationAsObject, Name:="Sheet1")
With chtChart
.ChartType = xlColumnClustered
'Set the source data range for the chart.
.SetSourceData Source:=Sheets("Sheet1").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
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.
Für eine Hilfe wäre ich sehr dankbar.
Grüße
Dakkon22049
Antwort 1 von Dakkon22049 vom 30.08.2019, 11:06 Options
Ähnliche Themen
Diagramme
Zwockel 26.03.2007 - 68 Hits - 3 Antworten
Diagramme zuweisen
HMu 03.05.2007 - 138 Hits - 2 Antworten
Bestehendes Diagramm in Abhängigkeit eines Zellwertes anzeigen
ralf11 29.05.2007 - 169 Hits - 6 Antworten
Diagramme werden nicht gedruckt
NadjaR. 04.10.2007 - 476 Hits - 5 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
