VBA und Diagramme
Felix
ich beschäftigte mich gerade mit der automatischen Erstellung von Diagrammen:
Nun habe ich doch einige Fragen:
Man Beispiel:
Dim rngbereich As Range
Dim strtitel2 As String
Dim k As Long
k = Sheets("Daten").Range("D2").Value
Set rngbereich = Sheets("Daten").Range("d4" & ":d" & k + 3, "g4" & ":g" & k + 3)
strtitel2 = "Gesamtpunkte" 'Titel ändern
Charts.Add
With ActiveChart
.ChartType = xlColumnClustered
.SetSourceData _
Source:=rngbereich, _
PlotBy:=xlColumns
.HasTitle = True
.ChartTitle.Text = strtitel2
.SeriesCollection(1).Values = "='Daten'!$G$4:$G$243"
.SeriesCollection(1).XValues = "='Daten'!$D$4:$D$243"
End With
ActiveSheet.Name = strtitel2
End Sub
und meine Fragen:
.SeriesCollection(1).Values = "='Daten'!$G$4:$G$243"
.SeriesCollection(1).XValues = "='Daten'!$D$4:$D$243"
Kann ich dieses auch dynamisch gestalten?
sprich mein k miteinbauen?
und wie kann ich das ausschließen, dass wenn ich meinen Commandbutton klicke, dass immer wieder ein neues Diagramm ersteht..sprich ich ändern an den daten was und es soll immer nur ein Diagramm in der Exceldatei vorhanden sein