VBA Diagramm mit verschiedenen Bedingungen
09.01.2019 09:13:32
Christian
Ich habe ein Tabellenblatt mit mehren Informationen, (Spalte B bis G); nun möchte ich mit gewissen Werten Diagramme zeichnen.
Wenn in Spalte C der Wert "Ausbilder" steht, sollen aus dieser Zeile die Werte:
G als x-Werte genommen werden
G als y-Werte
B als Bezeichnung des Datensatzes
hergenommen werden.
Die erste Zeile mit Werten ist die dritte.
Wenn ich mein Diagramm nur mit Werten aus der dritten Zeile erstelle, sieht das Makro so aus:
Sub diagrammerstellen()
Dim lngZeile As Long
Dim wksTab As Worksheet
Set wksTab = Worksheets("'2018') Daten auswählen")
With ActiveSheet.Shapes.AddChart2(240, xlXYScatterLines).Chart
.SetSourceData Source:=Range("'2018'!$B$3:$G$5")
If .SeriesCollection.Count = 1 Then .SeriesCollection(1).Delete
For lngZeile = 3 To 7
If Cells(lngZeile, 3) = Ausbilder Then
With .SeriesCollection.NewSeries
.Name = "='1) Daten auswählen'!$B$" & lngZeile
.XValues = wksTab.Range(wksTab.Cells(lngZeile, 7), wksTab.Cells(lngZeile, 7) _
)
.Values = wksTab.Range(wksTab.Cells(lngZeile, 7), wksTab.Cells(lngZeile, 7)) _
End With
End If
Next lngZeile
.HasLegend = True
.SetElement (msoElementLegendRight)
With .Legend.Format.Line
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorText1
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0
.Transparency = 0
End With
.Axes(xlValue).HasTitle = True
.Axes(xlCategory).HasTitle = True
End With
End Sub
Leider Funktioniert dies so nicht, er sagt das in "Set wksTab = Worksheets("'2018') Daten auswählen")" etwas nicht stimmt.
Die Tabelle soll noch mit deutlich mehr Daten gefüttert werden, so das das Diagramm dann automatisch mit den weitern Daten ergänzt werden soll.
Kann mir jemand sagen wo der Fehler ist?
Und kann ich dort auch sagen, dass er die Diagramm Überschrift z.b. aus der Zelle G1 nehmen soll?
Beste Grüße
Christian