Diagramm mit Range variablen Bereich zuordnen
25.08.2004 12:13:33
Alex
ich habe (wie wohl alle die hier reinschreiben) ein Problem.
Ich möchte gern ein Diagramm erstellen, welches Daten aus einem immer wieder verschieden langen Datenbereich nehmen soll. Ich hab erstmal einen Zellbereich ausgewählt und dann ein Diagrmm erstellt. Das alles natürlich als Makro aufgezeichnet und nun möchte ich gern bei dem "Range" Variablen zuordnen, um vorher bestimmen zu können, wie lang der Bereich ist, wofür ein Diagramm erstellt werden soll.
Kann ich bei *** anstatt ("G2:H37") auch Variablen einsetzen?
Sub diagramm()
Charts.Add
ActiveChart.ChartType = xlColumnClustered ***
ActiveChart.SetSourceData Source:=Sheets("Anlagen").Range("G2:H37"), PlotBy _
:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Ergebnis"
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Anlagen"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Tonnen"
End With
ActiveChart.HasLegend = False
ActiveSheet.Shapes("Diagramm 12").IncrementLeft 185.25
ActiveSheet.Shapes("Diagramm 12").IncrementTop 291.75
ActiveWindow.Visible = False
End Sub
Ich bin für jeden Tipp dankbar.
Alex