Diagrammbereich in Makro definieren
17.07.2007 16:35:00
HansW
ich habe ein Problem mit einem Diagramm, dessen Wertebereich in Abhängigkeit der Anzahl an Zellen ausgegeben werden soll, die vorher berechnet werden. Da die Anzahl an Zellen immer unterschiedlich ist, möchte ich es so gestalten, dass das Makro den Bereich automatisch einließt.
Mein Makro sieht so aus:
Sub Wiegehtdas()
Dim lasts As Integer
Dim int1 As Integer
Dim str1 As String
Dim str2 As String
Dim str3 As String
Dim str4 As String
Dim here As String
int1 = 2
str1 = "O" & int1
str2 = "P" & int1
Range("O2").Select
Selection.End(xlDown).Select
lasts = ActiveCell.Row
str3 = "O" & lasts
str4 = "P" & lasts
Sheets("Tabelle1").Select
Charts.Add
ActiveChart.ChartType = xlColumnClustered
here = "O2:O" & lasts
ActiveChart.SetSourceData Source:=Sheets("Tabelle1").Range(here), PlotBy:=xlColumns
ActiveChart.SeriesCollection(1).XValues = "=Tabelle1!02:0" & lasts"
ActiveChart.SeriesCollection(1).Values = "=Tabelle1!str2:str4"
ActiveChart.SeriesCollection(1).Name = "=""Überblick"""
ActiveChart.location Where:=xlLocationAsNewSheet
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Überblick"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
Charts.Add
End Sub
Leider bekomme ich immer in der Zeile ActiveChart.SeriesCollection(1).XValues = "=Tabelle1!02:0" & lasts" einen Fehler ausgegeben.
Könnte mir jemand helfen?
Vielen Dank für Eure Mühe!
Hans