Diagrammquelle ändern?

Bild

Betrifft: Diagrammquelle ändern? von: Frank
Geschrieben am: 20.02.2005 22:11:56

Hallo,

hab in einer Tabelle ein Liniendiagramm, das immer die Daten einer Spalte
anzeigen soll. Es sind 12 Spalten und ich würde gerne beim anklicken einer
Spalte, dass das Diagramm genau die Daten dieser Spalte anzeigt.
Ich glaube, das geht nur mit Makro, oder?

Wie müßte solch ein Makrocode aussehen?

Die Daten stehen in den Spalten A bis 11, die Zeilenzahl ist unterschiedlich
zwischen 1 und max. 31

Grüße Frank

Bild


Betrifft: AW: Diagrammquelle ändern? von: Boris
Geschrieben am: 20.02.2005 22:34:38

Hi Frank,

Rechtsklick auf den Tabellenreiter (ich geh davon aus, dass das Diagramm im Blatt eingebettet ist und sich nicht in einem Diagrammsheet befindet), Code anzeigen, in das rechte Fenster diesen Code:

Option Explicit


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column < 13 Then
    ActiveSheet.ChartObjects("Diagramm 1").Select
    ActiveChart.SetSourceData Source:=Sheets("Tabelle1").Columns(Target.Column), PlotBy:=xlColumns
End If
End Sub


Diagrammnamen bei Bedarf noch anpassen ("Diagramm 1").

Grüße Boris
http://www.excelformeln.de


Bild


Betrifft: AW: Diagrammquelle ändern? von: Frank
Geschrieben am: 20.02.2005 22:50:53

Hallo Boris,

Fehler "Die Select-Methode des ChartObjekts konnte nicht ausgeführt werden."
Laufzeitfehler 1004
Außerdem ist doch select verboten, habe ich hier im Forum öfter gelesen.

Grüße Frank


Bild


Betrifft: Wie heisst dein Diagramm... von: Boris
Geschrieben am: 20.02.2005 22:55:32

Hi,

...und befindet es sich im Tabellenblatt oder ist es ein eigenes Sheet?
Und wenn Select verboten ist: Zeig mir, wie es ohne geht - ich lerne ja auch immer gerne dazu.

Grüße Boris


Bild


Betrifft: AW: Wie heisst dein Diagramm... von: Frank
Geschrieben am: 20.02.2005 22:58:19

Hallo Boris,

habe ja geschrieben in einer Tabelle. Das Diagramm heißt Diagramm 1.
Ich weiß ja nicht wie das geht, schon gar nicht ohne dieses select.

Grüße Frank


Bild


Betrifft: AW: Wie heisst dein Diagramm... von: Josef Ehrensberger
Geschrieben am: 20.02.2005 23:03:33

Hallo Frank!

Ohne Select geht's so.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim chrt As Chart
   If Target.Column < 13 Then
   Set chrt = Me.ChartObjects("Diagramm 1").Chart
   
       chrt.SetSourceData Source:=Range(Cells(1, Target.Column), _
       Cells(31, Target.Column)), PlotBy:=xlColumns
       
   End If
End Sub



Gruß Sepp

P.S.: Rückmeldung nicht vergessen!


Bild


Betrifft: Mir fehlte das .Chart von: Boris
Geschrieben am: 20.02.2005 23:07:06

Hi Josef,

...daher lief´s nicht ohne Select.


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column < 13 Then
    ActiveSheet.ChartObjects("Diagramm 1").Chart.SetSourceData Source:=Sheets("Tabelle1").Columns(Target.Column), PlotBy:=xlColumns
End If
End Sub



Ginge dann auch.
Danke!

Grüße Boris


Bild


Betrifft: AW: Mir fehlte das .Chart von: Josef Ehrensberger
Geschrieben am: 20.02.2005 23:19:17

Hallo Boris!

Natürlich geht's auf direktem Weg auch, ich weise aber schon aus
gewohnheit eine Objectvariable zu.


Gruß Sepp


Bild


Betrifft: So gehts, danke oT von: Frank
Geschrieben am: 20.02.2005 23:08:13

o


Bild


Betrifft: Ich hatte den Code getestet... von: Boris
Geschrieben am: 20.02.2005 23:03:36

Hi Frank,

...und bei mir hiess das Diagramm auch "Diagramm 1" - insofern kann ich dir nicht weiter helfen, es sei denn, du postest mal deine Datei (abgespeckt auf das Wesentliche).

Grüße Boris


Bild


Betrifft: AW: Ich hatte den Code getestet... von: Frank
Geschrieben am: 20.02.2005 23:09:40

Hallo Boris,

mit dem Makro von Josef gehts. Vielleicht weil das Blatt geschütz ist?

Grüße Frank


Bild


Betrifft: Nicht nur vielleicht... von: Boris
Geschrieben am: 20.02.2005 23:12:49

Hi,

...sondern ganz bestimmt - denn ein geschütztes Diagramm kann logischerweise nicht selektiert werden (aber das ist ja jetzt geklärt).

Boris


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Excel Passwort vergessen"