Tabellenbezug bei Diagrammen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub ToggleButton1_Click() If ToggleButton1 = True Then ActiveSheet.ChartObjects("Diagramm 2").Activate ActiveChart.ChartArea.Select ActiveChart.SetSourceData Source:=Sheets("Tabelle1").Range("B1:C4"), PlotBy _ :=xlColumns Else ActiveSheet.ChartObjects("Diagramm 2").Activate ActiveChart.ChartArea.Select ActiveChart.Delete End If End Sub

Private Sub ToggleButton1_Click() Dim myChrt As Chart Dim lEnd As Long lEnd = Sheets("Tabelle1").Range("B65536").End(xlUp).Row Set myChrt = ActiveSheet.ChartObjects("Diagramm 2").Chart If ToggleButton1 = True Then myChrt.SetSourceData Source:=Sheets("Tabelle1").Range("B1:C" & lEnd), PlotBy _ :=xlColumns Else myChrt.Parent.Delete End If End Sub

Hallo Sepp,
genial, das klappt schon mal.
Wollte das ganze jetzt noch etwas weiter ausbauen und bin wieder an meine Grenzen gestoßen. Deswegen nochmals eine Frage:
Möchte, dass das Diagramm verschiedene Reihen anzeigen kann, z.B. Umsatz, Absatz... .
Dabei soll es möglich sein, dass die Reihen unabhängig voneinander ein- bzw ausgeschaltet werden können.
Das funktioniert jetzt bei einem Button zwar schon, aber beim Toggle2 Button will er es nicht durchführen. Folgende Zeile macht Probleme. Für was steht hier das R ( die letzte 4 steht für die Series, oder?)?
ActiveChart.SeriesCollection(4).Values = "=Tabelle1!R2G4:R4G4"
Außerdem weiß ich nun nicht mehr, wie ich es hinkriege, dass er das monatliche Hinzufügen in der Datentabelle wieder berücksichtigt und im Diagramm abbildet.
https://www.herber.de/bbs/user/13459.xls
Vielleicht können wir das ja auch noch lösen...
Besten Dank!
Martina

Hallo,
nachdem das obige Problem gelöst war, hab ich jetzt noch eine Frage:
die ursprüngliche Daten, aus denen ein Diagramm erstellt werden soll stehen nun nicht mehr in Spalten, sondern in Zeilen.
Bisheriger Code:


Private Sub ToggleButton2_Click()   'Absatz
Set myChrt = ActiveSheet.ChartObjects("Diagramm 3").Chart
lEnd = Sheets("Tabelle1").Range("B65536").End(xlUp).Row
With myChrt
If ToggleButton2 = True Then
.SeriesCollection(2).Values = "=Tabelle1!R2C4:R" & lEnd & "C4"
Else
.SeriesCollection(2).Values = 0
End If
End With
Set myChrt = Nothing
End Sub

Wie kann ich die Zeile
lEnd = Sheets("Tabelle1").Range("B65536").End(xlUp).Row
so umwandeln, dass die letzte Zahl in der Zeile (und nicht in der Spalte) genommen wird?
Ich habe es so versucht:
lEnd = Sheets("Tabelle1").Range("IV18").End(xlUp).Column
(IV als letzte Spalte auf dem Blatt überhaupt) aber das funktioniert nicht.
Vielen Dank!
Martina

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Tabellenbezug bei Diagrammen

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread