Diagrammachse skalieren

Guten Tag

Ich erstelle gereade eine Übersicht, über die aktuelle Ausgaben einer Wohngruppe in Bezug auf die verschiedenen Posten und das Jahresbudget. Nun stehe ich vor dem Problem, dass ich die Diagrammbeschriftung der Achse x, resp. das Maximum dieser x-Achse auf einen Zellenwert festmachen möchte:
z.B. die X-Achse im Diagramm "Lebensmittel" auf das Jahresbudget für die Lebensmittelausgaben in der Zelle P12 im Blatt "Daten".

Bei meiner Lösungssuche bin ich über die Möglichkeit von VBA gestossen, wobei ich aber bei Vielem gar nichts verstehe. Z.B. stehe ich schon an, wenn ich die eingebetteten Diagramm im VBA bearbeiten möchte - ich finde den jeweiligen Code schlicht nicht...
Nun bin ich über dieses Forum gestossen und gedacht, ich könnte evtl. hier Tipps und unterstützung finden.

Meine Fragen:
- Wo finde ich in VBA den Code für meine eingebettenen Diagramme?
- Wie kann ich die Diagrammachsen mit Hilfe eines Zellenwertes skalieren?

Anbei meine Beispiel-Excel
https://www.herber.de/bbs/user/158695.xlsx

Herzlichen Dank jetzt schon für alle hilfreichen Tipss, Erklärungen und Ideen.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo

Wenn Du auf das Chart klickst siehst Du links oben den Namen (im Falle Lebensmittel : "Diagramm 2", du kannst diesen Namen aber auch einfach überschreiben, musst dann aber im Code auch diesen neuen Namen nehmen)

Um den Wert der Achse per VBA zu ändern:



Sub Axes()
    Dim myMax As Long
    
    myMax = Worksheets("Daten").Range("P12").Value
    With Worksheets("Dashboard").ChartObjects("Diagramm 2").Chart.Axes(xlValue, xlSecondary)
        .MaximumScale = myMax
        .MinimumScale = 0
        .MajorUnit = myMax / 5
    End With
    
End Sub

Wenn Du es für alle Diagramme machen möchtest:


Sub Axes2(ChartName As String, MyMax As Long, MyUnit As Long)

    With Worksheets("Dashboard").ChartObjects(ChartName).Chart.Axes(xlValue, xlSecondary)
        .MaximumScale = MyMax
        .MinimumScale = 0
        .MajorUnit = MyMax / MyUnit
    End With
    
End Sub

Sub SetAxes()
    Call Axes2("Diagramm 2", Worksheets("Daten").Range("P12").Value, 5) ' Lebensmittel
    Call Axes2("Diagramm 19", Worksheets("Daten").Range("P8").Value, 8) ' Medizin
End Sub

Peter

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Diagrammachse skalieren

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread