Diagramm aktualiesieren geht nicht!!
17.06.2005 13:52:55
Patrick
hab ein kleines Problem, das Diagramm soll sich automatisch bei Eingabe neuer Werte aktualisieren. Habe auch eine Idee, aber die geht so nicht, weiß vielleicht einer wieso? Schaut es euch mal an.
Gruß Patrick
Sub DiagrTar()
' DiagrTar Makro
' Makro am 13.06.2005 von I134347D aufgezeichnet
Charts.Add
ActiveChart.ChartType = xlXYScatterSmooth
endxy = Worksheets("DatenTargets").Range("C65536").End(xlUp).Row
ActiveChart.SetSourceData Source:=Sheets("DatenTargets").Range("B3:endxy"), _
PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Targets"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "X - Y Diagramm "
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
With ActiveChart.Axes(xlCategory)
.HasMajorGridlines = False
.HasMinorGridlines = False
End With
With ActiveChart.Axes(xlValue)
.HasMajorGridlines = False
.HasMinorGridlines = False
End With
ActiveChart.HasLegend = False
ActiveChart.PlotArea.Select
With Selection.Border
.ColorIndex = 16
.Weight = xlThin
.LineStyle = xlContinuous
End With
Selection.Interior.ColorIndex = xlNone
End Sub