Diagramm-Aktualisierung VBA
17.12.2021 09:32:28
Markus
ich wende mich nun auch einmal an die Profis hier im Forum. Bisher hat die Diagramm-Aktualisierung wie u.a. immer funktioniert.
Heute läuft allerdings SeriesCollection... immer auf folgenden Fehler: "Die Methode XValues ist für das Object Series fehlgeschlagen".
Das ganze passiert bei allen SeriesCollection-Aufrufen.
Hat hierfür jemand eine Erklärung?
'Aktualisierung Grafik 2
Dim rngXDatum As Range
Dim rngYMiete As Range
Dim rngYAuto As Range
Dim rngYVersicherungen As Range
Dim rngYsonstige As Range
Dim rngYGesamt As Range
With Worksheets("Haushaltsrechnung (%)")
Set rngZelle = Rows(2).Find(AktMonat, LookAt:=xlWhole, LookIn:=xlFormulas)
If Not rngZelle Is Nothing Then
intletzte = rngZelle.Column
Set rngXDatum = .Range(.Cells(2, intletzte - 3), .Cells(2, intletzte))
Set rngYMiete = .Range(.Cells(8, intletzte - 3), .Cells(8, intletzte))
Set rngYAuto = .Range(.Cells(9, intletzte - 3), .Cells(9, intletzte))
Set rngYVersicherungen = .Range(.Cells(14, intletzte - 3), .Cells(14, intletzte))
Set rngYsonstige = .Range(.Cells(17, intletzte - 3), .Cells(17, intletzte))
Set rngYGesamt = .Range(.Cells(6, intletzte - 3), .Cells(6, intletzte))
End If
End With
With Worksheets("Übersicht").ChartObjects("Diagramm 1").Chart
.Axes(xlCategory).MinimumScale = Drei_Monate_zurück
.Axes(xlCategory).MaximumScale = AktMonat
.SeriesCollection(1).XValues = rngXDatum
.SeriesCollection(1).Values = rngYMiete
.SeriesCollection(2).Values = rngYAuto
.SeriesCollection(3).Values = rngYVersicherungen
.SeriesCollection(4).Values = rngYsonstige
.SeriesCollection(5).Values = rngYGesamt
End With
Vielen Dank und VG
Markus