Datentabelle in Diagramm

Bild

Betrifft: Datentabelle in Diagramm
von: Oliver
Geschrieben am: 19.02.2005 20:32:50
Hallo,
z.B. ich habe ein Diagramm mit fünf Datenreihen.
In der Datentabelle möchte ich mir aber nur zwei Datenreihen anzeigen lassen. Die fünf Datenreihen im Diagramm sollen aber sichtbar bleiben.
Hat jemand eine Lösung für mich, danke.
Oliver

Bild

Betrifft: AW: Datentabelle in Diagramm
von: Hübi
Geschrieben am: 19.02.2005 21:23:06
Hi Oliver,
Diagramm anklicken, Extras - Optionen -Diagramm Haken bei nur sichtbare weg
Gruß Hübi
Bild

Betrifft: AW: Datentabelle in Diagramm
von: Oliver
Geschrieben am: 20.02.2005 06:23:06
Hallo Hübi,
erst einmal Danke für die schnelle Antwort, aber das ist nicht ganz das was ich wollte.
Ich dachte mehr an die Datentabelle, die an die Rubikenachse gekoppelt ist
(Diagramm, Diagrammoptionen, Redister:Datentabelle).
Dort möchte ich nur zwei Datenreihen sehen. Diese Tabelle zeigt mir immer die fünf Datenreihen and, die ich auch im Diagramm sehe.
Gruss
Oliver
Bild

Betrifft: AW: Datentabelle in Diagramm
von: Hübi
Geschrieben am: 20.02.2005 10:00:00
Hi Oliver,
ich glaube, dafür gibt es keinen regulären Weg.
Vielleicht hilft es dir schon, ein verknüpftes Bild der Tabellen-Datentabelle drüber zu legen.
Habe mal eine kleine Datei gemacht, die das Prinzip zeigt.
https://www.herber.de/bbs/user/18366.xls
Frage noch offen
Gruß Hübi
Bild

Betrifft: AW: Datentabelle in Diagramm
von: Oliver
Geschrieben am: 20.02.2005 16:10:30
Hallo Hübi,
nochmal's danke.
Ich lasse die Frage nochmal offen. Vielleicht hat ja noch jemand eine Idee.
Gruss
Oliver
Bild

Betrifft: AW: Datentabelle in Diagramm
von: Reinhard
Geschrieben am: 20.02.2005 16:24:13
Hi Oliver,
was genau gefällt dir an Hübis Vorschlag nicht?
Das nachfolgende Makro zeigt dir wie so was aussehen kann.
Gruß
Reinhard

Sub Makro1()
Application.ScreenUpdating = False
On Error GoTo Fehler
Workbooks.Add
wkb = ActiveWorkbook.Name
For Each Zelle In Workbooks(wkb).Worksheets("Tabelle2").Range("A1:M15")
If Zelle.Column = 1 Then
Zelle.Value = "Reihe " & Zelle.Row
Else
Zelle.Value = Int(Rnd * 49) + 1
End If
Next Zelle
Charts.Add
With ActiveChart
.Name = "Ohne"
.ChartType = xlLine
.SetSourceData Source:=Workbooks(wkb).Worksheets("Tabelle2").Range("B1:M15"), PlotBy _
:=xlColumns
.Location Where:=xlLocationAsObject, Name:="Tabelle1"
End With
ActiveChart.HasDataTable = False
ActiveChart.HasLegend = True
With Worksheets("Tabelle1").ChartObjects(1)
.Top = 0
.Left = 100
.Width = 600
.Height = 350
End With
Range("a1").Select
ActiveWindow.DisplayGridlines = False
Worksheets("Tabelle2").Range("A1:M2").Columns.AutoFit
Worksheets("Tabelle2").Range("A1:M2").CopyPicture Appearance:=xlScreen, Format:=xlPicture
Sheets("Tabelle1").Pictures.Paste
Sheets("Tabelle1").Shapes(2).Top = Sheets("Tabelle1").Shapes(1).Top + Sheets("Tabelle1").Shapes(1).Height
Sheets("Tabelle1").Shapes(2).Left = Sheets("Tabelle1").Shapes(1).Left
Sheets("Tabelle1").Shapes(2).Height = 250
Sheets("Tabelle1").Shapes(2).Width = Sheets("Tabelle1").Shapes(1).Width
Sheets("Tabelle1").Activate
Fehler:
Application.ScreenUpdating = True
End Sub

Bild

Betrifft: AW: Datentabelle in Diagramm
von: Oliver
Geschrieben am: 20.02.2005 17:22:17
Hallo Hübi, hallo Reinhard,
eure Vorschläge sind beide gut.
Ich danke Euch nochmals.
Gruss
Oliver
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Datentabelle in Diagramm"