VBA und Diagramme

Hallo liebes Forum,
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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub DiaErstellen() Dim rngbereich As Range Dim strtitel2 As String Dim k As Long k = Sheets("Daten").Range("D2").Value Set rngbereich = Sheets("Daten").Range("D2") strtitel2 = "Gesamtpunkte" 'Titel ändern With Charts("Gesamtpunkte") .SetSourceData Source:=rngbereich, PlotBy:=xlColumns .ChartType = xlColumnClustered .HasTitle = True .ChartTitle.Text = strtitel2 .SeriesCollection(1).XValues = Worksheets("Daten").Range("$D$4:$D$" & k + 3) .SeriesCollection(1).Values = Worksheets("Daten").Range("$G$4:$G$" & k + 3) End With End Sub

Hi Felix,
an und für sich kannst du den gesamten Teil

        .SetSourceData Source:=rngbereich, PlotBy:=xlColumns
.ChartType = xlColumnClustered
.HasTitle = True

weglassen, wenn du dich auf ein bereits vorhandenes Diagramm beziehst, folglich auch die Zeile

    Set rngbereich = Sheets("Daten").Range("D2")

Wenn du jedoch das Diagramm vorher löschen und dann mit Charts.Add neu erstellen solltest, soll das Diagramm ja nur 1 Datenreihe enthalten, was man damit problemlos erreicht, dass man nur 1 Zelle als Datenbereich angibt. Wenn man dem Diagramm jedoch eine Zelle zuweist, die leer ist, kommt es zu einem Laufzeitfehler. Deshalb habe ich speziell D2 ausgewählt, weil diese Zelle offensichtlich immer einen Wert enthält .

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA und Diagramme

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread