Auto-Diagramm
Kay
Sub Makierung()
Dim a As Double
a = Range(Cells(2, 2), Cells(Rows.Count, 2).End(xlUp)).Select
Chart
End Sub
Sub Chart()
' Chart Makro
' Makro am 17.05.2010 von Kay Kiefer aufgezeichnet
Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Sheets("Tabelle1").Range("B2:B28"), PlotBy _
:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Tabelle1"
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
End Sub
und möchte das der obig makrierte Bereich als SourceData:=.... deklarieren. Die Frage ist nur wie?
MFg
Kay
Anzeige