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
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