Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Einheitliche Skalierung bei Balkendiagrammen
#1
Hallo,
ich möchte gerne mehrere Balkendiagramme erstellen, mit jeweils zwei Balken. Dabei soll ein Balken ein %-Wert der besten Periode und der andere ein %-Wert der schlechtesten Periode darstellen (vgl. Anhang).
Damit die Balkendiagramme miteinander verglichen werden können, soll jeweils dieselbe Skalierung angezeigt werden. Leider bekomme ich das jedoch hin, d.h. Excel wählt automatisch eine eigene Skalierung.
Kann mit bitte jemand weiterhelfen?

Herzlichen Dank & noch ein schönes Wochenende.

Freundlichst grüßt Euch

Stefan


Angehängte Dateien
.xlsx   Balkendiagramm_090219.xlsx (Größe: 13,93 KB / Downloads: 1)
Antworten Top
#2
Hallo Stefan,

wenn man wie in deinem Beispiel nur ein Diagramm hat, sind doch alle Y-Achsen einheitlich skaliert.

Wenn man mehrere Diagramme hat, geht das nur manuell oder in einem Makro.

Mit diesem Makro werden die Grenzen aller Diagramme im aktuellen  Arbeitsblatt auf die Werte der in diesem  Arbeitsblatt benannten Zellen "Oben" und "Unten" gesetzt.
Code:
Private Sub cbTuwat_Click()

Dim dblOben As Double
Dim dblUnten As Double
Dim chr As ChartObject

dblOben = Me.Range("Oben").Value
dblUnten = Me.Range("Unten").Value

For Each chr In Me.ChartObjects
    chr.Chart.Axes(xlValue).MinimumScale = dblUnten
    chr.Chart.Axes(xlValue).MaximumScale = dblOben
Next chr

End Sub


Angehängte Dateien
.xlsm   Balkendiagramm_190210.xlsm (Größe: 41,46 KB / Downloads: 1)
helmut

Für mich ist die Möglichkeit in Excel an Zellen und Bereichen Namen zu vergeben die wichtigste Funktionalität.
Sie macht Formeln und den VBA-code verständlicher. Für Makros gilt die Regel: "Nur über benannte Bereiche auf den Inhalt der Zellen zugreifen."
Und wofür sind Regeln da? Um nachzudenken bevor man sie bricht.





[-] Folgende(r) 1 Nutzer sagt Danke an Ego für diesen Beitrag:
  • aerofly2011
Antworten Top
#3
Hallo Helmut,

Super. Herzlichen Dank.

Beste Grüße & einen schönen Sonntagabend

Stefan
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste