variabler spalten offset
11.04.2007 12:22:00
humesit
mein problem: ich habe ein makro aufgezeichnet, dass aus einer beliebigen markierten spalte ein diagramm erzeugt.
als x achse möchte ich aber nicht die zeilennummer, sondern den der gewählten reihe entsprechenden inhalt der spalte A.
hatte die idee den gewählten bereich mit selection.offset(0,-n) auf die spalte a zu verschieben, aber irgendwie mag er das nicht.... kann man selection und offset überhaupt verbinden? oder mag der offsetbefehl keine variablen im argument?
hat jemand eine idee?
Sub diagrammerstellen()
Dim ywerte As String
ywerte = Selection.Address
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("QUEST Current Run Summary Repor"). _
Range(ywerte), PlotBy:=xlColumns
'hier müssten dann die xwerte kommen:
ActiveChart.SeriesCollection(1).XValues = _
"='QUEST Current Run Summary Repor'!R76C1:R95C1"
ActiveChart.Location Where:=xlLocationAsNewSheet
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "titel"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "xbeschriftung"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "ybeschriftung"
End With
End Sub
Anzeige