Diagramm per VBA von aktueller Zelle aus erstellen
03.07.2008 14:02:00
aktueller
ein Kollege von mir möchte in Excel automatisiert Diagramme von der aktuellen Zelle aus erstellen. Das Anwählen von "relativer Verweis" markiert zwar einen Bereich von der jeweils aktuellen Cursorposition aus, aber beim Erstellen des Diagrammes wird im VBA-Code dann wieder ein absoluter Bezug gewählt.
Hier der kurze Code, wie er vom Makrorekorder erzeugt wird:
Sub Makro1()
ActiveCell.Range("A1:H96").Select
Charts.Add
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Sheets("Tagesgang").Range("Z213:AG308"), _
PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Tagesgang"
ActiveChart.HasLegend = True
ActiveChart.Legend.Select
Selection.Position = xlRight
End Sub
Leider sind meine bzw. unsere VBA-Kenntnisse mehr als bescheiden und ich bin nie wirklich eingestiegen. Unsere Versuche den Ausdruck Range("Z213:AG308") durch irgendwas Anderes "Relatives" zu ersetzen, sind kläglich gescheitert. Was müssen wir tun, dass Excel jeweils von der aktuellen Cursor-Position aus einen Wertebereich als Diagrammquelle nimmt?
Liebe Grüße
Matthias